Home » エクセルマクロ・Excel VBAの使い方 » Office連携 » Excel VBAでWord文書の文字列を段落ごとに取得する

Excel VBAでWord文書の文字列を段落ごとに取得する

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel & Word（バージョン2112 ビルド14729.20260 Microsoft Store）

「excelvba word テキスト取得段落ごと」
といった検索キーワードでアクセスがありました。

VBAを使って、Word文書内の文字列を段落ごとにExcelへ転記したい、ということでしょうか。

Word文書の文字列を段落ごとに取得するExcelマクロ

複数の段落が存在するWord文書が1つ開かれている状態で、以下のExcelマクロを実行してください。

Sub Wordの文字列を段落ごとに新規シートに取得する()
On Error GoTo ErrHandl

　With GetObject(Class:="Word.Application")
　　Sheets.Add Before:=Sheets(1)
　　With .ActiveDocument.Paragraphs
　　　Dim i As Long
　　　For i = 1 To .Count
　　　　Cells(i, "A").Value = .Item(i).Range.Text
　　　Next i
　　End With
　End With

Exit Sub
ErrHandl:
　Select Case Err.Number
　　Case 429
　　　MsgBox "Wordが起動していないようです。"
　　Case 4248
　　　MsgBox "Wordファイルが開かれていないようです。"
　　Case Else
　　　MsgBox Err.Description & vbCrLf & Err.Number
　End Select
　Err.Clear
End Sub

アクティブなブックの先頭にワークシートが挿入され、そのA列にWord文書内の文字列が段落ごとに転記されます。

サンプルマクロで行っている処理について

拙著『Excel VBAユーザーのためのWord VBA入門（1）』の、「chapter 6. Paragraphは段落を表す」で、Word VBAで段落を表すParagraphsコレクションやParagraphオブジェクトについて解説しています。

そのようなWord VBAのコードと、Excel VBAのコードが混在しているのが、上記のSubプロシージャです。コードの意味をちゃんと理解したいという方は、Word VBAについての学習も必須です。

正常系処理の、シートを挿入する処理、For～Nextループ内でセルにデータを設定する部分は、

Sheets.Add Before:=Sheets(1)
With .ActiveDocument.Paragraphs
　Dim i As Long
　For i = 1 To .Count
　　Cells(i, "A").Value = .Item(i).Range.Text

純粋なExcel VBAのコードです。
Word文書の全段落から文字列を順番に取得する部分は、

Sheets.Add Before:=Sheets(1)
With .ActiveDocument.Paragraphs
　Dim i As Long
　For i = 1 To .Count
　　Cells(i, "A").Value = .Item(i).Range.Text

VBAでCOMアプリケーションであるWordを操作する、実質的にはWord VBAのコードです。

Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編

伊藤潔人 2021-02-17

Amazon

最終更新日時：2022-01-26 15:42

［スポンサードリンク］

Newer：データラベルのフォントをVBAで操作する
Older：LegendKey.Deleteでも系列を削除できる

Home » エクセルマクロ・Excel VBAの使い方 » Office連携 » Excel VBAでWord文書の文字列を段落ごとに取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Office連携」の記事一覧