使用以下VBA代码在Word中查找“@1”并将其选中。此代码将查找并选中当前Word文档中所有的“@1”。

最新推荐文章于 2024-09-28 12:46:54 发布

weixin_41334129

最新推荐文章于 2024-09-28 12:46:54 发布

阅读量744

点赞数 9

文章标签： excel word 经验分享

本文链接：https://blog.csdn.net/weixin_41334129/article/details/135712720

版权

本文介绍了如何使用VBA编写一个名为SubSelectAllText的宏，该宏在MicrosoftWord文档中查找并选择所有匹配特定字符串(@1)的内容，如果没有找到则给出提示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub SelectAllText()
Dim rng As Range
Dim found As Boolean
found = False

'遍历文档内容查找@1
For Each rng In ActiveDocument.StoryRanges
With rng.Find
.Text = "@1"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceNone
End With

'如果找到@1，将其选中并设置标志位为True
If rng.Find.Found Then
rng.Select
found = True
End If
Next rng

'如果未找到@1，给出提示信息
If Not found Then
MsgBox "未找到@1"
End If
End Sub