| Name | Type | Description |
|---|---|---|
| Tag |
String
|
Sub Test() With ActiveDocument .Unit = cdrFoot .SaveSettings "Settings1" .Unit = cdrMillimeter .SaveSettings "Settings2" .Unit = cdrAgate .RestoreSettings "Settings1" End With End Sub