将Visio文档的特定页面放入Word的VB代码

Sub InsertVisioPageIntoWord()
    Dim visApp As Object ' Visio.Application
    Dim visDoc As Object ' Visio.Document
    Dim visPage As Object ' Visio.Page
    Dim wordApp As Object ' Word.Application
    Dim wordDoc As Object ' Word.Document
    Dim wordRange As Object ' Word.Range
    
    ' 创建Visio应用程序对象
    Set visApp = CreateObject("Visio.Application")
    
    ' 打开Visio文档
    Set visDoc = visApp.Documents.Open("C:\Path\To\Your\Visio\File.vsd")
    
    ' 获取Visio文档的特定页面
    Set visPage = visDoc.Pages("Page Name")
    
    ' 关闭Visio文档
    visDoc.Close
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 获取Word文档的光标位置
    Set wordRange = wordDoc.Range
    
    ' 将Visio页面插入到Word文档中
    visPage.Copy
    wordRange.Paste
    
    ' 关闭Visio应用程序和Word文档
    visApp.Quit
    wordDoc.Close
    
    ' 释放对象变量
    Set visPage = Nothing
    Set visDoc = Nothing
    Set visApp = Nothing
    Set wordRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub