WordVBAで分かち書き

#概要
現在開いているWord文書を分かち書きした別文書を開く。

#コード

分かち書き文書作成.bas

Option Explicit

Sub 分かち書き文章作成()
    Dim doc As Document
    Set doc = Documents.Add
    Dim wrd As Variant
    For Each wrd In ThisDocument.Words
        doc.Content.InsertAfter wrd & " "
    Next
End Sub

#出力イメージ
WordVBA で 分かち書き を 試して みる 。
分かち書き と は 、 文書 を 単語 ごと に スペース で 区切る 事 だ 。
その 結果 が これ だ 。 。
注意点 と して 、 区切る 方法 が 複数 ある 場合 に は 複数 の 結果 が 返される 。

#感想
調べた中で最も簡単な分かち書き方法だった。