0

我叔叔一直在使用 WordBasic 模板，无法更新他的电脑。他正在 Word 2011 上运行宏。尝试将宏添加到 Word 365 时，我们收到以下错误消息：运行时错误“102”

调试时，我们在命令 MatchCase 中收到错误

WordBasic.EditReplaceStyle Style:="Título 5"
WordBasic.WW2_EditReplace Find:="", Replace:="", WholeWord:=0, _
MatchCase:=0, Format:=1, ReplaceAll:=1
WordBasic.EditFindStyle Style:="Título 2"

这可能是很多错误中的第一个，所以我想从右脚开始。比

4

1 回答 1

1

你叔叔的宏只是做一个查找和替换。替换的 VBA 代码可以是这样的：

Sub FindReplaceHeading2()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Style = ActiveDocument.Styles(wdStyleHeading2)
        .Replacement.ClearFormatting
        .Replacement.Style = ActiveDocument.Styles(wdStyleHeading5)
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub
于 2021-07-01T07:29:06.150 回答