关于Word中 的VBA 编程

来源：百度知道 编辑：UC知道 时间：2024/05/14 11:45:36
怎么用VBA编程 实现:
把每行开头有"第XX条"字样的文字都加粗.
因为行太多,手动去一个个改太慢了.

顺便问下:怎么在VBA里面引用WORD文档里面的字? 比如WORD里面有一段文字:"建立反对撒客里空的龙卷风"
怎么用Msgbox显示出这段文字里面的第3个字和第4个字?

解决你的“顺便问下".....

Sub Macro1()
Dim strText As String
strText = "建立反对撒客里空的龙卷风"
Selection.TypeText strText
Selection.MoveStart Unit:=wdLine, Count:=-1
Selection.MoveEnd Unit:=wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)
Selection.MoveStart Unit:=wdCharacter, Count:=3
Selection.Font.Bold = True
MsgBox Selection.Text
End Sub

干脆用格式刷，双击格式刷可以反复使用