ブログ日和

Webサイトの文字列をWordに貼り付けると、
Webサイトの書式情報を保持した状態で、文字列が貼り付けられます。

コピーした文字列を、貼り付け先の書式でペーストしたい場合は、
≪編集≫－≪形式を選択して貼り付け≫－≪テキスト≫を選んで≪ＯＫ≫
すればできますが、これではあまりにも非効率です。

そのような時は、こうすると便利です。

【１】文字列をテキスト形式で貼り付けるＶＢＡを記述

Sub PasteAsText()
On Error GoTo EXCEPTION
Selection.PasteSpecial DataType:=wdPasteText, Link:=False
Exit Sub
EXCEPTION:
MsgBox Error(Err), vbExclamation
End Sub


【２】上記マクロをショートカットキーに割り当て

１．≪ツール≫－≪ユーザー設定≫－≪コマンド≫タブ
２．≪キーボード≫ボタンをクリック

≪キーボードのユーザー設定≫ダイアログボックスが開きます。

３．≪分類≫一覧から≪マクロ≫を選択
４．≪マクロ≫一覧から≪PasteAsText≫を選択
５．≪割り当てるキーを押してください≫ボックスをクリック

ショートカットキーを割り当てます。

６．[Ctrl]+[V]
７．≪現在のキー≫ボックスに「Ctrl+V」と表示

登録を完了させます。

８．≪閉じる≫ボタンをクリック
９．続けて、≪閉じる≫ボタンをクリック



ちなみに、ショートカットメニュー（右クリック）に登録したい場合は以下の手順。


【おまけ】上記マクロをショートカットメニューに登録

１．≪ツール≫－≪ユーザー設定≫－≪ツールバー≫タブ
２．≪ショートカット メニュー≫をオン

≪ショートカット メニュー≫ツールバーが表示されます。

３．≪コマンド≫タブをクリック
４．≪分類≫一覧から≪マクロ≫を選択
５．≪コマンド≫一覧から≪PasteAsText≫を選択

ショートカットメニューに登録します。ドラッグの操作が続きます。

６．≪ショートカットメニュー≫ツールバーの≪テキスト≫までドラッグ
７．さらに、≪テキスト≫の上に重ねるようにドラッグ

「切り取り」や「コピー」などのが並ぶショートカットメニューが表示されます。

８．任意の位置でドラッグアンドドロップ

登録を完了させます。

９．≪閉じる≫をクリック


-----------------------------------------------------------------

実は当初、≪編集≫－≪形式を選択して貼り付け≫－≪テキスト≫を選んで≪ＯＫ≫
の手順をマクロで登録したのですが、記述されたのは以下の1行のみでした。

Selection.PasteAndFormat (wdPasteDefault)

もしかして、Default を Text に修正すれば解決できちゃうのかな？
と思ったのですが、できませんでした。しばらく悩んでしまいました。

今回もいくつかのサイトからヒントをいただきました。
おかげさまで、作業がサクサク進んでいます。感謝、感謝です。
ありがとうございました。