Adobe 27510753 Scripting Guide - Page 167
Setting the active document's defaults, To set the text defaults for the active document
UPC - 718659445294
View all Adobe 27510753 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 167 highlights
Adobe InDesign CS2 Scripting Guide Working with Documents in VBScript 159 If .RuleBelow = True Then .RuleBelowColor = myInDesign.Colors.Item("Black") .RuleBelowGapColor = myInDesign.Swatches.Item("None") .RuleBelowGapOverPrint = False .RuleBelowGapTint = 100 .RuleBelowLeftIndent = 0 .RuleBelowLineWeight = 0.25 .RuleBelowOffset = 0 .RuleBelowOverPrint = False .RuleBelowRightIndent = 0 .RuleBelowTint = 100 .RuleBelowType = myInDesign.StrokeStyles.Item("Solid") .RuleBelowWidth = idRuleWidth.idColumnWidth End If .SingleWordJustification = idSingleWordJustification.idLeftAlign .Skew = 0 .SpaceAfter = 0 .SpaceBefore = 0 .StartParagraph = idStartParagraph.idAnywhere .StrikeThru = False Rem If StrikeThru is false, attempting to set some of the Rem strikethrough properties will generate an error. Though Rem we've set StrikeThru to false, we've included the properties Rem to provide a more complete example. If .StrikeThru = True Then .StrikeThroughColor = myInDesign.Colors.Item("Black") .StrikeThroughGapColor = myInDesign.Swatches.Item("None") .StrikeThroughGapOverprint = False .StrikeThroughGapTint = 100 .StrikeThroughOffset = 3 .StrikeThroughOverprint = False .StrikeThroughTint = 100 .StrikeThroughType = myInDesign.StrokeStyles.Item("Solid") .StrikeThroughWeight = 0.25 End If .StrokeColor = myInDesign.Swatches.Item("None") .StrokeTint = 100 .StrokeWeight = 0 .Tracking = 0 .Underline = False Rem If Underline is false, attempting to set some of the Rem underline properties will generate an error. Though Rem we've set Underline to false, we've included the properties Rem to provide a more complete example. If .Underline = True Then .UnderlineColor = myInDesign.Colors.Item("Black") .UnderlineGapColor = myInDesign.Swatches.Item("None") .UnderlineGapOverprint = False .UnderlineGapTint = 100 .UnderlineOffset = 3 .UnderlineOverprint = False .UnderlineTint = 100 .UnderlineType = myInDesign.StrokeStyles.Item("Solid") .UnderlineWeight = 0.25 End If .VerticalScale = 100 End With Setting the active document's defaults To set the text defaults for the active document, change this line in the preceding example: with myInDesign.TextDefaults to: with myInDesign.ActiveDocument.TextDefaults