Wordマクロ

任意の文字列に対して擬似的にワードラップを適用する 総務省の通知文書 きみは、これを見て何も感じないのか？ この画像を見て、何も感じないだろうか。 何も感じなかった、という人は、では、次の画像はどうだろうか。 どうだろうか。 私は、こわかった 二つ目の画像でマーカを施した箇所は、〝全角の2けた以上の数字〟である。 全部行内におさまっていて、数字が行分かれしていないのは単なる偶然なのだろうか……？ この画像は、同じ文書の別の箇所である。これまた、2けた以上の数字がどれ一つとして行分かれしていないのである。 もちろん、（勝手にWordで作成していると決めつけるが、）Wordに全角2桁以上の数字を行…

カーソル位置にインライン画像を挿入するマクロ もちろん、ただ単にインライン画像を挿入するだけではありません。 仕様 ダイアログボックスで画像を選択する。 カーソル位置に挿入する。 画像用のスタイルを当てる 四方に枠線を施す 図表番号を付ける 実にこれだけのことが1クリックでできます。 ソースコード リスト１ Option Explicit 'ファイルフィルタ用文字列' Private Const FILE_FILTER_TYPE As String = "すべての図" Private Const FILE_FILTER_EXTENTION As String = "*.emf;*.wmf;*.…

アクティブドキュメントをPDF化するマクロ（Word） アクティブドキュメントをPDF化するマクロ もう表題そのままのマクロです。 Normal.dotmに置いておいて、クイック アクセス ツール バーに登録しておくとメチャクチャ便利です。 仕様 ファイル名はそのまま。拡張子だけ.pdfにする。 アクティブドキュメントと同じフォルダに保存する。 「見出し」スタイルをブックマークにする。 シンプルにこれだけです。 今まさに編集中のWordドキュメントと同じフォルダに保存、ということなら書き込み権限とか気にしなくても良さそうですし。 あと、「見出し」がどうたら言うのは、Adobe Readerで言…

VBAで段落前後のスペースを操作する（Word） 軽くハマったので報告。 何がしたかったか Googleフォームで集めたアンケート結果の自由記述の部分をWordに移して整形したかった。 ただずらずらと並べただけだと読みづらいので、一人分づつ記述の間にスペースを空けて読みやすくしたい。 単にこれだけなら、段落の後ろに0.5行とか間隔を空けるようなスタイルを作って、そいつを全体に適用すればよい。 しかし、このやり方だと、回答の中で改行（段落）しているものがあると、全部隙間が空いてしまって具合が悪い。 幸い、改行を含む回答を、GoogleスプレッドシートからテキストファイルとかWordドキュメントに…