Word宏命令集（整理）（一）.pdf

学 海 无 涯 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 oField = Nothing End Sub 2 、Word 中的图片批量统一大小及同比例缩放 有些时候，我们用Word 来做一些图文混排的文档，需要正规的样式，例如图片大小一致。 下面的方法就是告诉我们如何来实现很多的图片统一大小，“插入”-“模块”。 代码： Sub setpicsize() 设置图片大小 Dim n 图片个数 On Error 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 设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 设置图片宽度 300px Next n End Sub 按比例缩放的方法： Sub setpicsize() 设置图片大小 Dim n 图片个数 On Error 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 类型图片 1 学 海 无 涯 ActiveDocument.Shapes(n).Height = 400 设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 设置图片宽度 300px Next n End Sub 3、Word 中英文标点符号互换-VBA 源码实现 打开“Visual Basic 编辑器”或用快捷键Alt+F11 ，插入一个新的“模块”。 Sub ToggleInterpunction()中英文标点互换 Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant Dim myArray1() As Variant, myArray2() As Variant, strFind As String, strRep As String Dim msgResult As VbMsgBoxResult, N As Byte 定义一个中文标点的数组对象 ChineseInterpunction = Array(、,。, ，, ；, ：, ？, ！, ……, —, ～, （, ） , 《, 》) 定义一个英文标点的数组对象 EnglishInterpunction = Array(,,., ,, ;, :, ?, !, …, -, ~, (, ),