InsertFile text w/out final Enter

[Ed]

I want to insert the text of a document into an existing (formatted)
paragraph. If I use:

Selection.InsertFile filename:="MyDoc.doc"

then the final 'Enter' of mydoc.doc gets inserted, and that destroys (can't
think of a better word) the formatting of the original paragraph.

Is there any way to pick up almost all of the mydoc.doc (minus the paragraph
marker) so as to preserve the formatting of the paragraph into which the
file is inserted?

Thanks,
Ed

 

[Helmut Weber]

Hi Ed,

if you want just the text,
without the paragraph mark
and without formatting, which
may cause trouble, too:

Dim DocImp As Document
Dim s As String
Set DocImp = Documents.Open("c:\test\insert.doc")
s = DocImp.Range.Text
s = Left(s, Len(s) - 1)
DocImp.Close
Selection.InsertAfter s

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Ed]

That does the trick. Thanks. -Ed