excel中的单词替换宏不起作用

时间:2014-07-29 12:30:05

标签: excel vba replace ms-word word-vba

我正在尝试将Excel结果输入到预先制作的Word文档中。 我想为此使用一个宏。我是代码编写游戏的新手,但我理解基础知识。 我试图从不同的课程复制,但没有一个工作。

这个简单的宏应该将'x1'改为'任何', 但它为我所做的只是打开文档并在文档中选择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

1 个答案:

答案 0 :(得分:3)

为wdReplaceAll

添加Word Enumerated Const
Const wdReplaceAll = 2 

宏定义后

Private Sub CommandButton1_Click()
Const wdReplaceAll = 2