2013-04-30 149 views
0

我在word文档中有一个组合框(combo1),我想将它复制到另一个word文档。 (最终游戏将循环100次的文档)。将组合框从Word文档复制到另一个Word文档使用vba

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

到目前为止,我已经尝试将它变成书签,似乎选择确定,但不会复制。

ActiveDocument.Bookmarks(combo1_bm).Select 
Selection.Copy 

我认为这将能够为嵌入式图形做(因为这是他们是如何加入?),但再次选择似乎工作,但副本不。

ActiveDocument.InlineShapes(combo1).Select 
Selection.Copy 

关于我可以尝试下一步的任何想法?

干杯, 迈克尔

回答

1

你带书签的尝试是相当不错的。你只需要扩展你的代码:

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

请记住,在复制之前不需要选择对象。只是尝试按照上面的方式进行操作。此外,不要错过名称的引号或使用书签索引以适当地使用书签索引。 Copy method将复制书签的范围内并保持原始书签不变。

+0

谢谢,它的确行得通! 但是,由于一些奇怪的原因,书签需要包含整个行+上面的行。 – 2013-04-30 20:37:27

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 
相关问题