Adobe 27510753 Scripting Guide - Page 43

Adobe 27510753 - InDesign CS2 - PC Manual

Page 43 highlights

Adobe InDesign CS2 Scripting Guide Getting Started with InDesign Scripting 35 set myLeft to left of margin preferences of myPage set myTop to top of margin preferences of myPage set myRight to right of margin preferences of myPage set myBottom to bottom of margin preferences of myPage end tell set myRight to myLeft + (myPageWidth - (myRight + myLeft)) set myBottom to myTop + (myPageHeight - (myBottom + myTop)) return {myTop, myLeft, myBottom, myRight} end myGetBounds 2. Save the text as a compiled script in the Scripts folder inside the Presets folder in your InDesign folder. 3. Test the script by double-clicking the script name in the InDesign Scripts palette, or run it from your script editor. VBScript 1. Enter the following VBScript using any text editor. Rem Complex User Interface Example Set myInDesign = CreateObject("InDesign.Application.CS2") myInDesign.Activate Set myDialog = myInDesign.Dialogs.Add myDialog.CanCancel = True myDialog.Name = "User Interface Example Script" Rem Create a dialog column. Set myDialogColumn = myDialog.DialogColumns.Add Rem Create a border panel. Set myBorderPanel = myDialogColumn.BorderPanels.Add Rem Create a dialog column inside the border panel. Set myTempDialogColumn = myBorderPanel.DialogColumns.Add Set myStaticText = myTempDialogColumn.StaticTexts.Add myStaticText.StaticLabel = "Message:" Rem Create another dialog column inside the border panel. Set myTempDialogColumn = myBorderPanel.DialogColumns.Add Set myTextEditField = myTempDialogColumn.TextEditboxes.Add myTextEditField.EditContents = "Hello World!" myTextEditField.MinWidth = 180 Rem Create another border panel. Set myBorderPanel = myDialogColumn.BorderPanels.Add Rem Create a dialog column inside the border panel. Set myTempDialogColumn = myBorderPanel.DialogColumns.Add Set myStaticText = myTempDialogColumn.StaticTexts.Add myStaticText.StaticLabel = "Point Size:" Rem Create another dialog column inside the border panel. Set myTempDialogColumn = myBorderPanel.DialogColumns.Add Set myPointSizeField = myTempDialogColumn.RealEditboxes.Add myPointSizeField.EditValue = 72 Rem Create another border panel. Set myBorderPanel = myDialogColumn.BorderPanels.Add Rem Create a dialog column inside the border panel. Set myTempDialogColumn = myBorderPanel.DialogColumns.Add Set myStaticText = myTempDialogColumn.StaticTexts.Add myStaticText.StaticLabel = "Vertical Justification:" Rem Create another dialog column inside the border panel. Set myTempDialogColumn = myBorderPanel.DialogColumns.Add Set myVerticalJustificationMenu = myTempDialogColumn.Dropdowns.Add myVerticalJustificationMenu.StringList = Array("Top", "Center", "Bottom") myVerticalJustificationMenu.SelectedIndex = 0 Rem Create another border panel. Set myBorderPanel = myDialogColumn.BorderPanels.Add Rem Create a dialog column inside the border panel. Set myTempDialogColumn = myBorderPanel.DialogColumns.Add Set myStaticText = myTempDialogColumn.StaticTexts.Add myStaticText.StaticLabel = "Paragraph Alignment:" Rem Create another dialog column inside the border panel.

  • 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
Getting Started with InDesign Scripting
35
set myLeft to left of margin preferences of myPage
set myTop to top of margin preferences of myPage
set myRight to right of margin preferences of myPage
set myBottom to bottom of margin preferences of myPage
end tell
set myRight to myLeft + (myPageWidth - (myRight + myLeft))
set myBottom to myTop + (myPageHeight - (myBottom + myTop))
return {myTop, myLeft, myBottom, myRight}
end myGetBounds
2.
Save the text as a compiled script in the Scripts folder inside the Presets folder in your InDesign folder.
3.
Test the script by double-clicking the script name in the InDesign Scripts palette, or run it from your script
editor.
VBScript
1.
Enter the following VBScript using any text editor.
Rem Complex User Interface Example
Set myInDesign = CreateObject("InDesign.Application.CS2")
myInDesign.Activate
Set myDialog = myInDesign.Dialogs.Add
myDialog.CanCancel = True
myDialog.Name = "User Interface Example Script"
Rem Create a dialog column.
Set myDialogColumn = myDialog.DialogColumns.Add
Rem Create a border panel.
Set myBorderPanel = myDialogColumn.BorderPanels.Add
Rem Create a dialog column inside the border panel.
Set myTempDialogColumn = myBorderPanel.DialogColumns.Add
Set myStaticText = myTempDialogColumn.StaticTexts.Add
myStaticText.StaticLabel = "Message:"
Rem Create another dialog column inside the border panel.
Set myTempDialogColumn = myBorderPanel.DialogColumns.Add
Set myTextEditField = myTempDialogColumn.TextEditboxes.Add
myTextEditField.EditContents = "Hello World!"
myTextEditField.MinWidth = 180
Rem Create another border panel.
Set myBorderPanel = myDialogColumn.BorderPanels.Add
Rem Create a dialog column inside the border panel.
Set myTempDialogColumn = myBorderPanel.DialogColumns.Add
Set myStaticText = myTempDialogColumn.StaticTexts.Add
myStaticText.StaticLabel = "Point Size:"
Rem Create another dialog column inside the border panel.
Set myTempDialogColumn = myBorderPanel.DialogColumns.Add
Set myPointSizeField = myTempDialogColumn.RealEditboxes.Add
myPointSizeField.EditValue = 72
Rem Create another border panel.
Set myBorderPanel = myDialogColumn.BorderPanels.Add
Rem Create a dialog column inside the border panel.
Set myTempDialogColumn = myBorderPanel.DialogColumns.Add
Set myStaticText = myTempDialogColumn.StaticTexts.Add
myStaticText.StaticLabel = "Vertical Justification:"
Rem Create another dialog column inside the border panel.
Set myTempDialogColumn = myBorderPanel.DialogColumns.Add
Set myVerticalJustificationMenu = myTempDialogColumn.Dropdowns.Add
myVerticalJustificationMenu.StringList = Array("Top", "Center", "Bottom")
myVerticalJustificationMenu.SelectedIndex = 0
Rem Create another border panel.
Set myBorderPanel = myDialogColumn.BorderPanels.Add
Rem Create a dialog column inside the border panel.
Set myTempDialogColumn = myBorderPanel.DialogColumns.Add
Set myStaticText = myTempDialogColumn.StaticTexts.Add
myStaticText.StaticLabel = "Paragraph Alignment:"
Rem Create another dialog column inside the border panel.