🚀 go-pugleaf

Jens--

There's always this approach, which avoids the problem altogether:



Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.Documents.Add 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
myTextFrame.ParentStory.TextContents = "paragraph 1" & vbCr & "paragraph 2" & vbCr & "paragraph 3" 
myTextFrame.GeometricBounds = Array("6p", "6p", "24p", "24p") 
Set myParagraph = myTextFrame.ParentStory.Paragraphs.Item(2) 
MsgBox ("Paragraph contains: " & myTextFrame.ParentStory.Paragraphs.Item(2).TextContents) 
myParagraph.InsertionPoints.Item(1).TextContents = "This is " 
MsgBox ("Paragraph contains: " & myTextFrame.ParentStory.Paragraphs.Item(2).TextContents) 




I'm really not sure about whether this behavior is expected or not. I'll have to think about it for a bit.<g>

Thanks,

Ole