VBA從Excel復制並替換為Word中的所有內容

Question

除了在Google上尋找解決方案外，我已經為這個問題排查了幾周。

方案：我正在從特定的Excel單元格（范圍“ B2”）中復制文本字符串（ABC公司），並在Word中多次替換文本（Company_name）。 考慮將此字符串存儲在變量（Coy_name）中並運行“全部替換”指令。 代碼如下：

Sub CopyDataToWord()

Dim appWd As Word.Application
Dim wdFind As Object
Dim docWD As Word.Document
Dim CoyName As String

Set appWd = CreateObject("Word.Application")
appWd.Visible = True
Set docWD = appWd.Documents.Open("D:\Dropbox\ClassSheet.docx")

sheet1.Range("B2").Copy

'Some code which will input the string from "B2" into variable Coy_name

appWd.Selection.Find.ClearFormatting
appWd.Selection.Find.Replacement.ClearFormatting
With wdFind
    .Text = "Company_name"
    .Replacement.Text = Coy_name
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
appWd.Selection.Find.Execute Replace:=wdReplaceAll

Set appWd = Nothing
Set docWD = Nothing
Set appXL = Nothing
Set wbXL = Nothing

End Sub

這些代碼的某些起源來自我拼湊而成的其他材料，因此它們看起來可能不合適。 如果我可能在解釋自己要達到的目標時不小心，請向我提問。

Answer 1

代替這個：

sheet1.Range("B2").Copy

做這個：

Coy_name = sheet1.Range("B2").Value