SelectAll then paste into new doc

[td]

After opening a doc I want to select all text (excluding file headers &
footers) and copy it into a new document. I can start Word, open the required
doc & close it but I cannot seem to get the syntax of the SelectAll. What I
have is something along the lines

Dim wrd as Word.Application

Set wrd = CreateObject("Word.Application")
wrd.document.open Filename:=strFileName,ReadOnly:=True
<Want to select all text>
<Want to copy to clipboard>
I can then close the active document, paste the clipboard into a new doc &
save the new doc.
Many thanks

 

[Cindy M -WordMVP-]

Hi =?Utf-8?B?dGQ=?=,

After opening a doc I want to select all text (excluding file headers &
footers) and copy it into a new document. I can start Word, open the required
doc & close it but I cannot seem to get the syntax of the SelectAll. What I
have is something along the lines

Dim wrd as Word.Application

Set wrd = CreateObject("Word.Application")
wrd.document.open Filename:=strFileName,ReadOnly:=True
<Want to select all text>
<Want to copy to clipboard>

ActiveDocument.Content.Select
Selection.Copy

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail

 

[Terry]

Thank you Cindy

Hi =?Utf-8?B?dGQ=?=,

ActiveDocument.Content.Select
Selection.Copy

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)


This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail