我正在尝试将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
答案 0 :(得分:3)
为wdReplaceAll
添加Word Enumerated Const值Const wdReplaceAll = 2
宏定义后
Private Sub CommandButton1_Click()
Const wdReplaceAll = 2