Visio多页面下如何指定VBA宏的数据源页面？

你的思路方向是对的，但大概率是宏里的一些细节没处理到位，导致Set vsoPage = ActiveWindow.Page没有生效，下面一步步帮你排查和解决：

1. 先排查宏中是否存在硬编码指定Page 1的代码 #

很多时候，最初写的宏会直接硬编码指定页面，比如类似下面的语句：

Set vsoPage = ThisDocument.Pages(1) ' 按索引取第一页
' 或者
Set vsoPage = ThisDocument.Pages("Page 1") ' 按名称取Page 1

如果你的宏里有这类代码，而且它的执行顺序在Set vsoPage = ActiveWindow.Page之后，或者后续收集数据的逻辑用的是这个硬编码的变量，那你的活跃页设置就会被覆盖，导致还是导出Page 1的数据。

解决方法：把所有硬编码指定Page的语句替换成Set vsoPage = ActiveWindow.Page，或者确保你的活跃页设置语句在所有硬编码语句之后执行，并且后续代码都使用这个vsoPage变量。

2. 确认Set vsoPage = ActiveWindow.Page的位置是否正确 #

这个语句必须放在所有收集形状数据的代码之前，也就是在你开始遍历形状、读取元信息的逻辑之前。举个正确的宏结构示例：

Sub ExportToWord()
    Dim vsoPage As Visio.Page
    ' 先设置当前活跃页，这一步必须在数据收集前
    Set vsoPage = ActiveWindow.Page
    
    ' 调试用：弹出当前页面名称，确认是否取到正确的页
    MsgBox "正在处理页面：" & vsoPage.Name
    
    ' 接下来是收集形状数据的逻辑，必须遍历vsoPage.Shapes
    Dim shp As Visio.Shape
    For Each shp In vsoPage.Shapes
        ' 这里写你的形状数据收集代码
        Debug.Print shp.Name & " - " & shp.Text
    Next shp
    
    ' 后续导出到Word的代码...
End Sub

如果你的设置语句放在数据收集之后，那前面的逻辑还是会用默认的Page 1，自然不会生效。

3. 额外的注意事项 #

• 如果宏运行时Visio窗口没有获得焦点（比如当前焦点在Word），ActiveWindow可能会报错，这种情况可以改用ThisDocument.ActivePage，它取的是文档的活跃页，和当前窗口显示的页基本一致：

  Set vsoPage = ThisDocument.ActivePage
  

• 检查是否有子过程/函数硬编码了Page 1：如果你的数据收集逻辑拆分成了单独的函数，要确保这个函数接收你传入的vsoPage参数，而不是自己内部指定页面。比如把函数改成：

  ' 正确：传入页面参数
  Function CollectShapeData(targetPage As Visio.Page) As Collection
      Dim dataCol As New Collection
      Dim shp As Visio.Shape
      For Each shp In targetPage.Shapes
          ' 收集数据并添加到dataCol
      Next shp
      Set CollectShapeData = dataCol
  End Function
  

  然后在主过程里调用Set shapeData = CollectShapeData(vsoPage)。

总结 #

你写的Set vsoPage = ActiveWindow.Page代码本身是正确的，问题大概率出在：

• 宏中存在其他硬编码指定Page 1的语句，覆盖了你的设置
• 该语句的位置不对，没有在数据收集逻辑之前执行
• 后续收集数据的代码没有使用这个vsoPage变量

按照上面的步骤排查调整后，应该就能让宏正确处理当前活跃的Page 2了。

内容的提问来源于stack exchange，提问作者user2578510