word vba实现打印出当前文档所有样式名称并保存在TXT中

在Word VBA（Visual Basic for Applications）中，你可以通过宏来实现这个功能。以下是一个简单的步骤描述：

1. 打开Visual Basic编辑器：在Excel或Word菜单栏上找到"开发者"选项，然后选择"Visual Basic"。

2. 创建一个新的模块（Module）：在VBE中右击，选择"插入" -> "模块"。

3. 编写代码：

Sub PrintAndSaveStyleNames()
    Dim styles As StyleRange
    Dim styleName As String
    Dim fileNum As Integer
    Dim filePath As String

    ' 获取所有样式范围
    Set styles = ActiveDocument.Styles
    
    ' 打开文本文件用于写入
    filePath = Application.GetSaveAsFilename("*.txt", _
        Prompt:="请选择保存样式名称的文件路径:", _
        FileFilter:="纯文本文件 (*.txt), *.txt")
    
    ' 如果用户取消，则退出
    If filePath = False Then Exit Sub
    
    ' 创建或打开文件
    fileNum = FreeFile
    Open filePath For Output As #fileNum
    
    ' 循环遍历每个样式并打印到文件
    For Each style In styles
        styleName = style.Name
        Print #fileNum, styleName
    Next style
    
    ' 关闭文件
    Close #fileNum
End Sub

4. 运行宏：回到Excel或Word工作界面，点击"开发工具" -> "宏" -> "PrintAndSaveStyleNames"，即可执行该宏并将样式名称保存到指定的TXT文件中。