word自动编号转文本

有时候我们读取word文件，目录是自动生成的，格式复杂多变。

如果把自动生成的目录格式转换成文本格式，则要好处理得多。

1、创建一个.docm格式word文件

2、打开docm文件，打开开发工具-visual Basic

3、添加如下代码

Private Sub Document_New()

    Dim path As String
    Dim fileName As String
    Dim doc As Document
    Dim fileDir As String
    
    fileDir = "D:\你的目录"
    fileName = dir(fileDir & "\*.docx", vbNormal)
    Do Until fileName = ""
       Set doc = Documents.Open(fileDir & "\" & fileName)
       doc.Activate
            Dim kgslist As List
            For Each kgslist In doc.Lists
            kgslist.ConvertNumbersToText
            Next
       doc.Close True
       fileName = dir()
    Loop
    'Dim kgslist As List
    'For Each kgslist In ActiveDocument.Lists
    'kgslist.ConvertNumbersToText
    'Next
End Sub

4、点击绿色小箭头运行即可