InsertFile text w/out final Enter

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ed - 16 Mar 2005 05:21 GMT

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

Reply to this Message

Helmut Weber - 16 Mar 2005 10:52 GMT

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

Reply to this Message

Ed - 16 Mar 2005 12:16 GMT

That does the trick. Thanks. -Ed

Reply to this Message