vba - 使用 vba 将 ComboBox 从 Word 文档复制到另一个 Word 文档

Question

我在 word 文档中有一个组合框 (combo1)，我想将它复制到另一个 word 文档中。（结束游戏将循环播放 100 个文档）。

我一生都无法弄清楚如何选择和/或复制组合框，尽管它在 vba 之外很容易做到。

到目前为止，我已经尝试将其变成书签，似乎选择了 ok，但不会复制。

ActiveDocument.Bookmarks(combo1_bm).Select
Selection.Copy

我认为它可以作为内联形状完成（因为它们就是这样添加的？），但是选择似乎再次起作用，但复制不起作用。

ActiveDocument.InlineShapes(combo1).Select
Selection.Copy

关于下一步我可以尝试什么的任何想法？

干杯，迈克尔

Answer 1

您对书签的尝试非常好。您只需要稍微扩展您的代码：

ActiveDocument.Bookmarks("combo1_bm").Range.Copy
....
Selection.Paste        'or different pasting procedure

请记住，您不需要在复制之前选择对象。试着按照我上面展示的那样做。此外，不要错过名称的引号或使用书签索引来使用适当的名称。Copy method将在书签范围内复制并保持原始书签不变。

Answer 2

这应该可以解决问题。

Set ComboBox1Range = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("combo1_bm").Range.Start - 1, _
                             End:=ActiveDocument.Bookmarks("combo1_bm").Range.End)
ComboBox1Range.Expand Unit:=wdParagraph
ComboBox1Range.Copy