word：化学式の半角数字を一括で簡単に小さくする方法（下付き化）

2022年2月20日2023年8月8日

URLをコピーしました！

wordで化学式の数字を一つ一つ下付きにするのめんどくさすぎる…
早く帰りたいのに時間めっちゃかかるやん…
サクッとできる方法ないの？？？

このような悩みにサクッと解決していきます

化学専攻の大学生、化学系の教員、化学メーカー勤務の方で上記のような悩みを持つ方は多いのではないでしょうか。

今回はWordで一括でワンクリックで半角数字を下付きにする方法について紹介しますね！
ざっくりした流れは下のとおりです。

VBA環境を整える
↓
コードを貼り付け
↓
タブ・リボンに変換ボタンを出す

今回はVBAを使用しますが、安心してください！

おばあちゃんにもわかるように画像多めで、めちゃめちゃ丁寧に説明していきます！

(今回は、VBAやコードについて細かいことは解説しません。やり方だけを解説します)

ではいってみましょう！

ちなみに全角数字をサクッと下付き化する方法は別記事でまとめてます

全角を下付き化したい方はこちらをどうぞ

word：化学式の全角数字を一括で簡単に小さくする方法（下付き化） wordで化学式の数字を一つ一つ下付きにするのめんどくさすぎる…早く帰りたいのに時間めっちゃかかるやん…サクッとできる方法ないの？？？特許を書くとき全角にしないと…

※word画面が黒いのは気にしないでください

STEP

VBA環境を整える

まずWordを開いてファイルタブをクリック

オプションをクリック

リボンのユーザー設定をクリック

右下の【開発】タブにチェックを入れてOKをクリック

開発タブが出現します

これでVBAを入力する準備が整いました！

STEP

コードを貼り付け

上記の開発タブをクリックしてVisual Basicをクリック

出てきたウィンドウの左、プロジェクトウィンドウのNormalをクリック（選択できればok）

挿入タブをクリック＋標準モジュールをクリック

出てきたところ（赤枠）に下のコードを貼り付け（画面が黒いのは気にしないでください）

Sub 半角数字下付き化_化学式()
 
  If Selection.Type = wdSelectionIP Then
    Selection.Expand Unit:=wdWord
  End If
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "([0-9]{1,})"
    .Replacement.Text = "\1"
    .Replacement.Font.Subscript = True
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchFuzzy = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub

↓転記後の画面