Sub Test()
Dim T As String
Dim i As Long

For i = 1 To 300
? ? ? ? With Selection.Find
? ? ? ? ? ? .Text = "反對"
? ? ? ? ? ? .Replacement.Text = " "
? ? ? ? ? ? .Forward = True

? ? ? ? End With
? ? ? ? With Selection
? ? ? ? ? ? If .Find.Forward Then
? ? ? ? ? ? ? ? .Collapse Direction:=wdCollapseStart
? ? ? ? ? ? Else
? ? ? ? ? ? ? ? .Collapse Direction:=wdCollapseEnd
? ? ? ? ? ? End If
? ? ? ? ? ? .Find.Execute Replace:=wdReplaceOne
? ? ? ? ? ? If .Find.Forward Then
? ? ? ? ? ? ? ? .Collapse Direction:=wdCollapseEnd
? ? ? ? ? ? Else
? ? ? ? ? ? ? ? .Collapse Direction:=wdCollapseStart
? ? ? ? ? ? End If
? ? ? ? ? ? .Find.Execute
? ? ? ? End With
? ? ? ? Next
End Sub

?

總結

以上是生活随笔為你收集整理的Word vba 替换的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。