スキルアップ・問題解決なら、モーグにおまかせ！

Wordファイル内のテキストをすべて取得するにはどうしたらいいでしょうか。
テキストボックス、SmartArt、ヘッダー、フッター、コメントなどテキストを持つことができるオブジェクトをすべて対象としたいです。
Document.StoryRangesを使いましたが、すべてのテキストを取れませんでした。
 
ご教授いただければ幸いです。
よろしくお願いします。

全て と 一言で言いますが、
それぞれ、別のタイプのオブジェクトであり、属するコレクションも違います。
 
テキストを得るにしても、それぞれの タイプに合わせて テキストを取得する必要があり
 
希望しているであろう、これだけやっておけば全テキストが取得できる の様な方法はありません。
 
とりあえず、
ご質問文でもあった、StoryRanges を使い、本文、コメント、ヘッダー、フッターの取得
テキストボックスと、SmartArt 内のテキストを取得するまでのサンプルです。
 

Sub Sumple()
  Dim Doc As Document
  Dim Str As StoryRanges
  Dim Rng As Range
  Dim Shp As Shape
  Dim IlShp As InlineShape
  Dim Nod As SmartArtNode
  Dim i As Long

  Set Doc = Application.Documents(1)
  Set Str = Doc.StoryRanges

  For Each Rng In Str
    i = i + 1
    Debug.Print i & vbTab & Rng.Text
  Next

  'Shape テキストボックス
  For Each Shp In Doc.Shapes
    Debug.Print Shp.TextFrame.TextRange.Text
  Next

  'SmartArt
  For Each IlShp In Doc.InlineShapes
    For Each Nod In IlShp.SmartArt.Nodes
      Debug.Print Nod.TextFrame2.TextRange.Text
    Next
  Next
End Sub

Suzu 様
 
サンプルコードを示していただき、ありがとうございます。
また教えていただきたいですが、
 
１．TextFrameとTextFrame2の違いは何でしょうか？
TextFrameはよく見かけますが、TextFrame2がありません。
SmartArt以外でTextFrame2を使うオブジェクトがまだあったりしますか？
 
２．DocumentのRangeやContentを取得する時は、MainTextStoryの内容のみ出てきます。
DocumentのShapesもInlineShapesもMainTextStoryに存在するものだけのようで、
ヘッダーやフッターなどにもしShapeがあったら、ヘッダーやフッターのRange内のShapesもInlineShapesをチェックすればいいでしょうか？
 
３，テキストを持てるオブジェクトで、知っているのは本文、コメント、ヘッダー、フッター、テキストボックスとSmartArt位で、他にはどんなものがありますでしょうか？
 
すみませんが、よろしくお願いします。

調べた上でのご質問でしょうか？
 
当方も全てを網羅できている訳ではありません。
回答をするにも、調べて回答をします。
 
 
ご自身で、調べたり、テストしてみた方が早い事もあります。
 
1.SmartArt以外でTextFrame2を使うオブジェクトがまだあったりしますか？
→ オブジェクトブラウザ で、TextFrame2 をキーワードで 対象の ライブラリ、クラスが判ります。
 
2.ヘッダーやフッターのRange内のShapesもInlineShapesをチェックすればいいでしょうか？
→ テストしてみてください。
 
 
３，テキストを持てるオブジェクトで、 〜〜 他にはどんなものがありますでしょうか？
→ 1.と同様、オブジェクトブラウザ にて、TEXT をキーワードに検索　メンバーを昇順に並べ替え

ご回答ありがとうございました。