Replies

I meant to say “not seen as StyleTypeCharacter by Word.”

Jerry

Hans:

Thanks. That does remove some of the character styles from the file, but not all. I know that Word can generate its own character styles from paragraph styles. I was wondering if those are the ones that get left behind for some reason. I could from the names that they are not “built-in” styles, but styles that started out as paragraph styles and became charcter styles at some point. So I added this to the macro:

If aStl.Type = wdStyleTypeParagraph Then
ActiveDocument.styles(aStl).Delete
End If

That did remove all of the problem character styles that were left behind, but of course wiped out all of paragraph styles too. I guess the character styles that are based on paragraph styles are not seen as StyleTypeParagraph by Word.

Jerry

Hans:

Me again.
Under what circumstances might this macro fail. With certain files I get an error message at the line ActiveDocument.Styles(aStl).Delete saying that the style cannot be found, but the file has plenty of character styles in it. Any ideas?

Thanks.
Jerry

Stuart:

Actually I want to remove all of them, even the unused ones.
Han’s code works great.

Thanks.
Jerry

Hans:

I was hoping it would do that—delete all of the character styles being used—but it misses a lot of them for some reason.
Deleting all available character styles would be great. I will try that.

Thanks.
Jerry

Thanks, will try that.

In any case, the files can be fixed from inside of Word 2007 as well. Save it as RTF, but it still looks blank. Close the RTF, and open it again. When Word opens the RTF, the file appears as it should be. Then the RTF can be saved as a “Word 97-2003” DOC file that looks OK after it is closed and opened.

Jerry

The contents are not invisible. Nothing is there. It says there are thousands of words, but you can only see one blank page. There is no place to even insert your cursor.

Thanks. That works great.

Jerry

Hans-

This is an example. It’s just a customized comment. -Jerry

Public Sub AuthorQuery()
Dim AUname As String
Dim Auinitial As String
With Selection.Font
.Underline = wdUnderlineWavy
End With
AUname = Application.UserName
Auinitial = Application.UserInitials
Application.UserName = “Author”
Application.UserInitials = “AU”
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:=”AU: ”
Application.UserName = AUname
Application.UserInitials = Auinitial
End Sub

No.

Other Mac and Windows users have no trouble attaching this template or using it as an Add-In.

Jerry

Thanks.

Jerry

Thanks. I noticed that this problem no longer occured after I upgraded to B2TR.

Jerry

Big Al:

Thanks. I downloaded and installed iview398.exe and irfanview_plugins_398.exe, and then restarted my computer. Unfortunately, I was not able to open most of the EPS files that I need to view. I get the message Decode error ! Invalid EPS file. Any ideas on how to fix that? (I can view the smaller ones by dragging them into Word, but some are quite large and Word crashes with those.)

Jerry

Many thanks.

Jerry

Thanks. That was my advise to her as well.

Jerry