使用 VBA 将 ContentControl 从一个表格单元格复制到 Word 中同一表格中的另一个表格单元格

Question

我正在尝试将 ContentControl 从单词表中的单元格复制到同一单词表中的另一个单元格。 我了解一些 Excel VBA，但很少了解 Word VBA。 下面的代码应该将单元格 2,4 中的 ContentControl 复制到同一个表中的单元格 44,4。 下面的代码在最后一行给出以下错误“运行时错误'5941'，请求的集合成员不存在”。

如有任何帮助，我们将不胜感激。

Sub CopyContentControl()
Dim OCC As ContentControl
Set OCC = ActiveDocument.Tables(1).Cell(2, 4).Range.ContentControls(1)
ActiveDocument.Tables(1).Cell(44, 4).Range.ContentControls(1) = OCC
End Sub

Answer 1

如果源单元格中的唯一内容是其内容控件，那么您需要的是：

Sub CopyContentControl()
With ActiveDocument.Tables(1)
  .Cell(44, 4).Range.FormattedText = .Cell(2, 4).Range.FormattedText
End With
End Sub

如果源单元格中有其他内容您不想复制，您可以使用：

Sub CopyContentControl()
With ActiveDocument.Tables(1)
  .Cell(44, 4).Range.FormattedText = .Cell(2, 4).Range.ContentControls(1).Range.FormattedText
End With
End Sub