ワードで見出し番号なしでテキストを貼り付けたい

質問

ある段落を選択して、コピーしました。ペースト先のところに行って、次のマクロを実行しました。

Sub テキスト貼り付け()
Selection.PasteAndFormat (wdFormatPlainText)
End Sub

すると、コピー元の見出し番号や、箇条書きの●も一緒についてきます。正味のテキストだけをペーストするマクロはないですか。

回答No.1

enunokokoro · ベストアンサー

コピー元の段落番号や箇条書きなどの書式が設定された段落を、
段落記号を含む（複数段落を選択しても同じ意味の）範囲選択し
コピーした段階で、テキストとして段落番号や箇条書きのついた
状態で取り込まれます。
段落記号を含まないで段落内の文章のみをコピーしたときには、
行頭についている箇条書きなどは取り込まれません。
このことは、クリップボード拡張ソフトなどにて取り込まれた
テキスト内容で確認できますし、メモ帳などに貼り付けをして
確認しても同じことです。

コピーする前に箇条書きや段落記号などを解除しておいてから
範囲選択してコピーし、元に戻して箇条書きや段落記号を再び
ついた状態にして、次の作業である貼り付けをすれば、質問の
マクロでも箇条書きのないものとして貼り付けできます。

コピーするときのマクロについては、別の回答者からの回答を
待つか、別途質問してみてはいかが。

お礼

回答ありがとうございました。いただいた回答を生かして、マクロもつくり、うまくいくようになりました。マクロのことはあんまりよくわかっていないので、どんくさい処理手順かもしれませんが・・・・

具体的には、
１　「ここにもどる」とブックマークをつける。
２　ファイルを保存。
２－２　ファイル名を、myNameに格納しておく。
３　さらに、ファイル名をダミーという名前に変えてデスクトップに保存。
４　箇条書きや見出しの番号を解除する。
５　コピーする。
６　今開いているファイル（すなわち、ダミー)を閉じる。
７　myNameを使って、元のファイルを開く。
８　「ここにもどる」のブックマークへジャンプ
９　ジャンプの設定をもとの「見出しに戻す。
１０　ペーストしたい場所にカーソルを置いて、「テキスト貼り付け」のマクロボタン押しなさいと、メッセージする。