怎样用VB代码实现查找替换word页眉里的文字

 我来答

1个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

仲疏兰rC
2017-07-15 · TA获得超过168个赞

知道小有建树答主

回答量：292

采纳率：100%

帮助的人：48.8万

我也去答题访问个人页

关注

展开全部

参考这个代码替换页眉里的文字(注意这个代码只适用于奇偶页眉相同的情形):Sub ReplaceAllInHeader(strFind As String, strReplace As String) Dim oStoryRange As Range Set oStoryRange = ActiveDocument.StoryRanges(wdPrimaryHeaderStory) oStoryRange.Find.ClearFormatting oStoryRange.Find.Replacement.ClearFormatting With oStoryRange.Find .Text = strFind .Replacement.Text = strReplace .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With oStoryRange.Find.Execute Replace:=wdReplaceAllEnd Sub如果想针对全文进行替换(包括正文、普通页眉、奇偶页眉、普通页码、奇偶页码、脚注、尾注等等):Sub ReplaceAll(strFind As String, strReplace As String) Dim oStoryRange As Range For Each oStoryRange In ActiveDocument.StoryRanges oStoryRange.Find.ClearFormatting oStoryRange.Find.Replacement.ClearFormatting With oStoryRange.Find .Text = strFind .Replacement.Text = strReplace .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With oStoryRange.Find.Execute Replace:=wdReplaceAll Next End Sub