Set myInd = CreateObject("InDesign.Application.CS2")
If myInd.Documents.Count > 0 Then
Set myStories = myInd.ActiveDocument.Stories
If myStories.Count > 0 Then
For i = 1 To myStories.Count
If myStories.Item(i).Paragraphs.Count > 0 Then
If myStories.Item(i).Paragraphs.LastItem.Characters.LastItem.Contents = vbCr Then
myStories.Item(i).Paragraphs.LastItem.Characters.LastItem.Contents = ""
End If
End If
Next
End If
End If