Sub NumberMacro()
'
' 縦中横文字変換
'
'
Dim moji As Range

'文章中の単語をすべてチェックする
For Each moji In ActiveDocument.Words
 
'半角数字なら
    If IsNumeric(moji) Then
   
'幅を行幅に合わせて縦中横文字に置換する
        moji.HorizontalInVertical = wdHorizontalInVerticalFitInLine
    End If
Next

End Sub