Word 上級活用ガイド｜差し込み印刷・VBAマクロ・長文文書管理を完全解説

Sub UnifyFont()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        para.Range.Font.Name = "游ゴシック"
        para.Range.Font.Size = 11
    Next para
    MsgBox "フォントを統一しました"
End Sub

Sub ListHeadings()
    Dim para As Paragraph
    Dim result As String
    result = ""
    For Each para In ActiveDocument.Paragraphs
        If para.Style = "見出し 1" Then
            result = result & "▶ " & para.Range.Text & vbCrLf
        End If
    Next para
    MsgBox result, vbInformation, "見出し一覧"
End Sub

Sub SaveAsPDF()
    Dim savePath As String
    savePath = Environ("USERPROFILE") & "\Desktop\" _
               & ActiveDocument.Name & ".pdf"
    ActiveDocument.ExportAsFixedFormat _
        OutputFileName:=savePath, _
        ExportFormat:=wdExportFormatPDF
    MsgBox "PDF を保存しました: " & savePath
End Sub

Sub BatchAddHeader()
    Dim folderPath As String
    Dim fileName As String
    Dim doc As Document
    folderPath = "C:\Users\username\Documents\reports\"
    fileName = Dir(folderPath & "*.docx")
    Do While fileName <> ""
        Set doc = Documents.Open(folderPath & fileName)
        With doc.Sections(1).Headers(wdHeaderFooterPrimary).Range
            .Text = "社外秘　" & doc.Name
            .Font.Size = 9
            .Font.Color = RGB(150, 150, 150)
        End With
        doc.Save
        doc.Close
        fileName = Dir
    Loop
    MsgBox "処理が完了しました"
End Sub