如何将文本从一个Word文档拉到另一个文档？

如何解决如何将文本从一个Word文档拉到另一个文档？

我正在尝试将内容从excel电子表格以及word模板提取到另一个模板中。我在电子表格中将命名范围与单词模板标签以及与目标标签匹配的源文档标签相匹配。 excel文档中的所有内容都已成功转移，但是我很难将word文档文本转移过来。标签的开头说明信息是位于excel doc还是word doc中。

PC_适用于excel（全部可用）PCM_适用于Word。 pc.word doc是所有内容都应转移到的模板。确实弹出消息框，提示“是”，所以我知道内容控件​​选择了正确的类型，但是这些文本都没有转移过来。您对这里的代码有什么疑问吗？

Sub PCExample()

Dim CS As Workbook
Dim wrd As Word.Application
Dim wrdm As Word.Application
Dim pc As Word.Document
Dim pcm As Word.Document
Dim CC As ContentControl
Dim CCTag As String
Dim CStxt As String
Dim PCMtxt As String

Set CS = ThisWorkbook

Set wrdm = CreateObject("Word.Application")
wrdm.displayAlerts = 0
wrdm.Visible = True
Set pcm = wrdm.Documents.Open("FilePath",ReadOnly:=True)

Set wrd = CreateObject("Word.Application")
wrd.displayAlerts = 0
wrd.Visible = True
Set pc = wrd.Documents.Open("FilePath",ReadOnly:=True)


For Each CC In pc.ContentControls
    On Error Resume Next
    CCTag = CC.Tag
    If CCTag <> "" And Left(CCTag,3) = "PC_" Then
        CStxt = Range(CCTag)

            If CC.Type = wdContentControlRichText Or CC.Type = wdContentControlText Then
                CC.Range.Text = CStxt

            ElseIf CC.Type = wdContentControlComboBox Or CC.Type = wdContentControlDropdownList Then
                CC.DropdownListEntries.Item(CStxt).Select

            ElseIf CC.Type = wdContentControlCheckBox Then
                    CC.Checked = False
                If CStxt = "True" Then
                    CC.Checked = True
                ElseIf CStxt = "False" Then
                    CC.Checked = False
                Else
                    CC.Checked = False
                End If
            End If
    ElseIf CCTag <> "" And Left(CCTag,4) = "PCM_" Then
        PCMtxt = pcm.ContentControls(CCTag).Range.Text
            If CC.Type = wdContentControlRichText Or CC.Type = wdContentControlText Then
                MsgBox "Yay"
                CC.Range.Text = PCMtxt
            End If
    End If
Next CC
  

End Sub