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 = wdAlignParagraphCenterEnd IfNext i' 保存并关闭文档当前文档.Save当前文档.CloseSet 当前文档 = Nothing ' 释放对象' 获取下一个文档文件名 = Dir()LoopMsgBox "处理完成！", vbInformationEnd Sub
