SAVEAS vba

[FIRSTROUNDKO via OfficeKB.com]

Hi!

I have word documents that have the first line

adogisacat
apigisacow

How do I select the 2 to 4 characters and save in c:\animals\

under dog.doc and pig.doc

Thanks in advance

 

[Doug Robbins - Word MVP]

Dim fname As Range
With ActiveDocument
Set fname = .Range
fname.start = fname.start + 1
fname.End = fname.start + 3
.SaveAs "c:\animals\" & fname.Text
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[FIRSTROUNDKO via OfficeKB.com]

Thanks Doug, much appreciated

Dim fname As Range
With ActiveDocument
Set fname = .Range
fname.start = fname.start + 1
fname.End = fname.start + 3
.SaveAs "c:\animals\" & fname.Text
End With

Hi!

[quoted text clipped - 8 lines]

Thanks in advance