Question

我正在尝试使用查找和替换宏来查找基于自定义样式的选择。

我测试了我正在使用内置样式（例如Heading 1或Subtle Quote），并且运行查找和替换没有问题。您只需在InlineAR之后将Heading 1替换为ActiveDocument.Styles ("。

但是，我的问题是，当我创建一个名为“InlineAR”的自定义样式并在VBA中引用该名称时（ActiveDocument.Styles ("InlineAR")，我的宏不会在任何文本之前添加"\textArabic"代码段采用InlineAR自定义样式设计。

问题代码：

Sub LaTeXStylingTextArabic()
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("InlineAR")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = ""
    .Replacement.Text = "\textArabic{^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

VBA Word - VBA无法找到我制作的自定义样式

0 个答案: