Adobe 27510753 Scripting Guide - Page 172
myRightMargin = myDocument.DocumentPreferences. Width - .MarginPreferences.Right
UPC - 718659445294
View all Adobe 27510753 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 172 highlights
164 Working with Documents in VBScript Adobe InDesign CS2 Scripting Guide .ItemLayer = myDocument.Layers.Item("GuideLayer") .Orientation = idHorizontalOrVertical.idHorizontal .Location = myBottomMargin .FitToPage = False End With With .Guides.Add .ItemLayer = myDocument.Layers.Item("GuideLayer") .Orientation = idHorizontalOrVertical.idHorizontal .Location = myBottomMargin + 14 .FitToPage = False End With With .Guides.Add .ItemLayer = myDocument.Layers.Item("GuideLayer") .Orientation = idHorizontalOrVertical.idHorizontal .Location = myBottomMargin + 28 .FitToPage = False End With Set myLeftFooter = .TextFrames.Add myLeftFooter.ItemLayer = myDocument.Layers.Item("Footer") myLeftFooter.GeometricBounds = Array(myBottomMargin + 14, .MarginPreferences.Right, myBottomMargin + 28, myRightMargin) myLeftFooter.ParentStory.InsertionPoints.Item(1).Contents = idSpecialCharacters. idSectionMarker myLeftFooter.ParentStory.InsertionPoints.Item(1).Contents = idSpecialCharacters.idEmSpace myLeftFooter.ParentStory.InsertionPoints.Item(1).Contents = idSpecialCharacters. idAutoPageNumber myLeftFooter.ParentStory.Characters.Item(1).AppliedCharacterStyle = myDocument. CharacterStyles.Item("page_number") myLeftFooter.ParentStory.Paragraphs.Item(1).ApplyStyle myDocument.ParagraphStyles. Item("footer_left"), False Rem Slug information. myDate = Date With myDocument.MetadataPreferences myString = "Author:" & vbTab & .Author & vbTab & "Description:" & vbTab & .Description & vbCrLf & _ "Creation Date:" & vbTab & myDate & vbTab & "Email Contact" & vbTab & .GetProperty("http://ns.adobe.com/xap/1.0/", "email/*[1]") End With Set myLeftSlug = .TextFrames.Add myLeftSlug.ItemLayer = myDocument.Layers.Item("Slug") myLeftSlug.GeometricBounds = Array(myDocument.DocumentPreferences.PageHeight + 36, .MarginPreferences.Right, myDocument.DocumentPreferences.PageHeight + 144, myRightMargin) myLeftSlug.Contents = myString myLeftSlug.ParentStory.Texts.Item(1).ConvertToTable Rem Body text master text frame. Set myLeftFrame = .TextFrames.Add myLeftFrame.ItemLayer = myDocument.Layers.Item("BodyText") myLeftFrame.GeometricBounds = Array(.MarginPreferences.Top, .MarginPreferences.Right, myBottomMargin, myRightMargin) End With With .Pages.Item(2) myTopMargin = .MarginPreferences.Top myBottomMargin = myDocument.DocumentPreferences.PageHeight - .MarginPreferences.Bottom myRightMargin = myDocument.DocumentPreferences.PageWidth - .MarginPreferences.Right myLeftMargin = .MarginPreferences.Left With .Guides.Add .ItemLayer = myDocument.Layers.Item("GuideLayer") .Orientation = idHorizontalOrVertical.idVertical .Location = myLeftMargin End With With .Guides.Add .ItemLayer = myDocument.Layers.Item("GuideLayer") .Orientation = idHorizontalOrVertical.idVertical .Location = myRightMargin End With Set myRightFooter = .TextFrames.Add myRightFooter.ItemLayer = myDocument.Layers.Item("Footer") myRightFooter.GeometricBounds = Array(myBottomMargin + 14, .MarginPreferences.Left,