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