批量处理Visio文件：如何用Python/VBA实现形状同窗口打开？

核心说明 #

Visio中“所有形状在同一窗口中打开”是应用级设置，对应API属性Application.Settings.SingleWindow，而非文档级属性。之前的脚本错误地尝试修改文档属性，以下是两种可行方案：

方案1：一次性设置Visio应用全局模式（永久生效） #

设置后所有后续打开的Visio文件都会自动将形状窗口嵌入主窗口，无需逐个处理文件。

Python实现 #

import os
import win32com.client

directory = "C:\\Users\\User\\Documents\\Designs"

def process_visio_files(directory):
    print("Visio Started.")
    visio = win32com.client.Dispatch("Visio.Application")
    # 启用单窗口模式（核心设置）
    visio.Settings.SingleWindow = True
    visio.Settings.Save()  # 永久保存设置，重启Visio依然生效
    visio.Visible = False  # 后台运行，避免弹窗干扰

    for root, dirs, files in os.walk(directory):
        if "Archiv" in root:
            continue
        for file in files:
            if file.endswith('.vsdx'):
                print(f"Processing file: {file}")
                full_path = os.path.join(root, file)
                try:
                    document = visio.Documents.Open(full_path)
                    # 关闭文件关联的非主窗口（模具、形状Sheet等）
                    for win in visio.Windows:
                        if win.Type != 1 and win.Document.Name == document.Name:
                            win.Close()
                    document.Save()
                    document.Close()
                except Exception as e:
                    print(f"Error processing {file}: {str(e)}")
    visio.Quit()

process_visio_files(directory)

VBA实现 #

Sub SetSingleWindowModeAndProcessFiles()
    Dim rootFolder As String
    rootFolder = "C:\Users\User\Documents\Designs\"
    
    Dim visioApp As Object
    On Error Resume Next
    Set visioApp = GetObject(, "Visio.Application")
    On Error GoTo 0
    
    If visioApp Is Nothing Then
        Set visioApp = CreateObject("Visio.Application")
        visioApp.Visible = False
    End If
    
    ' 启用全局单窗口模式并保存设置
    visioApp.Settings.SingleWindow = True
    visioApp.Settings.Save
    
    ProcessFolder visioApp, rootFolder
    visioApp.Quit
End Sub

Sub ProcessFolder(visioApp As Object, folderPath As String)
    Dim fs As Object
    Dim folder As Object
    Dim subfolder As Object
    Dim file As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' 处理当前文件夹文件
    For Each file In fs.GetFolder(folderPath).Files
        If LCase(file.Name) Like "*.vsdx" Then
            Debug.Print "Processing file: " & file.Path
            ProcessVisioFile visioApp, file.Path
        End If
    Next file
    
    ' 递归处理子文件夹
    For Each subfolder In fs.GetFolder(folderPath).SubFolders
        If InStr(1, subfolder.Name, "Archiv", vbTextCompare) = 0 Then
            ProcessFolder visioApp, subfolder.Path
        Else
            Debug.Print "Skipping 'Archiv' subfolder: " & subfolder.Path
        End If
    Next subfolder
End Sub

Sub ProcessVisioFile(visioApp As Object, filePath As String)
    Dim doc As Object
    Dim win As Object
    
    On Error Resume Next
    Set doc = visioApp.Documents.Open(filePath, ReadOnly:=False)
    On Error GoTo 0
    
    If doc Is Nothing Then
        Debug.Print "无法打开只读文件：" & filePath
        Exit Sub
    End If
    
    DoEvents ' 等待文件加载完成
    
    ' 关闭当前文件的非主窗口
    For Each win In visioApp.Windows
        If win.Type <> 1 And win.Document.Name = doc.Name Then
            On Error Resume Next
            win.Close
            On Error GoTo 0
        End If
    Next win
    
    doc.Save
    doc.Close
    Set doc = Nothing
End Sub

方案2：临时处理单文件（针对只读文件） #

如果无法修改应用全局设置，可在打开文件时强制关闭独立形状窗口：

Sub CloseShapeWindowsForFile(filePath As String)
    Dim visioApp As Object
    Dim doc As Object
    Dim win As Object
    
    On Error Resume Next
    Set visioApp = GetObject(, "Visio.Application")
    If visioApp Is Nothing Then Set visioApp = CreateObject("Visio.Application")
    On Error GoTo 0
    
    Set doc = visioApp.Documents.Open(filePath, ReadOnly:=True)
    DoEvents
    
    For Each win In visioApp.Windows
        ' 关闭模具窗口(2)、形状Sheet窗口(3)等非主窗口
        If win.Type >= 2 And win.Document.Name = doc.Name Then
            win.Close
        End If
    Next win
    
    doc.Close
    visioApp.Quit
End Sub

关键提示 #

• SingleWindow属性设置为True后，Visio会将所有形状、模具窗口嵌入主应用窗口，完全匹配“选项>高级>所有形状在同一窗口中打开”的效果。
• 应用级设置通过Settings.Save()永久保存，无需重复设置。
• 只读文件无法保存修改，但全局设置会让后续打开时自动使用单窗口模式。

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