--
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.
"Bularon" <Bularon @discussions.microsoft.com> wrote in message
news:9AEB97B5-F4CD-4343...@microsoft.com...
*Note that the macro does not test to see if the destination files exist. It
will simply overwrite them without warning.*
Sub CopyDocToFloppy()
Dim SourceFile, SourceFullName, DestinationFile As String
ActiveDocument.Save
SourceFile = ActiveDocument.Name ' Define source file name.
DestinationFile = "E:\" & SourceFile ' Define target file name.
ActiveDocument.Close
On Error GoTo oops
FileCopy SourceFile, DestinationFile ' Copy source to target
Documents.Open SourceFile
End
oops:
MsgBox "The copy location is not available"
Documents.Open SourceFile
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Suzanne S. Barnhill wrote:
> If your "storage device" is removable, it is not safe to save there.
> Save to the HD and Copy or Send to the storage device.
>
>