Adobe 27510753 Scripting Guide - Page 157

Changing the pasteboard's appearance

Page 157 highlights

Adobe InDesign CS2 Scripting Guide Working with Documents in VBScript 149 Rem The following assumes that your default master spread contains two pages. With myDocument.MasterSpreads.Item(1).Pages.Item(1).MarginPreferences .Top = 0 .Left = 0 .Bottom = 0 .Right = 0 .ColumnCount = 1 .ColumnGutter = 0 End With With myDocument.MasterSpreads.Item(1).Pages.Item(2).MarginPreferences .Top = 0 .Left = 0 .Bottom = 0 .Right = 0 .ColumnCount = 1 .ColumnGutter = 0 End With myDocument.DocumentPreferences.PageHeight = "1p" myDocument.DocumentPreferences.PageWidth = "6p" Alternatively, you can change the application default margin preferences before you create the document: Rem ApplicationPageMargins.vbs Rem An InDesign CS2 VBScript Rem Sets the application default page margins. All new documents Rem will be created using these settings. Existing documents Rem will be unaffected. Set myInDesign = CreateObject("InDesign.Application.CS2") With myInDesign.MarginPreferences Rem Save the current application default margin preferences. myY1 = .Top myX1 = .Left myY2 = .Bottom myX2 = .Right Rem Set the application default margin preferences. .Top = 0 .Left = 0 .Bottom = 0 .Right = 0 End With Rem Create a new example document to demonstrate the change. Set myDocument = myInDesign.Documents.Add myDocument.DocumentPreferences.PageHeight = "1p" myDocument.DocumentPreferences.PageWidth = "6p" Rem Reset the application default margin preferences to their former state. With myInDesign.MarginPreferences .Top = myY1 .Left = myX1 .Bottom = myY2 .Right = myX2 End With Changing the pasteboard's appearance The pasteboard is an area that surrounds InDesign pages. You can use it for temporary storage of page items. You can change the size of the pasteboard and its color using scripting. The PasteboardColor property controls the color of the pasteboard in Normal mode; the PreviewBackgroundColor property sets the color of the pasteboard in Preview mode: Rem PasteboardPreferences.vbs Rem An InDesign CS2 VBScript Rem Create a new document and change the size of the pasteboard. Set myInDesign = CreateObject("InDesign.Application.CS2") Set myDocument = myInDesign.Documents.Add With myDocument.PasteboardPreferences

  • 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
149
Rem The following assumes that your default master spread contains two pages.
With myDocument.MasterSpreads.Item(1).Pages.Item(1).MarginPreferences
.Top = 0
.Left = 0
.Bottom = 0
.Right = 0
.ColumnCount = 1
.ColumnGutter = 0
End With
With myDocument.MasterSpreads.Item(1).Pages.Item(2).MarginPreferences
.Top = 0
.Left = 0
.Bottom = 0
.Right = 0
.ColumnCount = 1
.ColumnGutter = 0
End With
myDocument.DocumentPreferences.PageHeight = "1p"
myDocument.DocumentPreferences.PageWidth = ā€œ6pā€
Alternatively, you can change the application default margin preferences before you create the document:
Rem ApplicationPageMargins.vbs
Rem An InDesign CS2 VBScript
Rem Sets the application default page margins. All new documents
Rem will be created using these settings. Existing documents
Rem will be unaffected.
Set myInDesign = CreateObject("InDesign.Application.CS2")
With myInDesign.MarginPreferences
Rem Save the current application default margin preferences.
myY1 = .Top
myX1 = .Left
myY2 = .Bottom
myX2 = .Right
Rem Set the application default margin preferences.
.Top = 0
.Left = 0
.Bottom = 0
.Right = 0
End With
Rem Create a new example document to demonstrate the change.
Set myDocument = myInDesign.Documents.Add
myDocument.DocumentPreferences.PageHeight = "1p"
myDocument.DocumentPreferences.PageWidth = "6p"
Rem Reset the application default margin preferences to their former state.
With myInDesign.MarginPreferences
.Top = myY1
.Left = myX1
.Bottom = myY2
.Right = myX2
End With
Changing the pasteboard's appearance
The pasteboard is an area that surrounds InDesign pages. You can use it for temporary storage of page items.
You can change the size of the pasteboard and its color using scripting. The
PasteboardColor
property
controls the color of the pasteboard in Normal mode; the
PreviewBackgroundColor
property sets the
color of the pasteboard in Preview mode:
Rem PasteboardPreferences.vbs
Rem An InDesign CS2 VBScript
Rem Create a new document and change the size of the pasteboard.
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.Documents.Add
With myDocument.PasteboardPreferences