機械でできることは、小さなこともプログラムにしたいですね～
一回しか使わなかったら手動でやったほうが早いんじゃない
誰かが使うかもしれないから、置いときます。
wordのVBAを使ったので、メモです。
目次
概要
数字の採番を行う。一つ採番するとカウントアップ。
採番の数字は、４桁数字の文字列（全角）にする。
例）１なら０００１に、１０なら００１０に
WordのVBAでプログラムを作成
cnt = 1
Do While .Execute
temp = Format(Str(cnt), "0000") '数字を4桁文字列に成形
temp2 = StrConv(temp, 4) '4桁文字列となった数字を全角に変換
Selection.TypeText Text:= temp2
'MsgBox "OK"
cnt = cnt + 1 'カウントアップ
Loop
Format()で「０００１」など、常に4桁となるように成形。
Format(文字列,フォーマット)のように指定。
StrConv関数で全角に変更。