如何将绘图从Visio页复制到Word文档

Question

我正在用Visio制作一个绘制电子设计的工具。完成后，这些设计应复制到word文档中，以便进一步撰写和描述设计。我正在努力使用Visio中的VBA代码将Visio页复制到word文档中。最好是打开现有的word模板，然后在给定的Word标题后复制Visio设计，但目前我只能创建一个新的空word文档，但找不到引用该word文档的方法。

谁能帮我把选定的图表粘贴到word应用程序中？这就是我正在纠结的Visio代码：

Public Sub CopyVsoPgToWord()
   Dim objWord
   Dim objDoc
   Dim vsoPage As Visio.Page
   Dim DocName As String
   
   Set objWord = CreateObject("Word.Application")
   objWord.Visible = True
   Set objDoc = objWord.Documents.Add

   ActiveWindow.SelectAll
   Application.ActiveWindow.Selection.Copy
   With objDoc
      .Paste  'this doesnt work
      'past the Visio diagram into word page 2
   End With

结束子对象

Answer 1

Paste方法出现在许多像Range这样的类上，所以您只需要找到其中的一个。Document的Content属性将为您提供一个Range，但是您可以根据您希望插入对象的位置对其进行更改。

您可能还会发现更容易添加对Word对象模型的引用(通过Tools / References / Microsoft Word)。

不管怎样，试着这样做：

   Dim wdApp As Word.Application
   Dim wdDoc As Word.Document
   
   Set wdApp = CreateObject("Word.Application")
   wdApp.Visible = True
   Set wdDoc = wdApp.Documents.Add("C:\Program Files (x86)\Microsoft Office\root\Templates\1033\OriginReport.Dotx")

   Dim vApp As Visio.Application
   Dim vSel As Visio.Selection
   
   Set vApp = Visio.Application
   
   Set vSel = vApp.ActivePage.CreateSelection(visSelTypeAll, Visio.VisSelectMode.visSelModeSkipSuper)
   vSel.Copy
   
   wdDoc.Content.Paste

(您从窗口中获取选择也将在此处生效)