【Word VBA/マクロ】使用する単位の確認／mmとpointの切り替え

サンプルコードでできること

mm、pointなど、使用する単位を表示します。

コードの説明

Select Case構文を用いて、使用する単位を判定します。

Sub 使用する単位の表示()
    Select Case Options.MeasurementUnit
        Case 0
            MsgBox "インチ（in）"
        Case 1
            MsgBox "センチメートル（cm）"
        Case 2
            MsgBox "ミリメートル（mm）"
        Case 3
            MsgBox "ポイント（pt）"
        Case 4
            MsgBox "パイカ（pi）"
    End Select
End Sub

サンプルコードでできること

mmとpointを切り替えます。

コードの説明

If構文を用いて、使用する単位がmmの時はpoint、pointの時はmmに切り替えます。

Sub mmとpointの切り替え()
    With Options
        If .MeasurementUnit = wdMillimeters Then
            .MeasurementUnit = wdPoints
        ElseIf .MeasurementUnit = wdPoints Then
            .MeasurementUnit = wdMillimeters
        End If
    End With
End Sub