MS-Word中通配符搜索/替换在VBA/宏允许的文档中的行为改变（@通配符不起作用）

问题产生的原因在于MS-Word 2013开始默认不支持@通配符，需要手动启用。以下是一种解决方案，可将其添加到宏中：

Sub EnableAtWildcard() Application.Options.UseWildcards = True Application.Options.FuzzyMatchOn = True Application.Options.MatchAlefHamza = True End Sub

在需要使用@通配符的地方，可以先运行上述宏启用此功能，然后再执行搜索/替换的操作。例如，以下代码使用@通配符搜索所有三个字符组成的单词：

Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Call EnableAtWildcard With Selection.Find .Text = "<@{3}>" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll

这将替换文档中所有符合条件的单词。需要注意的是，使用通配符搜索/替换可能会增加执行时间和操作复杂度。