将组合框从Word文档复制到另一个Word文档使用vba

问题描述：

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

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

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

ActiveDocument.Bookmarks(combo1_bm).Select 
Selection.Copy

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

ActiveDocument.InlineShapes(combo1).Select 
Selection.Copy

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

干杯，迈克尔

答

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

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

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

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

答

这应该可以做到。

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

将组合框从Word文档复制到另一个Word文档使用vba

相关推荐