Ms word 在Word尾注中搜索文本
您好:我正在尝试在Word中执行常规搜索或通配符搜索,特别是在尾注中。 以下是我正在搜索的内容: [尾注参考][空格][正文..][:] 下面是尾注的示例: 尾注中以冒号结尾的12个文本:更多文本,但不是我想要的 因此,我要做的是选择尾注引用+空格后面的所有文本(加冒号)(即尾注中以冒号结尾的文本:)并添加粗体/斜体。 我已尝试使用advance search在其中搜索: ^e^?:-->不起作用(我想让“任意字符”变成一堆字符,直到达到:为止) 通配符搜索不允许使用^e,因此我尝试: *L-->这会让人太多,然后也不起作用 非常感谢您的反馈。我可以用Perl实现这一点,但不能用Word。Ms word 在Word尾注中搜索文本,ms-word,wildcard,Ms Word,Wildcard,您好:我正在尝试在Word中执行常规搜索或通配符搜索,特别是在尾注中。 以下是我正在搜索的内容: [尾注参考][空格][正文..][:] 下面是尾注的示例: 尾注中以冒号结尾的12个文本:更多文本,但不是我想要的 因此,我要做的是选择尾注引用+空格后面的所有文本(加冒号)(即尾注中以冒号结尾的文本:)并添加粗体/斜体。 我已尝试使用advance search在其中搜索: ^e^?:-->不起作用(我想让“任意字符”变成一堆字符,直到达到:为止) 通配符搜索不允许使用^e,因此我尝试: *L--
提前谢谢 这不需要正则表达式。您只需要一个通配符查找,其中:
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
那很有魅力!非常感谢您的回复,我会给您一个五星级的评级!«我会给你一个五星级评分»更好的是,勾选我答案旁边的复选框,以便将其标记为接受答案。成功了!如果通过了,请告诉我。再次感谢!成功了,谢谢。