word VBAで採番を数値4桁全角にする

wordのVBAを使ったので、メモです。

概要

数字の採番を行う。一つ採番するとカウントアップ。

採番の数字は、4桁数字の文字列(全角)にする。

例)1なら0001に、10なら0010に

プログラム

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()で「0001」など、常に4桁となるように成形。

Format(文字列,フォーマット)のように指定。

StrConv関数で全角に変更。