VBA

Word

三つ折りマークをセットするマクロ

WordのA4書類を三つ折りにするためのマークをセットするマクロです。A4は幅210ミリ、高さ297ミリですので、上から297/3=99ミリと198ミリ、左右の端から10ミリのところに菱形のマークを4個、描きます。マークの大きさは4ポイント...
Excel

セルに楕円を描いたり消したりするマクロ

以前、セルを楕円で囲むマクロという記事を書きました。これはセルを右クリックするとそのセルを囲むような楕円を描画するというマクロです。今回、「もう一度、右クリックしたら、その楕円を削除するマクロは考えられないか」というコメントをいただきました...
Word

複数ファイルパスワード操作(Word)

以前、Excelで複数のファイルに共通のパスワードをセットしたり解除したりするマクロを紹介しました。You Look Too Cool » 複数ファイルパスワード操作それのWord版を作ってみました。Word2007で確認しました。Sub ...
Excel

文字列をUTF-8でエンコードするユーザー定義関数

ExcelのワークシートからGoogleの検索結果にハイパーリンクを張ることを考えていたところ、URLの一部として日本語をそのまま渡すのではなく、UTF-8でエンコードする必要があることに気付きました。そこで、本来の目的とは違うのですが、V...
Word

Wordで索引項目を一括して削除するマクロ

フィールドはWord文書にただの文字列とは違う効果を与えるための仕組みで、日付が自動的に更新される仕組みもこのフィールドが使われています。Wordの索引は、対象となる文字列に索引項目フィールドを追加して作られます。索引項目は「蜜柑{ XE ...
Word

Wordのコメント範囲を変更するマクロ

Word文書には範囲指定した部分に対してコメントを付けることができます。しかし範囲を変更することができません。そこでマクロを作ってみました。
Word

Wordのコメント一覧を作成するマクロ

Wordのコメントだけを抽出して一覧にするマクロです。Word文書を開き、マクロ「コメント一覧作成」を実行すると、文書の末尾にコメント一覧を出力します。Word2007で確認しました。
Excel

手作りのチケットに通し番号を付ける

文化祭などでチケットを手作りすることはよくあると思います。これをExcelで作り、1枚ずつ通し番号を付けたいとします。A4の紙を使うとして紙1枚からチケット4枚を印刷することにします。Excel2007で確認しましたが別のバージョンでも動く...
Excel

全角文字間のスペースを削除

半角英数字では半角スペースが単語を区切るので、ないと困りますが、日本語間の半角スペースは不要である場合があります。日本語(半角英数字以外)同士に挟まれた半角スペースだけを削除するExcelのマクロを考えてみました。Like演算子を使っていま...
Excel

複数ファイルパスワード操作(Excel)

複数のExcelファイルに同じパスワードがセットされている場合に、それを一括して解除して保存するマクロです。逆に一括してパスワードをセットすることもできます。最初にダイアログでパターンを訊かれますので、解除ならば「はい」、セットならば「いい...