在 Word 尾注中搜索文本
Search for text in Word Endnotes
您好:我正在尝试在 Word 中执行常规搜索或通配符搜索,特别是在尾注中。
这是我要搜索的内容:
[尾注参考][space][正文....][:]
下面是尾注的示例:
12 我的尾注中以冒号结尾的文本:更多文本,但不是我想要的。
所以我想做的是 select 尾注参考 + space 之后的所有文本(加上冒号)(即我的尾注中以冒号结尾的文本:) 并添加 bold/italics。
我尝试使用我搜索的高级搜索:
^e^?: --> 不起作用(我想让“任何字符”成为一堆字符,直到到达 : 为止)
通配符搜索不允许使用 ^e 所以我尝试了:
*L --> 让路太多,然后也不起作用。
非常感谢任何反馈。我可以在 Perl 中完成此操作,但不能在 Word 中完成。
提前致谢!
为此您不需要正则表达式。您只需要一个 通配符 查找,其中:
Find = ^2 [!^13]@:
将 VBA 用于您要执行的操作:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.StoryRanges(wdEndnotesStory)
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^2 [!^13]@:"
.Replacement.Text = ""
.Forward = True
.Format = False
.Wrap = wdFindStop
.MatchWildcards = True
End With
Do While .Find.Execute
.Start = .Endnotes(1).Range.Start
.Style = "MyBoldItalicCharacterStyle"
.Collapse wdCollapseEnd
Loop
End With
Application.ScreenUpdating = True
End Sub
您好:我正在尝试在 Word 中执行常规搜索或通配符搜索,特别是在尾注中。 这是我要搜索的内容: [尾注参考][space][正文....][:]
下面是尾注的示例: 12 我的尾注中以冒号结尾的文本:更多文本,但不是我想要的。
所以我想做的是 select 尾注参考 + space 之后的所有文本(加上冒号)(即我的尾注中以冒号结尾的文本:) 并添加 bold/italics。 我尝试使用我搜索的高级搜索: ^e^?: --> 不起作用(我想让“任何字符”成为一堆字符,直到到达 : 为止) 通配符搜索不允许使用 ^e 所以我尝试了: *L --> 让路太多,然后也不起作用。
非常感谢任何反馈。我可以在 Perl 中完成此操作,但不能在 Word 中完成。 提前致谢!
为此您不需要正则表达式。您只需要一个 通配符 查找,其中:
Find = ^2 [!^13]@:
将 VBA 用于您要执行的操作:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.StoryRanges(wdEndnotesStory)
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^2 [!^13]@:"
.Replacement.Text = ""
.Forward = True
.Format = False
.Wrap = wdFindStop
.MatchWildcards = True
End With
Do While .Find.Execute
.Start = .Endnotes(1).Range.Start
.Style = "MyBoldItalicCharacterStyle"
.Collapse wdCollapseEnd
Loop
End With
Application.ScreenUpdating = True
End Sub