ワードマクロの世界 > アキノハ
04

明細書作成ツール

明細書の作成に際し、名称と名称の符号をチェックするのは意外と厄介です。 この名称と符号の入力のチェックを大幅に削減することができる明細書作成支援ツールがあります。 詳しくは、こちらをご覧ください。 Shoheyzaka Systems

  • 作成者: アキノハ
  • カテゴリー: ワード
02

USキーボードの日本語入力

日本語配列キーボードであれば、Windows（キーとタッチのカスタマイズ）で設定をすれば、変換/無変換キーでIMEのオン/オフ制御ができ、日本語入力と英語入力の切り替えができますが、英語配列キーボードには、変換/無変換キーがありません。 唯一の（と思われる）手段として、IME-オン/オフをCtrl+ […]

VBSで商標検索

J-PlatPatにアクセスして商標を検索することができるVBSを作成しました。 使用する際には、メモ帳等にコピペし、ファイルの拡張子をVBSにします。 商標の検索方法（VBS） のページもご参照ください。 Option Explicit Const strIE = “iexplore.exe” D […]

  • 作成者: アキノハ
  • カテゴリー: VBS, 商標

句読点まで一気に選択したいときに

文を書いたり修正したりしていると、カーソルの移動に時間がかかることがあります。例えば、現在のカーソル位置から次の句読点までの部分を削除したいとき、Shiftを押しながら右矢印キーカタカタを叩いて句読点まで選択して削除をします。僅かな時間ですが、積み重なると大きな時間になります。 このときに、次の句読 […]

英字・数字・括弧の色を変えたいときに

符号等を記載するとき、英字や数字、括弧を使用します。これらの色を変えると、文のチェックがより容易になります。 そこで、英字や数字、括弧の色を変えるマクロを作成しました。 Sub 英字数字括弧いろかはれ() Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = “[Ａ-Ｚａ-ｚA-Za […]

隅付き括弧と角括弧を入れ替えたいときに

たまに、段落番号の表示等で使う墨付き括弧’【】’を角括弧’[]’に変更するとき、または、その逆に変更するときがあります。 そのようなとき、簡単に括弧の種類を変更できるマクロを作成しました。 Sub 括弧の種類を変えます() Dim cur As Range Dim objRng As Range S […]

ショートカットキーでVBSを実行したいときに

折角VBScriptを使うのであれば、ショートカットキーに登録すれば、より利便性は高まります。 そこで、VBScriptにショートカットキーを割り当てる手順をご紹介します。 　 まず、VBSファイルを右クリックし、[S]キーを押し、ショートカットファイルを作成します。 続いて、ショートカットファイル […]

  • 作成者: アキノハ
  • カテゴリー: VBS

キーワードをテレコにしたいときに

文を書き進めていくと、２つのキーワードをテレコにしたいときがあります。 例えば「第１部材」を書いた後、説明の順番で どうしても「第１部材」の前に「第２部材」を書き入れたくなることがあります。そのまま書き入れると、「第１部材」の前に唐突に「第２部材」が登場してしまいます。 Sub さかさまなり() D […]

読点・カンマを整えたいときに

日本語入力にしてキーを叩くと読点「、」が入力され、英語入力にしてキーを叩くとカンマ「,」が入力されます。 文を作成していると、読点を入力したいのにカンマを入力してしまったり、その逆があったり。 Sub カンマと読点() Dim R As String R = “([Ａ-Ｚａ-ｚA-Za-zΑ-Ωα- […]

マクロが勝手に消えないようにしたいときに

ワードの一般的な設定情報は、下記の「Normal.dotm」ファイルに記録されていますが、どうも不安定です。 C:\Users\%username%\AppData\Roaming\Microsoft\Templates\Normal.dotm これとは別に、拡張子「dotm」のマクロ専用ファイルを […]

  • 作成者: アキノハ
  • カテゴリー: ワード

変更履歴だらけにしたくないときに

ワードの原稿に変更履歴で修正を入れることがあります。複数出てくる名称等は、変更履歴をオンにしてCtr+Hなどで一括置換すると便利です。 しかしながら、一括置換も多用しすぎると、文書が変更履歴だらけになってしまいます。 例えば、「制御装置」を「制御部」に変えるとき、「制御」はそのままで、「装置」だけ「 […]

マーキングをしたいときに

文書のチェックをしているときなど、一文を他とは違う色でマーキングしたいと思うことがあります。 次のコードは、カーソル位置の文全体を赤色にマーキングします。 Sub マーキング赤() Selection.Sentences(1).Font.Color = wdColorRed End Sub 元の色に […]