Home » ワードマクロ・Word VBAの使い方 » 段落・パラグラフ » 段落ごとの文字列を配列変数に格納するWordマクロ

段落ごとの文字列を配列変数に格納するWordマクロ

対象：Word2007, Word2010, Word2013

「word vba 配列に読み込む」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

WordのVBA（Visual Basic for Applications）で、配列変数にデータを格納する方法を探している方による検索でしょうか。

どんな条件でどんなデータを配列に格納したいのかが、この検索キーワードだけではよくわかりませんので、いつものように参考になりそうな簡単なマクロをご紹介しておきます。

［スポンサードリンク］

段落ごとに配列変数にデータを格納するサンプルマクロ

アクティブな文書上の文字列を、段落ごとに配列に格納するマクロです。

Sub 段落ごとに配列に格納する()

　Dim str As String
　Dim arr As Variant

　str = ActiveDocument.StoryRanges(wdMainTextStory).Text
　arr = Split(str, vbCr)

　Stop

End Sub

アクティブな文書に何らかの文章を入力しておいてから、上記のマクロを実行してみてください。

上記のマクロを実行すると、Stop文の箇所でステップ実行状態となります。

ステップ実行状態になったところで、VBE（Visual Basic Editor）のメニュー［表示］－［ローカルウィンドウ］からローカルウィンドウを表示してやれば、配列変数・arrに、アクティブ文書内の文字列が段落ごとに格納されていることが確認できるでしょう。

段落ごとの文字列を配列に格納するWordマクロ

上図は「=rand()」を使ってサンプル文字列を入力後に上記のマクロを実行して、ローカルウィンドウを展開したところです。

配列に格納しているのは、
　arr = Split(str, vbCr)
の部分です。

Split関数は、第1引数に指定された文字列を、第2引数で指定された文字を区切り文字と見なして、1次元配列を作成して返してくれる関数です。

変数・strは使わなくても書くこともできますが、1行があまりに長くなるので、本文の文字列を変数・strに格納してから、
　str = ActiveDocument.StoryRanges(wdMainTextStory).Text
変数・strを、Split関数の第1引数に指定しています。

［スポンサードリンク］

Home » ワードマクロ・Word 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ユーザーに向けに書きました↓↓

「段落・パラグラフ」の記事一覧