Word is not intended to read from or write to removable media directly. The
media will corrupt if there is insufficient room for the document and the
associated temporary files.
Always work from the hard drive and *copy* to removable media. The following
macro will save the current document to the hard drive then copy it to your
USB media. All you have to do is change the drive letter from A: in the
DestinationFile to that of your USB media (which you should assign a
permanent drive letter to via Windows Administrative Tools).
Sub CopyDocToUSBStick()
Dim SourceFile As String
Dim DestinationFile As String
ActiveDocument.Save
SourceFile = ActiveDocument.Name ' Define source file name.
DestinationFile = "A:\" & 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 USB Stick is not available"
Documents.Open SourceFile
End Sub
http://www.gmayor.com/installing_macro.htm
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
Meg wrote:
Today, when trying to save a Word document, first on a USB stick,
then on our hard drive, I get an error message saying: "Word cannot
complete the save due to a file permission error." - then the file
path. I am then asked if I want to try and save again. If I say no,
it assigns ~WRL name to it. If I say yes, I can rename the file.
However, if I say no and don't do anything, a few minutes later I get
another dialogue box saying: "There is an unrecoverable disk error on
(temp ~WRL # it has assigned). The disk you're working on has a
media problem that prevents work from using it. Try the following:
*Try formatting another disc or *Save document to another disc. This
is while I am working on our C drive.
I can't seem to find any help on this problem.
Of course this happened to a completed proposal I'd been working on
for a couple of weeks!