【Wordマクロ】文中の文字、単語、文、段落を取得するサンプル

Wordマクロのサンプル、文中から、Wordの解釈する文字、単語、文、段落を取得させるサンプル

各々のオブジェクトにそってRangeオブジェクトを取得させるようにしている。

サンプルとしては、通し番号、オブジェクトの開始位置(文字、単語、文、段落の開始位置)とオブジェクトの終了位置(文字、単語、文、段落の終了位置)、オブジェクト内の文字列(文字、単語、文、段落)を出力させている。

ちょっと、Wordの概念とオブジェクトが見えてきた。

Sub 文中の文字を取得1()

    Debug.Print "文字数=" & Me.Words.Count
    Dim r As Range
    Dim i As Integer
    For Each r In Me.Characters
        Debug.Print i & "字" & "," & r.Start & "," & r.End; "," & r.Text
        i = i + 1
    Next r
End Sub

Sub 文中の単語を取得1()

    Debug.Print "文字数=" & Me.Words.Count
    Dim r As Range
    Dim i As Integer
    For Each r In Me.Words
        Debug.Print i & "文字" & "," & r.Start & "," & r.End; "," & r.Text
        i = i + 1
    Next r
End Sub

Sub 文中の文を取得1()

    Debug.Print "文字数=" & Me.Words.Count
    Dim r As Range
    Dim i As Integer
   
    For Each r In Me.Sentences
        Debug.Print i & "文" & "," & r.Start & "," & r.End; "," & r.Text
        i = i + 1
    Next r
End Sub

Sub 文中の段落を取得1()

    Debug.Print "文字数=" & Me.Words.Count
    Dim p As Paragraph
    Dim r As Range
    Dim i As Integer
   
    For Each p In Me.Paragraphs
        Set r = p.Range
        Debug.Print i & "段落" & "," & r.Start & "," & r.End; "," & r.Text
        i = i + 1
   
    Next p
End Sub

コメント

タイトルとURLをコピーしました