--
Daiya Mitchell, MVP Mac/Word
Word FAQ: http://www.word.mvps.org/
MacWord Tips: <http://www.word.mvps.org/MacWordNew/>
What's an MVP? A volunteer! Read the FAQ: http://mvp.support.microsoft.com/
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Bill" <Bi...@discussions.microsoft.com> wrote in message
news:C7141176-44B8-47F2...@microsoft.com...
Why do you need to change to a new location during the Save process? How
often are you anticipating changing locations? E.g., let's say you have
access to different network drives depending on your location, you could
duplicate the macro and use a different one depending on place.
Or is it that you want to sort your backups into folders as you are saving
them?
Daiya
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Bill" <Bi...@discussions.microsoft.com> wrote in message
news:D50B7820-1DDF-4E74...@microsoft.com...
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Bill" <Bi...@discussions.microsoft.com> wrote in message
news:FA361A5F-1E33-4E74...@microsoft.com...
Not that using File | Send To twice wouldn't presumably work equally as
well.
Yes, it would always be to the same backup location. Or if you rotated
among 3 backup locations, you could use 3 separate version of the macro.
>What, I guess, I didn't make clear is that each
> document I do will have a different path to go to.
Nope, that wasn't clear. Well it was, then you appeared to retract it. :)
> I need to be able to
> change it "on the fly". If the program could be revised to have it prompt
> for a new pathname and/or allow you to browse for a path location (without
> changing your default location), that would make my ears perk up!
Oh it certainly *can* be changed, there just aren't many programming experts
in this group to tell you how to do it. But as I said before:
>>>> Alternatively, you could take the page and your problem along to a group
>>>> with VBA or Programming in the name (but also Word), and ask there. I'm
>>>> sure there's a way to adapt the macro to ask you where, but I haven't a
>>>> clue
>>>> how. Or just explain your problem there and perhaps they can help with the
>>>> File | Send To approach.
>>>>
Preferably, ask here, which is the beginning programming group:
http://www.microsoft.com/communities/newsgroups/en-us/default.aspx?dg=micros
oft.public.word.vba.beginners
Good luck.
DM
Sub SaveToTwoLocations()
Dim strFileA As String
Dim strFileB As String
Dim strFileC As String
Dim strPathA As String
Dim StrPathB As String
ActiveDocument.Save
strFileA = ActiveDocument.Name
With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
strPathA = .Directory
Else
MsgBox "Cancelled by User"
Exit Sub
End If
End With
StrPathB = Mid$(strPathA, 2, (Len(strPathA) - 2))
strFileB = StrPathB & "Backup of " & strFileA
strFileC = ActiveDocument.FullName
ActiveDocument.SaveAs FileName:=strFileB
ActiveDocument.SaveAs FileName:=strFileC
End Sub
This saves the document in the current folder and provides an opportunity to
choose the secondary folder.
Don't use the macro to save to removable media!
Never ever read from, write to or print from floppy with Word. This is the
most certain method of ensuring document corruption. Copy to the hard disc
and work on the document from there. This is equally relevant to other
removable media such as CDRW.
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Bill" <Bi...@discussions.microsoft.com> wrote in message
news:482F2C70-198C-4E77...@microsoft.com...