☰

使用 Excel VBA 取代標題文本

tag-icon • tag-icon microsoft-excel microsoft-word vba visual-studio-code
使用 Excel VBA 取代標題文本

我正在嘗試修改當前的程式碼以替換 MSWord 文件中的指定單字。整個想法是有效的，但僅適用於文件的正文，頁首或頁尾中沒有任何反應。你能告訴我我錯在哪裡嗎？

先感謝您！

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)

WordApp.ActiveDocument.Range.Find.Execute FindText:=FindWord, Wrap:=1, ReplaceWith:=ReplaceWord, Replace:=2
End Sub

答案1

嘗試：

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)
Dim oStory as WordApp.Range
For Each oStory in WordApp.ActiveDocument.StoryRanges
    oStory.Find.Execute _
        FindText:=FindWord, ReplaceWith:=ReplaceWord, Wrap:=1, Replace:=2
Next oStory
Set oStory = Nothing
End Sub

相關內容