Word宏命令集.docx

1、Word宏命令集Word宏命令集之欧侯瑞魂创作创作时间：二零二一年六月三十日1、Word宏实现删除Word文档中的所有超链接, 翻开Word的菜单 工具-宏-Visual Basic 编纂器, 或直接按快捷键 Alt+F11, 翻开Visual Basic 编纂器, “拔出”-“模块”.代码：Sub RemoveHyperlinks() Dim oField As Field For Each oField In ActiveDocument.Fields If oField.Type = wdFieldHyperlink Then oField.Unlink End If Next Set

2、oField = Nothing End Sub2、Word中的图片批量统一年夜小及同比例缩放有些时候, 我们用Word来做一些图文混排的文档, 需要正规的样式, 例如图片年夜小一致.下面的方法就是告诉我们如何来实现很多的图片统一年夜小, “拔出”-“模块”.代码：Sub setpicsize() 设置图片年夜小 Dim n 图片个数 On Error Resume Next 忽略毛病 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 4

3、00 设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 设置图片宽度 300px Next n End Sub按比例缩放的方法：Sub setpicsize() 设置图片年夜小 Dim n 图片个数 On Erro

4、r Resume Next 忽略毛病 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 400 设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 设置图片高度

5、为 400px ActiveDocument.Shapes(n).Width = 300 设置图片宽度 300px Next n End Sub3、Word中英文标点符号互换-VBA源码实现翻开“Visual Basic编纂器”或用快捷键Alt+F11, 拔出一个新的“模块”.Sub ToggleInterpunction()中英文标点互换 Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant Dim myArray1() As Variant, myArray2() As Variant, strFi

6、nd As String, strRep As String Dim msgResult As VbMsgBoxResult, N As Byte 界说一个中文标点的数组对象 ChineseInterpunction = Array(、,., , , ；, ：, ？, ！, , , , （, ）, , ) 界说一个英文标点的数组对象 EnglishInterpunction = Array(,., , ;, :, ?, !, , -, , (, ), <, >) 提示用户交互的MSGBOX对话框 msgResult = MsgBox(您想中英标点互换吗?按Y将中文标点转为英文标点,

7、按N将英文标点转为中文标点!, vbYesNoCancel) Select Case msgResult Case vbCancel Exit Sub 如果用户选择了取消按钮,则退出法式运行Case vbYes 如果用户选择了YES,则将中文标点转换为英文标点 myArray1 = ChineseInterpunction myArray2 = EnglishInterpunction strFind = “(*)” strRep = 1 Case vbNo 如果用户选择了NO,则将英文标点转换为中文标点 myArray1 = EnglishInterpunction myArray2 = C

8、hineseInterpunction strFind = (*) strRep = “1” End Select Application.ScreenUpdating = False 关闭屏幕更新 For N = 0 To UBound(ChineseInterpunction) 从数组的下标到上标间作一个循环 With ActiveDocument.Content.Find .ClearFormatting 不限定查找格式 .MatchWildcards = False 不使用通配符 查找相应的英文标点,替换为对应的中文标点 .Execute findtext:=myArray1(N),

9、WordStrwith:=myArray2(N), WordStr:=wdWordStrAll End With Next With ActiveDocument.Content.Find .ClearFormatting 不限定查找格式 .MatchWildcards = True 使用通配符 .Execute findtext:=strFind, WordStrwith:=strRep, WordStr:=wdWordStrAll End With Application.ScreenUpdating = True 恢复屏幕更新 End Sub4、实现本机Word打印密码呵护：Sub Fi

10、lePrint() pass$ = InputBox(请输入打印密码：) If pass$ = abcd Then Dialogs(wdDialogFilePrint).Show Else MsgBox (密码毛病, 请与管理人员联系！) End If End Sub Sub FilePrintdefault() pass$ = InputBox(请输入打印密码：) If pass$ = abcd Then Dialogs(wdDialogFilePrint).Show Else MsgBox (密码毛病, 请与管理人员联系！) End If End Sub5、Word宏实现记录本机打印历史记

11、录Sub FilePrint() Dialogs(wdDialogFilePrint).Show DName = ActiveDocument.Path + + ActiveDocument.Name If ActiveDocument.Path = Then DName = 未保管文档 Tim = Str(Date) + 日 + Str(Time) Open c:print.txt For Append As #1 Print #1, 于 + Tim+ 打印 + DName Close #1 End Sub6、在显示屏上看到Word文档的真实打印效果：套勒索据表格及进行某些特殊的版式排版时,

12、 很希望屏幕上显示的年夜小与打印结果完全相同, 以便进行精确的套打把持.但能够“所见即所得” 的Word显示的结果与打印出来的结果虽然格式上能够做到看到什么获得什么, 但由于各人所用的显示器的尺寸分歧, 而且相同尺寸的显示器其可视面积也有所不 同, 因此显示与打印结果的年夜小比例很难做到完全一致.如果能够给Word添加一个1:1全真显示的工具按钮就好了!这样即使我们不需要进行精确的套打, 也 可以在文稿完成后按一下这个按钮, 看看最终输出的字体年夜小设置得是否合适.实现这个目的只需三步：一、取得与真实打印完全一致的屏幕显示比例由于各人使用的显示器尺寸分歧及画幅调整的习惯分歧, 因此在此无法给出

13、一个固定的数据.请先将显示器的画幅调整妥当, 以能够最年夜限度地显示出完 整的全屏幕窗口为准.找一张A4纸, 用尺子量下该纸的宽度, 要求精确到毫米( 我测的是29.4*21.8), 因为标称为某种开本的纸张, 其实际年夜小其实纷歧定与标称值相同.然后, 翻开 Word新建一空白文档, 并设置为“页面”视图, 将打印设置中的“纸型”设置为与准备的纸张相同的纸型, 如在此为A4, 再将“纸型”选项卡中的纸张宽度设 置为与刚才量好的值完全一致, 确定后返回编纂界面. 现在我们就以这张纸为依据, 确定屏幕显示比例.在工具栏的“显示比例”输入框中反复手工调整显示比例的年夜小, 注意系统自己只提供若干种

14、固定的显示比例, 其实我们完全可以直接输入任意一个整数, 比如笔者的19英寸宽屏显示器在设置为65后, 屏幕上的页面年夜小与真实纸张完全一致, 这个“65”就是我们下一步需要的数据. 二、编写一个宏命令1)请在Word的编纂界面按AltF8, 翻开“宏”对话框, 在“宏名”编纂框中输入“yitoyi”, 然后单击创立按钮.2)翻开Visual Basic编纂器, 在代码编纂窗口输入下列代码：Public Sub 全真1:1显示( ) ActiveWindow.ActivePane.View Zoom.Percentage=65 End Sub注意：代码中即是号后面的数字应灵活更改为与你的显示器

15、对应的真实比例数字.三、创立1:1全真显示的工具栏按钮按AltVTC, 调收工具栏“自界说”对话框, 选择“命令/宏”, 右边的列表框中会显示出所有已经存在的宏.找到刚才编纂的那个“yitoyi”的宏, 将它拖入Word主界面的工具栏中的任意位置, 这时工具栏中会呈现一个与宏名对应的按钮, 请右击新按钮, 在弹出的快捷菜单的“命名”编纂框中更改按钮名称为“1:1”.按关闭按钮退出设置.7、Word宏实现快速打印以后页一般来说, 如果只想打印Word文档中的以后页面时, 我们必需进入打印属性设置窗口, 然后将该窗口“页面范围”处的“以后页”项目选中, 再单击一下“确 定”按钮才可以.很显然, 如

16、果每次打印以后页面都按上面的方法来把持的话, 不单麻烦不说, 而且也晦气于提高文档打印效率.那我们有没有法子跳过打印属性设 置窗口, 来直接“命令”打印机去打印以后页面呢？其实要做到这一点其实不是一件十分困难的事情, 我们完全可以借助Word应用法式的“录制新宏”功能, 来创 建一个可以直接让打印机去打印目标文档中以后页面的快捷命令, 下面就是具体的实现步伐： 1)翻开“工具”-“宏”-“录制新宏”命令.设置好后, 单击“指定”, “关闭”. 2)在宏名中输入：printpage, “将宏指定到”, 我们选择“健盘” 快捷键用“Ctrl+Alt+/”3)开始“录制”. 这个时候光标上会显示一个磁带的形状, 在左侧还用一个控制录制的小工具.录制好后, 再想打以后文档时, 直接用快捷键Ctrl+Alt+/, 就可以了.创作时间：二零二一年六月三十日