在Excel中的单词replacemacros不起作用

我正在尝试将我的Excel结果input到预先创build的Word文档中。 我想用这个macros。 我对代码写作游戏相当陌生，但是我理解基础知识。 我试图从不同的课程复制，但没有任何作品。

这个简单的macros应该改变'x1'为'任何'，但它所做的只是打开文档并select文档中的x1。

有谁知道我哪里错了？

Private Sub CommandButton1_Click() Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Open("C:\Users\mycomputer\Documents\PremadeDocument.docx") wrdApp.Selection.Find.ClearFormatting wrdApp.Selection.Find.Replacement.ClearFormatting With wrdApp.Selection.Find .Text = "x1" .Replacement.Text = "anything" ' .Forward = True .Wrap = wdFindContinue ' .Format = False ' .MatchCase = False ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False End With wrdApp.Selection.Find.Execute Replace:=wdReplaceAll Set wrdDoc = Nothing Set wrdApp = Nothing End Sub 

Answer 1

为wdReplaceAll添加Word Enumerated Const值

 Const wdReplaceAll = 2 

macros定义之后

 Private Sub CommandButton1_Click() Const wdReplaceAll = 2