批量Word文档格式标准化VBA模块错误排查咨询

代码存在的核心错误 #

• 路径拼接错误：原代码中fileName = Dir(folderPath & "*.docx")的路径拼接缺少路径分隔符\，若folderPath末尾无斜杠，会生成D:\VIDEOS\TEST*.docx这类无效路径，导致无法正确遍历目标文件夹内的文档。
• 未识别Word内置常量：因采用后期绑定（CreateObject("Word.Application")），VBA无法自动识别wdAlignParagraphJustify这类Word内置常量，会触发编译错误，需替换为常量对应的数值或手动定义。

修正后的完整代码 #

Sub ConvertMultipleDocumentsFont()
    Dim folderPath As String
    Dim fileName As String
    Dim wdApp As Object, wdDoc As Object
    Dim para As Object
    ' 手动定义Word两端对齐常量（后期绑定需显式声明）
    Const wdAlignParagraphJustify As Integer = 1

    folderPath = "D:\VIDEOS\TEST" ' 修改为你的目标文件夹路径
    ' 确保路径末尾带有分隔符，避免拼接错误
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
    
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False
    fileName = Dir(folderPath & "*.docx")

    Do While fileName <> ""
        Set wdDoc = wdApp.Documents.Open(folderPath & fileName)
        ' 遍历所有段落统一设置格式
        For Each para In wdDoc.Paragraphs
            para.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
            para.Range.Font.Name = "Montserrat SemiBold"
            para.Range.Font.Size = 14            
        Next para
        wdDoc.Save
        wdDoc.Close
        fileName = Dir
    Loop

    wdApp.Quit
    Set wdApp = Nothing
End Sub

额外注意事项 #

若运行时出现权限报错，需确保目标文件夹有读写权限，且待处理文档未被其他程序锁定；如果需要覆盖文本框、表格内的文本格式，需额外添加对应对象的遍历逻辑。

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