所有文档每页的第一行居中对齐

Sub 所有文档每页的第一行居中对齐()

    文件夹路径 = "C:\Users\你的用户名\Desktop\批量办公项目库\物业\第二次\300元含以下的住户\"
    ' 获取文件夹中第一个Word文档
    文件名 = Dir(文件夹路径 & "*.doc*")
    
    Do While 文件名 <> ""
        ' 打开文档并赋值给文档对象
        Set 当前文档 = Documents.Open(文件夹路径 & 文件名)
        
        ' 获取总页数
        总页数 = 当前文档.Range.Information(wdNumberOfPagesInDocument)
        
        ' 循环处理每一页
        For i = 1 To 总页数
            ' 定位到第i页开头
            Set 位置 = 当前文档.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i)
            
            ' 确保该位置有段落再设置对齐方式
            If 位置.Paragraphs.Count >= 1 Then
                位置.Paragraphs(1).Alignment = wdAlignParagraphCenter
            End If
        Next i
        
        ' 保存并关闭文档
        当前文档.Save
        当前文档.Close
        Set 当前文档 = Nothing  ' 释放对象
        
        ' 获取下一个文档
        文件名 = Dir()
    Loop
    MsgBox "处理完成！", vbInformation
   
End Sub