Replies

Text that should have been visible.

Jerry

It is turned on, but again she insists that is not the problem.

Jerry

Hans:

Thanks for your help.

Jerry

Hans:

Thanks. Was that meant for the original post? I have changed the question.

Jerry

I need to add something to this macro so that I will not get a Path/File Access Error at the line — Kill “a:” & MyFile — when there is a read-only file on the diskette.
Can someone tell me how to do that?

********************
Sub SaveToDiskette()

FileName$ = ActiveDocument.Name
MsgBox “Please label a diskette and insert it into the A drive.” & vbCr & vbCr & “FYI: The chapter file will be closed after it has been saved to the diskette.”, vbOKOnly, “Insert Diskette”

Dim nReply As String
nReply = InputBox(“Do you want to delete any files that may be on this diskette BEFORE you save the chapter file to it (y or n)?” & vbCr & vbCr & “You should clean the diskette if this is the only file, or the first in a batch of files, that you want to save to this diskette.”, “Clean Diskette?”, “n”)

If nReply = “y” Then
Dim MyFile As String
MyFile = Dir$(“a:*.*”)
Do While MyFile “”
Kill “a:” & MyFile
MyFile = Dir$(“a:*.*”)
Loop
End If

ChangeFileOpenDirectory “A:”
ActiveDocument.SaveAs FileName:=FileName$, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:=””, AddToRecentFiles:= _
True, WritePassword:=””, ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

ChangeFileOpenDirectory “G:ProjectsDocs”

MsgBox “Remove the diskette from the A drive after the chapter file has closed.” & vbCr & vbCr & “Your chapter file is being sent to your network printer.”, vbOKOnly, “Remove Diskette”

End Sub
*************************

Thanks,
Jerry

Not sure about the deletion but I had thought of sections and there are no section breaks in the document.

Thanks,

Jerry

Klaus:

Whatever the defaults were are selected for earlier versions of Word, these mostly relate to tables. For Word 2003, nothing is selected.

Jerry

Hans:

It does not seem to be temporary. (I am running Word 2003 SP1.)
When I substitute Selection.Find.Font.Hidden = wdToggle for Selection.Find.Font.Hidden = True then it works.

Thanks,

Jerry

Thanks. I’ll try that one again. The first time it didn’t seem to work.

Jerry

Thanks. I’ll try that one again. The first time it didn’t seem to work.

Jerry

I know what it does in Windows. I need to do that on a Mac. Does anyone know the keystroke combination on a Mac?

Jerry

I know what it does in Windows. I need to do that on a Mac. Does anyone know the keystroke combination on a Mac?

Jerry

Mark:

Thanks a lot.

Jerry

Mark:

Thanks a lot.

Jerry

Bob:

Thanks.

I found an easy way to do it in Fireworks. I don’t have CS. I can reduce the resolution of the TIFs so that the number pixels for width and height match exactly what I want. When I put the PNGs on the Web page, they look fine. Whatever I had been doing before made them look craggy and broken.

Jerry