错误 450 参数数量错误或 vba 上的 属性 赋值无效

Question

我想 select 使用 vba excel .docx 中的特定单词，然后用书签替换它，为此我想 select这个词所以我有这个代码

With word_fichier
        With Selection.Find
            .Forward = True
            .ClearFormatting
            .MatchWholeWord = True
            .MatchCase = False
            .Wrap = wdFindContinue
            .Execute FindText:="#tableauxvdd"
        End With
End With

但是我有 450 错误。

Answer 1

您的 Selection 指的是 Excel 而不是 Word，因为您没有限定它。您可以使用：

    With word_fichier.Application.Selection.Find
        .Forward = True
        .ClearFormatting
        .MatchWholeWord = True
        .MatchCase = False
        .Wrap = wdFindContinue
        .Execute FindText:="#tableauxvdd"
    End With

假设 word_fichier 是一个 Document 变量。