下面是一个简单的例子,用于把文档里的 ”hello" 替换成 "world"
' Define the search range to be the whole document
Set myRange = ActiveDocument.Content
' Set the Find parameters
myRange.Find.ClearFormatting
' Loop through each match in the document
Dim cached As Long
cached = myRange.End
Do While myRange.Find.Execute("hello")
myRange.Select
myRange.Text = "world"
myRange.Start = myRange.Start + Len(myRange.Find.Text)
myRange.End = cached
Loop
参考:
http://stackoverflow.com/questions/29755551/multi-dimensional-array-in-vba-for-microsoft-word-on-mac