将 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 文件的页数（如果用户选择了文件中不可用的页码，则进行错误捕获）并复制用户选择的页面。