見出し文字列を出力する

2021.01.17

開いている文書の見出し文字列をイミディエイトウィンドウに出力します。

Sub 見出し文字列を出力()
    
    Dim par As Paragraph
    For Each par In ActiveDocument.Paragraphs
        If par.OutlineLevel <> wdOutlineLevelBodyText Then
            '見出し9以下（特定見出し以下にしたいときに数字を変更）
            If par.OutlineLevel <= 9 Then
                  Debug.Print Replace(par.Range.Text, vbCr, &quot;&quot;)
            End If
        End If
    Next par
    
End Sub
タイトルとURLをコピーしました