«

Thismcode is meant to toggle centimeters and points in Word.

Can someone plut me right please?

- - - -

Sub UnitsofMeasure()

With ActiveDocument.ActiveWindow
If .MeasurementUnit = wdCentimeters Then
..MeasurementUnit = wdPoints
Else
If .MeasurementUnit = wdPoints Then
..MeasurementUnit = wdCentimeters
End If
End If
End With

End Sub

- - - -

"Lindsay.Rollo@paradisedotnetdotnz" <> wrote in
message news:...
> Thismcode is meant to toggle centimeters and points in Word.
>
> Can someone plut me right please?
>
> - - - -
>
> Sub UnitsofMeasure()
>
> With ActiveDocument.ActiveWindow
> If .MeasurementUnit = wdCentimeters Then
> .MeasurementUnit = wdPoints
> Else
> If .MeasurementUnit = wdPoints Then
> .MeasurementUnit = wdCentimeters
> End If
> End If
> End With
>
> End Sub
>
> - - - -

Sub UnitsofMeasure()

With Options
If .MeasurementUnit = wdCentimeters Then
..MeasurementUnit = wdPoints
Else
If .MeasurementUnit = wdPoints Then
..MeasurementUnit = wdCentimeters
End If
End If
End With

End Sub

On Sun, 17 May 2009 02:23:07 GMT, "impossible" <>
wrote:

>"Lindsay.Rollo@paradisedotnetdotnz" <> wrote in
>message news:...
>> Thismcode is meant to toggle centimeters and points in Word.
>>
>> Can someone plut me right please?
>>
>Impossible:

Tks for prompt solution.



---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 090516-0, 16/05/2009
Tested on: 5/17/2009 8:04:25 p.m.