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

时间:2013-04-30 03:36:07

标签: vba ms-word word-vba word-2003

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

我不能为我的生活找出如何选择和/或复制组合框,虽然它很容易在vba之外做。

到目前为止,我已经尝试将其转换为书签,似乎选择了确定,但不会复制。

ActiveDocument.Bookmarks(combo1_bm).Select
Selection.Copy

我认为它可以作为内联形状(因为它们是如何被添加的?)完成,但是选择似乎再次起作用,但复制没有。

ActiveDocument.InlineShapes(combo1).Select
Selection.Copy

关于我接下来可以尝试的任何想法?

干杯, 迈克尔

2 个答案:

答案 0 :(得分:1)

您使用书签的尝试非常好。您只需稍微扩展您的代码:

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

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

答案 1 :(得分:0)

这应该可以解决问题。

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