☰

헤더 텍스트를 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

관련 정보