如何在word中通过添加宏代码使用宏功能
【转贴】 给Word文档加通用密码有简法 本版今年7月29日刊出《给Word文档加上通用密码》一文后,有读者表示可以利用Word提供的“宏”功能更方便地给文档加密。
一、认识Word自动宏 所谓宏是将一系列Word命令和指令组合起来,形成一个命令,实现任务执行的自动化。
在Word中有一类很实用的自动宏,会在特定事件发生时自动运行,Word提供的5个自动宏是: 1.Autoexec宏在启动Word时自动运行。
若以WinWord/Mfile命令启动Word,则需再添加“/Mautoexec”参数,否则Autoexec宏不被执行。
2.Autoexit宏在退出Word时自动运行。
3.Autonew宏在新建文档时自动运行。
4.Autoopen宏在打开文档时自动运行。
5.Autoclose宏在关闭文档时自动运行。
二、录制自动加密宏只要给 Autonew宏增加密码功能,在新建文档时将自动加上通用密码。
创建Autonew宏步骤如下: 1.启动Word,点击“工具”菜单中“宏”子菜单,单击“录制新宏”,系统弹出“录制宏”对话框。
2.在“宏名”框中键入Au-tonew,在“将宏保存在”框中,单击“所有文档( t)”,并且还可以在“说明”框中键入对宏的说明,然后单击“确定”。
3.单击“工具”菜单“选项”命令,系统弹出“选项”对话框。
4.单击“保存”选项卡或“安全性”选项卡,单击“打开权限密码”或“修改权限密码”框,输入密码,例如“123”,单击“确定”按钮,在“确认密码”对话框中,再次键入密码并单击“确定”。
5.打开“工具”菜单的“宏”子菜单,单击“停止录制”。
6.退出Word。
今后,所有利用工具栏上“新建”按钮建立的文档都有了通用密码。
但如果仅到此为止,我们会有一个小小的遗憾,就是启动Word时自动新建的Word空文档没有自动加上密码。
为了弥补这一缺憾,我们还需要再录制一个“Autoexec”自动宏: 首先如上所述打开“录制宏”对话框,然后在“宏名”框中键入“Autoex-ec”,在“将宏保存在”框中,选择“所有文档( t)”,在“说明”框中键入对宏的说明,单击“确定”按钮,然后单击常用工具栏上的“新建”按钮,最后打开“工具”菜单的“宏”并单击“停止录制”命令。
至此,只要你使用Word,Word会自动给每个新建文档都加上通用密码。
但当你再次打开这些文档时,可千万别因为Word要求你输入密码而慌了手脚噢。
(西贝) 来源:《新民晚报》 (责任编辑:陈健) 【链接】 Word文档加密技巧详解(图)
字符样式为要点的设置为标题3office
下面这3个在附件里都有,你试用和比较一下即知 Sub aaa() '背景无色 ActiveDocument.Background.Fill.Visible = msoFalse End Sub Sub bbb() '背景为白色 ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 255) ActiveDocument.Background.Fill.Visible = msoTrue ActiveDocument.Background.Fill.Solid ActiveDocument.Save End Sub Sub ccc() '背景为红色 ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 0, 0) ActiveDocument.Background.Fill.Visible = msoTrue ActiveDocument.Background.Fill.Solid ActiveDocument.Save End Sub
一般Word和Excel里的宏命令有什么用?
1、让复杂的工作简单化 2、让重复的工作自动化 3、扩充Excel自带的功能(我认为它是可以无限扩充的,只有你想不到的,没有它做不到的,夸张了一点!) 事件、对象、语句、函数、方法、属性,把这些东西有机组合在一起,就能解决你的问题。
以下内容仅供参考~~~~~~~ 打开Excel中的VB编辑器,左边双击ThisWorkbook,在右边空白处粘贴以下代码: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '捕获单元格被修改事件 'if ... then ... 判断语句 IsNumeric()判断是否是数值的函数 'Target.Value Target为对象,指当前被改变的单元格,value是该对象的属性,表示该单元格的值 '=,等于号是赋值或比较符号,IsNumeric(Target.Value) = False,这里的=号是作比较,Target.Value = "",这里的=号是赋予该单元格新的值. If IsNumeric(Target.Value) = False Then Target.Value = "" End Sub '结束语句
请修改WORD宏。
Sub图片版式转换()DimoShapeAsV
看看这样是否可行~~ Sub 图片版式转换() Dim oShape As Variant, shapeType As WdWrapType On Error Resume Next For Each oShape In ActiveDocument.InlineShapes Set oShape = oShape.ConvertToShape With oShape oShape.WrapFormat.Type = 0 '四周型 oShape.WrapFormat.AllowOverlap = False '不允许重叠 oShape.Left = wdShapeRight '右对齐 End With Next End Sub
求编写WORD宏,统一所有超链接的格式如附件,各超链接的格式不一...
打开VBE,插入一个模块就搞定了: Option Explicit Sub 统一超链接格式() Dim hlkTemp As Hyperlink For Each hlkTemp In ActiveDocument.Hyperlinks With hlkTemp.Range.Font .Color = wdColorBlue '蓝色 .Underline = wdUnderlineSingle '下划线 End With Next End Sub
WORD宏,设置图片格式请编写一个WORD宏,把所有图片(不管有
微软的office软件运行用户自己编写叫VBA的脚本来增加其灵活性,进一步扩充它的能力。
如完成一个一打开word文件同时要打开某个文件的功能,必须要自己编写一段称之为宏的脚本。
具体做法是在“工具”菜单“宏”-“宏”弹出的对话框输入宏名,然后按“创建”按钮会打开visual basic编辑器,你就可以编程了,这个就是宏。
学会它会有很多乐趣的。
简单点说就是批处理,但是要比批处理功能更强大.使你一个简单的操作,比如一个左键点击,就可以完成多项任务,很方便的.比如说你的电脑每天要监控并记录很多组的数据,而且这些数据是不断变化更新的(发/变电站记录表记等),这样你就需要做个宏来将服务器里这些数据定时转到一个或多个WORD文档里来,便于计算存档和打印.你的领导办公室在远一些的地方也可以通过网络来调用这个宏来将数据传到他的办公桌的电脑上.当你启动做好了的这个含有宏的文件的时候会弹出一个窗口问你是否起用宏. 宏是一系列 Word 命令和指令,这些命令和指令组合在一起,形成了一个单独的命令,以实现任务执行的自动化。
如果在 Microsoft Word 中反复执行某项任务,可以使用宏自动执行该任务。
以下是宏的一些典型应用: 加速日常编辑和格式设置 . 组合多个命令,例如插入具有指定尺寸和边框、指定行数和列数的表格 . 使对话框中的选项更易于访问 . 自动执行一系列复杂的任务 . Word 提供两种方法来创建宏:宏录制器和 Visual Basic 编辑器 。
请修改WORD宏自己录了一个宏,主要是调整从网页上下载下来的文章...
帮你重新做了一个宏,用正则表达式,如果一次不能彻底清除的话,可以再次运行。
代码如下: Option Explicit Sub 去除中文间空格() On Error GoTo 0 Dim objRegExp As Object Dim objMatches As Object Dim objMatch As Object Dim intCom% Application.ScreenUpdating = False Set objRegExp = CreateObject("VBScript.RegExp") With objRegExp .Pattern = "(\W) +(\W)" .IgnoreCase = True .Global = True If .test(ActiveDocument.Content) Then Set objMatches = .Execute(ActiveDocument.Content) For Each objMatch In objMatches ActiveDocument.Range.Find.Execute findtext:=objMatch.Value, _ replacewith:= bmatches(0) & bmatches(1), Replace:=wdReplaceAll intCom = intCom + 1 Next End If End With Set objRegExp = Nothing Application.ScreenUpdating = True MsgBox "程序执行完毕!" & vbCrLf & "成功清理【" & intCom & "】处空格!" End Sub