wordの段落に対する繰り返し処理（vba）

VBAによるword文書の一括処理について教えて下さい。 ※当方の環境はWin10(64bit)でwordは2007年版を使っております。 復数の段落からなるword文書に対して、 各段落の先頭（行頭）に文字列を追加したいと考えております。 => 段落の数が多いため、vbaを使って下記のようなマクロを作り、 一括で処理しようとしているのですが、期待する動作にならず困っております。 下記サンプルのfor eachで、 (1)のmsgboxによる段落(内容)表示のみですと、 期待通りに各段落の内容がポップアップ表示されたのですが、 (2)の文字列追加の部分を追加すると、 同じ段落内で繰り返し<sample>が追加されてしまいます。 例えば、一つ目の段落が「私は山田です」だとすると、 <sample>私は山田です <sample><sample>私は山田です <sample><sample><s