スキルアップ・問題解決なら、モーグにおまかせ！

ワードで作成した文章をホームページビルダー（以下、HBという）に貼り付けたいと思っています。
 
この時、そのまま貼り付けすると、ワードの書式が残り、HB上には無駄な行などが表示されます。
これを避けるため、ワードの文章をコピペしてメモ帳に貼り付け、メモ帳を再度コピペしてHBに貼り付けると、無駄な個所がなくなります。
このメモ帳に貼り付ける行為が削除できないかと考えています。
 
ワードのマクロで書式削除の方法はないかと、ネットで探すと以下の記述がありました。
 
Sub アクティブな文書の書式をクリアする()
　ActiveDocument.Select
　Selection.ClearFormatting
End Sub
 
これを実行してみると、少し改善されますが、完全ではありません。
メモ帳に貼り付けると同じ効果が得られるマクロ記述があれば、お教えいただけませんでしょうか。
 
一度ワードを介してHBに記入する理由は、ワードのもつディクテーション機能で文章を作成したいと考えているためです。
 
以上よろしくお願いいたします。
 
 
 
 
 
 

以下ページに記載の通り、回避策は 2つのようですね。
https://support.justsystems.com/faq/1032/app/servlet/qadoc?QID=047533
 

/// 引用開始 ///
Q:外部からコピーし貼りつけした文章に、書式などを設定しても有効にならない
ライン
A:FAQ改善アンケートにご協力ください
外部からコピーし貼り付けした文章は、タグの違いなどからホームページ・ビルダーで確実に回避できる保証はありません。

Microsoft Word や Microsoft Excel 等、他のソフトウェア製品から文字をコピー/貼り付けしたり、外部のホームページ内の文字などコピーし貼り付けした場合、タグやその他の情報もコピーされることがあり、状態によっては文字の書体や位置揃えや他の書式を設定しても有効にならない場合があります。

回避策の一例としては、以下の方法があります。

・貼り付けた文字全体を選択し、メニューバーから「書式」→「フォント属性の解除」を実行した上で再度設定を行う
・一度メモ帳に貼りつけて内部のタグなどの情報を除去してからホームページ・ビルダーに貼り付けてみる
※上記の回避策を実施しても、タグや属性の状態によっては全く回避できない場合もあります。

/// 引用終了 ///

taitaniさん
 
ご回答ありがとうございます。
「書式」→「フォント属性の解除」を試してみましたが、まったく変化はありませんでした。
今後ともよろしくお願いいたします。
 
satoniwa

引用:
Sub アクティブな文書の書式をクリアする()
　ActiveDocument.Select
　Selection.ClearFormatting
End Sub

引用:
これを実行してみると、少し改善されますが、完全ではありません。

skさん
 
投稿ありがとうございました。
通常では不可という事情理解いたしました。
こんご何か手はないか、も少し待ってみます。
 
ありがとうございました。

引用:
例えば Word ドキュメント上の選択範囲から
プレーンテキストのみを抜き出して、そのデータを
クリップボードに直接送るようなコードを
実行するぐらいしかないでしょう。

skさま
 
ありがとうございます。
お教えいただいたコードをそのままコピーし、標準モジュールに貼り付けて実行しましたが、
８行目の
　objDataObject As MSForms.DataObject
で
「コンパイルエラー
ユーザー定義は定義されていません」
のエラーメッセージが表示され実行できませんでした。
 
よくわからないまま、エラーメッセージのヘルプを参照したり、他のメッセージをネットで探してして対応したりしてみましたが、今のところ解決に至っておりません。
 
解決の手段をお教えいただくと有難く思います。
よろしくお願いいたします。
 

sk 様
 
その後、ご提示いただいた資料などもう一度参考にして、対策を試みたところエラーメッセージの問題は解決しました。
お手数をかけました。
 
で、実行いたしましたところ、余分のものは一切消去されましたが、
 
実際に設定した「改行」（消したくない改行まで）も消去され、一つの単文になってしまします。
必要な「改行」は消さないようなコードの記述法は、あるのでしょうか。
 
面倒なお願いをいたします。
もし可能ならよろしくお願いいたします。
 

色々ご教示いただきありがとうございました。
終了とさせていただきます。