Lorem Ipsumツールの作成(Microsoft Word)
Charlesは、ドキュメントにloremipsumテキストを挿入するマクロを作成しました。彼はマクロレコーダーの電源を入れ、= lorem()と入力して、Enterキーを押しました。もちろん、これはloreemipsumテキストを挿入しました。彼はマクロへのショートカットを linkクイックアクセスツールバーに配置しましたが、記録されたマクロは部分的にしか機能しません。 = lorem()と入力しますが、手動でEnterキーを押す必要があります。 Charlesは、マクロを編集してEnterコマンドを含めようとしました。これにより、マクロショートカットをクリックすると、テキストが入力されますが、役に立ちません。
マクロでEnterキーの押下をシミュレートする場合は、SendKeysコマンドを使用する必要があります。マクロを記録すると、次のように表示される可能性があります。
Sub Macro1() ' ' Macro1 Macro ' ' Selection.TypeText Text:="=lorem()" Selection.TypeParagraph End Sub
マクロの最後の行(End Subの直前の行)を次のいずれかに置き換える必要があります。
SendKeys "~", True SendKeys "{ENTER}", False
これらの行のいずれか(必要なのは1つだけ)は、Enterキーを押すことをシミュレートします。ただし、注意すべき点が1つあります。SendKeysは、現在アクティブなウィンドウで機能します。つまり、Visual Basic Editor内からマクロを実行して、目的の効果を得ることができません。その理由は、これを行うと、アクティブなのはエディターのウィンドウであるため、SendKeysはそのウィンドウ内で「Enterキーを押す」ためです。マクロは、Word文書ウィンドウがアクティブな場合にのみ実行する必要があります。
そうは言っても、SendKeysコマンドを使用せずにマクロにアプローチする別の方法があります。あなたがする必要があるのはあなたのloremipsumテキストを含む新しいWord文書を作成することです。 LoremText.docxなど、これに固有の名前を付けます。
次に、次のようなマクロを作成します。
Sub Lorem() Selection.InsertFile FileName:="C:\Users\User\Desktop\LoremText.docx" End Sub
マクロに表示されるパスとファイル名が、システムに適した実際のパスとファイル名を表していることを確認する必要があります。
マクロを実行すると、Wordが出力され、LoremText.docxドキュメントが取得され、挿入ポイントに挿入されます。
最後に、マクロに頼ることなくこの問題に取り組むことができる別の方法があります。必要に応じて、lorem ipsumテキストをドキュメントに挿入して選択し、ビルディングブロックまたはオートコレクトエントリとして保存できます。次に、これらのWordツールを使用して、テキストを簡単に挿入できます。 (ビルディングブロックとオートコレクトエントリの両方を作成して使用する方法は、他の_WordTips_で説明されています。)
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(13484)は、Microsoft Word 2007、2010、2013、および2016に適用されます。