SAVEAS vba

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

FIRSTROUNDKO - 24 Jul 2007 15:58 GMT

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

Reply to this Message

Doug Robbins - Word MVP - 26 Jul 2007 12:06 GMT

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

Signature

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

> Hi!
>
[quoted text clipped - 8 lines]
>
> Thanks in advance

Reply to this Message

FIRSTROUNDKO - 26 Jul 2007 14:04 GMT

Thanks Doug, much appreciated

>Dim fname As Range
>With ActiveDocument
[quoted text clipped - 9 lines]
>>
>> Thanks in advance

Reply to this Message