教师 Word 批量文档统一格式

Sub 批量统一文档格式()

Dim fd As FileDialog

Dim oDoc As Document

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd

.Filters.Clear

.Filters.Add "Word文档", "*.docx;*.doc"

.AllowMultiSelect = True

If .Show = -1 Then

For i = 1To .SelectedItems.Count

Set oDoc = Documents.Open(.SelectedItems(i))

'统一正文格式：宋体小四，1.5倍行距，首行缩进2字符

oDoc.Content.Font.Name = "宋体"

oDoc.Content.Font.Size = 12

oDoc.Content.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5

oDoc.Content.ParagraphFormat.FirstLineIndent = 24

'统一页边距

oDoc.PageSetup.TopMargin = CentimetersToPoints(2.54)

oDoc.PageSetup.BottomMargin = CentimetersToPoints(2.54)

oDoc.PageSetup.LeftMargin = CentimetersToPoints(2.5)

oDoc.PageSetup.RightMargin = CentimetersToPoints(2.5)

'页眉统一添加班级

oDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "XX班作业"

oDoc.Save

oDoc.Close

Next i

End If

End With

Set fd = Nothing

MsgBox "全部文档格式统一完成！"

End Sub