Setting Grid Preferences; Snapping To Guides And Grids - Adobe 27510753 - InDesign CS2 - PC Manual

152 Working with Documents in VBScript
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
Adobe InDesign CS2 Scripting Guide