La macro di sostituzione della parola in Excel non funziona

Question

Sto cercando di inserire i miei risultati di Excel in un documento di Word Preded. Voglio usare una macro per questo.Sono abbastanza nuovo nel gioco di scrittura del codice ma capisco le basi. Ho provato a copiare da diversi corsi ma nessuno di loro funziona.

Questa semplice macro dovrebbe cambiare "x1" in "qualsiasi cosa", Ma tutto ciò che fa per me è aperto il documento e seleziona la X1 nel documento.

Qualcuno sa dove vado storto?

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

Aggiungi parola enumerata const Valore per wdreplaceall

Const wdReplaceAll = 2 

.

Dopo la definizione della macro

Private Sub CommandButton1_Click()
Const wdReplaceAll = 2

.