Any help would be greatly appreciated!
Thanks!
In short this can not be done. :-(
~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP
Please post replies/further questions to the newsgroup so that all may benefit.
"Dennis Webb" <denni...@yahoo.com> wrote in message news:9e0901c2082c$c1de4db0$3bef2ecf@TKMSFTNGXA10...
Directory:="A:\" & ActiveDocument.Name
Change the path that is enclosed in quotation marks to where you want to
send to, Such as "C:\My Folder\". Keep in mind that you need to save the
file before you can copy it to the folder. Here's the macro:
Sub SendToFloppy()
Dim Button As Long
If Len(ActiveDocument.Path) = 0 Then
MsgBox "Please save the document on your hard disk first",
vbInformation
Exit Sub
ElseIf Not ActiveDocument.Saved Then
Button = MsgBox("Save first?" & vbCr & vbCr & "If you select 'No', "
& _
"the last saved version of this document " & _
"will be copied from your hard disk, " & _
"rather than the up-to-date version", vbYesNoCancel +
vbInformation)
Select Case Button
Case vbCancel
Exit Sub
Case vbYes
ActiveDocument.Save
End Select
End If
On Error Resume Next
If Left$(Application.Version, 1) = "8" Then
'Word 97
WordBasic.CopyFile FileName:=ActiveDocument.FullName, _
Directory:="A:\" & ActiveDocument.Name
Else
'Word 2000 and above
WordBasic.CopyFileA FileName:=ActiveDocument.FullName, _
Directory:="A:\" & ActiveDocument.Name
End If
If Err Then
MsgBox "Copy failed: " & vbCr & vbCr & _
Err.Description, vbInformation
Else
MsgBox "File succesfully copied ", vbInformation
End If
End Sub
If you need to know what to do with this macro, go here:
http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm
Tonya Marshall