🚀 go-pugleaf

Hi Roy,

From the UI the frame break is SHIFT + NUM ENTER, (special key), with NUM ENTER Microsoft got different kind of problems documented (http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/KB/ARTICLES/Q188/5/50.asp&NoWebContent=1)

So the sendkeys command for me don�t work in this case so I just change InDesign shortcuts preferences for this specific and every think is ok.

Go to Edit-Keyboard Shortcuts and set new for
Product Area: Type Menu
Commands: Insert Break Character : Frame Break
New Shortcut: Shift+Alt+A
Context: Text

After you can run this code:

Set myInDesign = CreateObject("InDesign.Application.2.0")
    Set myDocument = myInDesign.ActiveDocument
    Set myPage = myDocument.Pages.Item(1)

Set myTextFrame = myPage.TextFrames.Add
    myTextFrame.GeometricBounds = Array("10p", "10p", "25p", "25p")

Set myTextFrame2 = myPage.TextFrames.Add
    myTextFrame2.GeometricBounds = Array("30p", "10p", "45p", "25p")

myTextFrame.NextTextFrame = myTextFrame2

myFirstText = "Hello, abcde"
    mysecondtext = "World, fghijk"

Set myPoint = myTextFrame.ParentStory.InsertionPoints

myPoint.Item(myPoint.Count).TextContents = myFirstText

myLastPoint = myPoint.Count

myInDesign.Select myTextFrame.InsertionPoints.Item(myLastPoint)

Shell "C:\Program Files\Adobe\InDesign 2.0\InDesign", vbNormalFocus
    SendKeys "+%a"

myPoint.Item(myPoint.Count).TextContents = mysecondtext

Roberto