Adobe 27510753 Scripting Guide - Page 161

Changing measurement units and ruler

Page 161 highlights

Adobe InDesign CS2 Scripting Guide Working with Documents in VBScript 153 With myDocument.GuidePreferences .GuidesInBack = True .GuidesLocked = False .GuidesShown = True .GuidesSnapto = True End With With myDocument.GridPreferences .DocumentGridShown = False .DocumentGridSnapto = True Rem Objects "snap" to the baseline grid when Rem GuidePreferences.GuideSnapTo is set to true. .BaselineGridShown = True End With Changing measurement units and ruler The example scripts so far used measurement strings (strings that force InDesign to use a specific measurement unit, "8.5i", for example, for 8.5 inches). They do this because you might be using a different measurement system when you run the script. To specify the measurement system used in a script, use the document's ViewPreferences object. Rem ViewPreferences.vbs Rem An InDesign CS2 VBScript Rem Changes the measurement units used by the active document. Rem Assumes you have a document open. Set myInDesign = CreateObject("InDesign.Application.CS2") Set myDocument = myInDesign.ActiveDocument With myDocument.ViewPreferences Rem Measurement unit choices are: Rem * idMeasurementUnits.idPicas Rem * idMeasurementUnits.idPoints Rem * idMeasurementUnits.idInches Rem * idMeasurementUnits.idInchesDecimal Rem * idMeasurementUnits.idMillimeters Rem * idMeasurementUnits.idCentimeters Rem * idMeasurementUnits.idCiceros Rem * idMeasurementUnits.idCustom Rem If you set the the vertical or horizontal measurement units Rem to idMeasurementUnits.idCustom, you can also set a custom Rem ruler increment (in points) using: Rem .HorizontalCustomPoints = 15 Rem .VerticalCustomPoints = 15 Rem Set horizontal and vertical measurement units to points. .HorizontalMeasurementUnits = idMeasurementUnits.idPoints .VerticalMeasurementUnits = idMeasurementUnits.idPoints End With If you're writing a script that needs to use a specific measurement system, you can change the measurement units at the beginning of the script and then restore the original measurement units at the end of the script, as shown in the following example: Rem ResetMeasurementUnits.vbs Rem An InDesign CS2 VBScript Rem Changes, then resets the active document's measurement units. Rem Assumes you have a document open. Set myInDesign = CreateObject("InDesign.Application.CS2") Set myDocument = myInDesign.ActiveDocument With myDocument.ViewPreferences myOldXUnits = .HorizontalMeasurementUnits myOldYUnits = .VerticalMeasurementUnits .HorizontalMeasurementUnits = idMeasurementUnits.idPoints .VerticalMeasurementUnits = idMeasurementUnits.idPoints End With

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184

Adobe
InDesign CS2 Scripting Guide
Working with Documents in VBScript
153
With myDocument.GuidePreferences
.GuidesInBack = True
.GuidesLocked = False
.GuidesShown = True
.GuidesSnapto = True
End With
With myDocument.GridPreferences
.DocumentGridShown = False
.DocumentGridSnapto = True
Rem Objects "snap" to the baseline grid when
Rem GuidePreferences.GuideSnapTo is set to true.
.BaselineGridShown = True
End With
Changing measurement units and ruler
The example scripts so far used
measurement strings
(strings that force InDesign to use a specific
measurement unit, “8.5i”, for example, for 8.5 inches). They do this because you might be using a different
measurement system when you run the script.
To specify the measurement system used in a script, use the document’s
ViewPreferences
object.
Rem ViewPreferences.vbs
Rem An InDesign CS2 VBScript
Rem Changes the measurement units used by the active document.
Rem Assumes you have a document open.
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.ActiveDocument
With myDocument.ViewPreferences
Rem Measurement unit choices are:
Rem * idMeasurementUnits.idPicas
Rem * idMeasurementUnits.idPoints
Rem * idMeasurementUnits.idInches
Rem * idMeasurementUnits.idInchesDecimal
Rem * idMeasurementUnits.idMillimeters
Rem * idMeasurementUnits.idCentimeters
Rem * idMeasurementUnits.idCiceros
Rem * idMeasurementUnits.idCustom
Rem If you set the the vertical or horizontal measurement units
Rem to idMeasurementUnits.idCustom, you can also set a custom
Rem ruler increment (in points) using:
Rem .HorizontalCustomPoints = 15
Rem .VerticalCustomPoints = 15
Rem Set horizontal and vertical measurement units to points.
.HorizontalMeasurementUnits = idMeasurementUnits.idPoints
.VerticalMeasurementUnits = idMeasurementUnits.idPoints
End With
If you’re writing a script that needs to use a specific measurement system, you can change the measurement
units at the beginning of the script and then restore the original measurement units at the end of the script,
as shown in the following example:
Rem ResetMeasurementUnits.vbs
Rem An InDesign CS2 VBScript
Rem Changes, then resets the active document’s measurement units.
Rem Assumes you have a document open.
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.ActiveDocument
With myDocument.ViewPreferences
myOldXUnits = .HorizontalMeasurementUnits
myOldYUnits = .VerticalMeasurementUnits
.HorizontalMeasurementUnits = idMeasurementUnits.idPoints
.VerticalMeasurementUnits = idMeasurementUnits.idPoints
End With