请教：vb调用word插入文字却插到别的文档里。

Question

以前总是搜索，可是这个问题我遍搜不到，希望高手帮帮忙
vb调用word的时候，我实现的是替换功能，但是如果此时有文档已经打开，居然会替换到以前的文档中而我想要的文档纹丝不动……不知道我表述的清楚不，我想让他直接插入到我想要的文档中而不是其他的文档，怎么办。谢谢！
代码：Private Sub Command4_Click()
 Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open("E:\1.dot ")
    wdDoc.SaveAs ("E:\111.doc")    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "pinming"
        .Replacement.Text = "品名"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    wdDoc.Save
    Set wdDoc = Nothing
    Set wdApp = Nothing
    
End Sub

Answer 1

把上面的Selection前面加wdApp.
 Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  Set wdApp = CreateObject("Word.Application")
三句修改为
 Dim wdApp As New Word.Application
  Dim wdDoc As New Word.Document
昨晚喝多酒了,回复失当,请谅解!