將 Visio 文檔的特定頁面放入 Word 的 VB 代碼

Question

我一直在研究一個 Word 宏，其中包含一個步驟，允許用戶 select 並將 Visio 文件插入到活動的 Word 文檔中。 由於許多源 Visio 文件是多頁的，並且要放置在 Word 中的特定 Visio 繪圖可以在 Visio 文檔的任何頁面上，我需要一種方法來允許用戶 select 他們想要放置的頁面。

目前，我的 VBA 代碼使用 Appplication.FileDialog(msoFileDialogFilePicker) 為 Visio 繪圖的文件路徑 (myVisioPath) 設置一個變量，然后為 Visio 文件創建一個變量並將其插入到 Word 文檔中，如下所示：

Dim myViz As InlineShape
Set myViz = ActiveDocument.InlineShapes.AddOLEObject(ClassType:="Visio.Drawing.15", FileName:=myVisioPath, LinkToFile:=False, DisplayAsIcon:=False, Range:=Selection.Range)
myViz.Select `Selects the Visio for subsequent actions`

宏的當前工作版本選擇所選 Visio 文件第 1 頁上的任何內容。 我需要一種方法來允許用戶訪問 select 第 2 頁或第 3 頁，或 Visio 文件中目標繪圖所在的任何頁面。 目前，我正在考慮創建一個用戶表單以允許選擇頁碼，但我願意接受建議。

Answer 1

Mathieu Guindon 的帖子讓我找到了答案（本來會投票給它作為答案，但這似乎不是一個選項）。 無論如何， 在 Visio 中選擇活動頁面上發布的代碼提供了我的解決方案的基礎。 為 Visio.Application object 設置一個變量，並引用它來獲取用戶選擇的 Visio 文件的頁數（如果用戶選擇了文件中不可用的頁碼，則進行錯誤捕獲）並復制用戶選擇的頁面。