Adobe 27510753 Scripting Guide - Page 170

myDocument.CharacterStyles.Item number.FillColor = myDocument.Colors.Item NumberRed

Page 170 highlights

162 Working with Documents in VBScript Adobe InDesign CS2 Scripting Guide Set myCharacterStyle = myDocument.CharacterStyles.Add myCharacterStyle.Name = "page_number" Err.Clear End If Rem restore normal error handling On Error GoTo 0 myDocument.CharacterStyles.Item("page_number").FillColor = myDocument.Colors.Item("PageNumberRed") Rem Create up a pair of paragraph styles for the page footer text. Rem These styles have only basic formatting. Err.Clear On Error Resume Next Rem If the paragraph style does not already exist, InDesign will generate an error. Set myParagraphStyle = myDocument.ParagraphStyles.Item("footer_left") If Err.Number 0 Then Set myParagraphStyle = myDocument.ParagraphStyles.Add myParagraphStyle.Name = "footer_left" myParagraphStyle.PointSize = 11 myParagraphStyle.Leading = 14 Err.Clear End If Rem restore normal error handling On Error GoTo 0 Err.Clear On Error Resume Next Rem If the paragraph style does not already exist, InDesign will generate an error. Set myParagraphStyle = myDocument.ParagraphStyles.Item("footer_right") If Err.Number 0 Then Set myParagraphStyle = myDocument.ParagraphStyles.Add myParagraphStyle.Name = "footer_right" myParagraphStyle.BasedOn = myDocument.ParagraphStyles.Item("footer_left") myParagraphStyle.Justification = idJustification.idRightAlign myParagraphStyle.PointSize = 11 myParagraphStyle.Leading = 14 Err.Clear End If Rem restore normal error handling On Error GoTo 0 Rem Create a layer for guides. Err.Clear On Error Resume Next Set myLayer = myDocument.Layers.Item("GuideLayer") If Err.Number 0 Then Set myLayer = myDocument.Layers.Add myLayer.Name = "GuideLayer" Err.Clear End If Rem restore normal error handling On Error GoTo 0 Rem Create a layer for the footer items. Err.Clear On Error Resume Next Set myLayer = myDocument.Layers.Item("Footer") If Err.Number 0 Then Set myLayer = myDocument.Layers.Add myLayer.Name = "Footer" Err.Clear End If Rem restore normal error handling On Error GoTo 0 Rem Create a layer for the slug items. Err.Clear On Error Resume Next Set myLayer = myDocument.Layers.Item("Slug") If Err.Number 0 Then Set myLayer = myDocument.Layers.Add myLayer.Name = "Slug" Err.Clear End If

  • 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

162
Working with Documents in VBScript
Adobe InDesign CS2 Scripting Guide
Set myCharacterStyle = myDocument.CharacterStyles.Add
myCharacterStyle.Name = "page_number"
Err.Clear
End If
Rem restore normal error handling
On Error GoTo 0
myDocument.CharacterStyles.Item("page_number").FillColor = myDocument.Colors.Item("PageNumberRed")
Rem Create up a pair of paragraph styles for the page footer text.
Rem These styles have only basic formatting.
Err.Clear
On Error Resume Next
Rem If the paragraph style does not already exist, InDesign will generate an error.
Set myParagraphStyle = myDocument.ParagraphStyles.Item("footer_left")
If Err.Number <> 0 Then
Set myParagraphStyle = myDocument.ParagraphStyles.Add
myParagraphStyle.Name = "footer_left"
myParagraphStyle.PointSize = 11
myParagraphStyle.Leading = 14
Err.Clear
End If
Rem restore normal error handling
On Error GoTo 0
Err.Clear
On Error Resume Next
Rem If the paragraph style does not already exist, InDesign will generate an error.
Set myParagraphStyle = myDocument.ParagraphStyles.Item("footer_right")
If Err.Number <> 0 Then
Set myParagraphStyle = myDocument.ParagraphStyles.Add
myParagraphStyle.Name = "footer_right"
myParagraphStyle.BasedOn = myDocument.ParagraphStyles.Item("footer_left")
myParagraphStyle.Justification = idJustification.idRightAlign
myParagraphStyle.PointSize = 11
myParagraphStyle.Leading = 14
Err.Clear
End If
Rem restore normal error handling
On Error GoTo 0
Rem Create a layer for guides.
Err.Clear
On Error Resume Next
Set myLayer = myDocument.Layers.Item("GuideLayer")
If Err.Number <> 0 Then
Set myLayer = myDocument.Layers.Add
myLayer.Name = "GuideLayer"
Err.Clear
End If
Rem restore normal error handling
On Error GoTo 0
Rem Create a layer for the footer items.
Err.Clear
On Error Resume Next
Set myLayer = myDocument.Layers.Item("Footer")
If Err.Number <> 0 Then
Set myLayer = myDocument.Layers.Add
myLayer.Name = "Footer"
Err.Clear
End If
Rem restore normal error handling
On Error GoTo 0
Rem Create a layer for the slug items.
Err.Clear
On Error Resume Next
Set myLayer = myDocument.Layers.Item("Slug")
If Err.Number <> 0 Then
Set myLayer = myDocument.Layers.Add
myLayer.Name = "Slug"
Err.Clear
End If