WORd VBA 文章を単語に分解する

文章を単語に分解したいときに、WORD内蔵の辞書を使えると
インターネット記事にありました。

①紹介されているマクロの　意味を上から下まで解説をお願いします（当方は素人です）

Option Explicit

Sub ShowWords()

Dim text As String

' Word のドキュメント内の文章の単語を列挙する
Dim i As Integer
For i = 1 To ActiveDocument.Words.Count

text = text & i & " : " & ActiveDocument.Words(i).text & vbNewLine

Next i

' メッセージボックスで表示
MsgBox text


End Sub

ちなみに、私のWORDは、WORD２０１０です
マクロを、ALT+F11でノーマルの標準モジュールへ貼り付けて
ALT+F8で名前付けて実行しましたが、何も動きませんでした

どうなっているのか

②　メッセージBOXで単語を縦に列挙するこうしたマクロでなくて
　　CSVかEXCELに、１のセルに１単語を入れる感じでアウトプットする
　　マクロを知りたいです

質問者からの補足コメント

• no.1さん　いただいた答えですが
  
  if i > 1 Then
  　text = text ","
  Enf If
  
  これを
  
  if i > 1 Then
  　text = text ","
  End If <---------- end に修正しましたが、 1 Then　text = text ","のあたりが構文エラーです。
  もう少し頑張ります

    補足日時：2016/11/27 22:44

No.1 ベストアンサー 回答者： don_go 回答日時： 2016/11/27 03:19

CSVにするなら

＞text = text & i & " : " & ActiveDocument.Words(i).text & vbNewLine
の部分を

if i > 1 Then
　text = text ","
Enf If
text = text & ActiveDocument.Words(i).text

で、出来ると思います。

この回答へのお礼

ありがとうございます
たぶん、私の基礎知識がないことが原因で、できませんでした

お礼日時：2016/11/27 15:34