[英]How to copy a drawing from a Visio page to Word document
我正在 Visio 中制作一个工具来绘制电子设计。 完成后,应将这些设计复制到 Word 文档中,以便进一步撰写和描述设计。 我正在努力使用 Visio 中的 VBA 代码将 Visio 页面复制到 word 文档中。 最好我会打开一个现有的 word 模板并在给定的 Word HEADING 左右之后复制 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
结束子
Paste方法出现在Range
等许多类中,因此您只需找到其中一个。 Document
的Content属性将为您提供Range
,但您可以根据要插入 object 的位置来更改它。
您可能还会发现添加对 Word object model 的引用更容易(通过工具/参考/Microsoft Word)。
无论如何,有一个 go :
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
(您从 window 中获得的选择也可以在这里使用)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.