Word技巧VBA命令（简化批量操作）

工具-宏-Visual basic 编辑器：

内容加边框

Sub 给所有内嵌内容加边框()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
With pic
.Line.Weight=1’线条宽度
.Line.Style=msoLineSingle’线条样式
.Line.ForeColor.RGB=RGB(0,0,0)'线条颜色
End With
Next
End Sub

图片加边框

Sub 只给图片加边框()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If pic.Type=wdInlineShapePicture Then
pic.Line.Weight=1
pic.Line.Style=msoLineSingle
pic.Line.ForeColor.RGB =RGB(0,0,0)
End If
Next
End Sub

修改图片大小

Sub 批量修改图片大小()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
pic.LockAspectRatio=msoTrue’锁定纵横比
pic.Width=CentimetersToPoints(6)'将宽度设置为6厘米（1英寸=2.54厘米）
Next pic
End Sub

给图片加分页符

Sub 给图片加分页符()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If pic.Type=wdInlineShapePicture Then
pic.Range.InsertBreak Type:=wdPageBreak
End If
Next pic
End Sub

修改正文字体

Sub 修改正文字体()
Dim currPara As Paragraph
For Each currPara In ActiveDocument.Paragraphs
If currPara.OutlineLevel=wdOutlineLevelBodyText Then
currPara.Range.Font.Size=12
End If
Next
End Sub

删除超链接

Sub 删除超链接()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oHL As Hyperlink
With oDoc
'用逆序的方式删除
For i = .Hyperlinks.Count To 1 Step -1
Set oHL = .Hyperlinks(i)
With oHL
'删除所有超链接
oHL.Delete
End With
Next i
End With
End Sub
（删除超链接）

持续更新中