Adobe 27510753 Scripting Guide - Page 160

You can also create guides using the, method of spreads and master spreads.

Page 160 highlights

152 Working with Documents in VBScript Adobe InDesign CS2 Scripting Guide Rem Set the guide color of a guide using an RGB array. With .Guides.Add() .ItemLayer = myLayer .Orientation = idHorizontalOrVertical.idHorizontal .Location = "22p" .GuideColor = Array(192, 192, 192) End With End With You can also create guides using the CreateGuides method of spreads and master spreads. Rem CreateGuides.vbs Rem An InDesign CS2 VBScript Rem Add a series of guides using the createGuides method. Set myInDesign = CreateObject("InDesign.Application.CS2") Set myDocument = myInDesign.Documents.Add Rem Parameters (all optional): row count, column count, row gutter, Rem column gutter,guide color, fit margins, remove existing, layer. Rem Note that the createGuides method does not take an RGB array Rem for the guide color parameter. myDocument.Spreads.Item(1).CreateGuides 4, 4, "1p", "1p", idUIColors.idGray, True, True, myDocument.Layers.Item(0) Setting grid preferences To control the properties of the document and baseline grid, you set the properties of the GridPreferences object, as shown in the following script: Rem DocumentAndBaselineGrids.vbs Rem An InDesign CS2 VBScript Rem Creates a document, then sets preferences for the Rem document grid and baseline grid. Set myInDesign = CreateObject("InDesign.Application.CS2") Set myDocument = myInDesign.Documents.Add Rem Set the document measurement units to points. myDocument.ViewPreferences.HorizontalMeasurementUnits = idMeasurementUnits.idPoints myDocument.ViewPreferences.VerticalMeasurementUnits = idMeasurementUnits.idPoints Rem Set up grid preferences. With myDocument.GridPreferences .BaselineStart = 56 .BaselineDivision = 14 .BaselineGridShown = True .HorizontalGridlineDivision = 14 .HorizontalGridSubdivision = 5 .VerticalGridlineDivision = 14 .VerticalGridSubdivision = 5 .DocumentGridShown = True End With Snapping to guides and grids All the snap settings for the grids and guides of a document are in the properties of the GuidePreferences and GridPreferences objects. Here's an example: Rem GuideAndGridPreferences.vbs Rem An InDesign CS2 VBScript Rem Sets preferences for guides and grids. Rem Assumes you have a document open. Set myInDesign = CreateObject("InDesign.Application.CS2") Set myDocument = myInDesign.ActiveDocument

  • 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

152
Working with Documents in VBScript
Adobe InDesign CS2 Scripting Guide
Rem Set the guide color of a guide using an RGB array.
With .Guides.Add()
.ItemLayer = myLayer
.Orientation = idHorizontalOrVertical.idHorizontal
.Location = "22p"
.GuideColor = Array(192, 192, 192)
End With
End With
You can also create guides using the
CreateGuides
method of spreads and master spreads.
Rem CreateGuides.vbs
Rem An InDesign CS2 VBScript
Rem Add a series of guides using the createGuides method.
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.Documents.Add
Rem Parameters (all optional): row count, column count, row gutter,
Rem column gutter,guide color, fit margins, remove existing, layer.
Rem Note that the createGuides method does not take an RGB array
Rem for the guide color parameter.
myDocument.Spreads.Item(1).CreateGuides 4, 4, "1p", "1p", idUIColors.idGray, True, True,
myDocument.Layers.Item(0)
Setting grid preferences
To control the properties of the document and baseline grid, you set the properties of the
GridPreferences
object, as shown in the following script:
Rem DocumentAndBaselineGrids.vbs
Rem An InDesign CS2 VBScript
Rem Creates a document, then sets preferences for the
Rem document grid and baseline grid.
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.Documents.Add
Rem Set the document measurement units to points.
myDocument.ViewPreferences.HorizontalMeasurementUnits = idMeasurementUnits.idPoints
myDocument.ViewPreferences.VerticalMeasurementUnits = idMeasurementUnits.idPoints
Rem Set up grid preferences.
With myDocument.GridPreferences
.BaselineStart = 56
.BaselineDivision = 14
.BaselineGridShown = True
.HorizontalGridlineDivision = 14
.HorizontalGridSubdivision = 5
.VerticalGridlineDivision = 14
.VerticalGridSubdivision = 5
.DocumentGridShown = True
End With
Snapping to guides and grids
All the
snap
settings for the grids and guides of a document are in the properties of the
GuidePreferences
and
GridPreferences
objects. Here’s an example:
Rem GuideAndGridPreferences.vbs
Rem An InDesign CS2 VBScript
Rem Sets preferences for guides and grids.
Rem Assumes you have a document open.
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.ActiveDocument