word vba高级代码

以下是一些 Word VBA 高级代码示例：

1. 批量替换文本

这段代码可用于批量替换文档中的文本：

Sub ReplaceText()
  Dim i As Integer
  For i = 1 To ActiveDocument.Words.Count
    If ActiveDocument.Words(i).Text = "oldtext" Then
      ActiveDocument.Words(i).Text = "newtext"
    End If
  Next i
End Sub

2. 插入多个图片

这段代码可用于插入多个图片到文档中：

Sub InsertPictures()
  Dim i As Integer
  For i = 1 To 3 ' 3是图片数量
    Selection.InlineShapes.AddPicture FileName:="C:\picture" & i & ".jpg", _
      LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
  Next i
End Sub

3. 快速插入文本框

这段代码可用于快速在文档中插入一个文本框：

Sub InsertTextBox()
  Dim myBox As Shape
  Set myBox = ActiveDocument.Shapes.AddTextbox( _
    Orientation:=msoTextOrientationHorizontal, _
    Left:=100, Top:=100, Width:=200, Height:=50)
  myBox.TextFrame.TextRange.Text = "Insert your text here"
End Sub

这些示例可以帮助你更好地了解 Word VBA 的高级编程方法。