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



特許を書くとき全角にしないといけないけど、
化学式の全角数字だけ簡単にぱっと下付き化できないかな…



このような悩みに解決していきます
化学専攻の大学生、化学系の教員、化学メーカー勤務の方で上記のような悩みを持つ方は多いのではないでしょうか。
今回はWordで一括でワンクリックで全角数字を下付きにする方法について紹介しますね!
ざっくりした流れはしたのとおりです。
今回はVBAを使用しますが、安心してください!
おばあちゃんにもわかるように画像多めで、めちゃめちゃ丁寧に説明していきます!
(今回は、VBAやコードについて細かいことは解説しません。やり方だけを解説します)
ではいってみましょう!



ちなみに半角数字を下付き化は別記事でまとめています


※word画面が黒いのは気にしないでください
まずWordを開いてファイルタブをクリック


オプションをクリック


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


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


開発タブが出現します





これでVBAを入力する準備が整いました!
上記の開発タブをクリックして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
↓転記後の画面


貼り付けた後は赤枠の保存ボタンをクリック



これでコードの入力は完了です!
あともうひといきです!
wordの画面に戻ってファイルタブをクリック


オプションをクリック


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


右下の新しいタブをクリック
この時一番下(今回ならヘルプ)を選択した状態でクリックすると、ヘルプの下に新しいタブが出現します


左のコマンドの選択で【マクロ】を選択


さっき作ったモジュールが出てくるので、選択し、追加をクリック


このままokでも良いですが、タブの名前を変更した方が分かりやすいです
今回は【効率化】というタブ名に変更してみましょう
新しいタブを選択し、右クリックして名前の変更をクリック


効率化と入力して、OKをクリック





おつかれさまでした
これで準備完了です
例として、NH3、K2CO3、H3PO4、MnO2、CH3CH2OH、CH3COCH3の全角数字を一括で、ワンクリックで下付きにしてみましょう
NH3、K2CO3、H3PO4、MnO2、CH3CH2OH、CH3COCH3を入力、選択して効率化タブをクリック


「Normal.Module1.全角数字下付き化_化学式」ボタンをクリック


全角数字のみがワンクリックで下付き化されました


まとめ
今回は全角数字を一括でワンクリックで、下付き化する方法を紹介しました。
事務作業はサクッと終わらせて、自分のプライベートな時間を作りましょう。

