odd characters

[jrfeagin]

Hi, I have just switched from MS Word 2002 to Word 2003, and Word 2003 brings
in documents from 2002 and automatically changes some characters such as
quote marks to @ and odd A symbols and apostrophes to = marks. How do I get
MS Word 2003 to bring in 2002 documents without these odd characters? (I use
Times Roman fonts) Thanks, JF

 

[Suzanne S. Barnhill]

This is an indication that the document originated in WordPerfect and that
the WP Typographic Symbols font was used for the quotation marks and
apostrophes. See “WD2000: Special Characters Lost When You Change Font in a
WordPerfect Documentâ€
http://support.microsoft.com/?kbid=247899

 

[jrfeagin]

Thanks. I read that but it does not explain why Word 2002 reads these ok, and
2003 does not? Also some of the text that is translated into @@ for quote
marks was typed in Word 2001 or 2002?? thanks, JF

 

[Suzanne S. Barnhill]

If Word 2002 reads them okay, then it's because the WP Typographic Symbols
font is installed on the Word 2002 machine.

 

[jrfeagin]

Hi, that link does not explain how to get and install the WP typographical
fonts for Word 2003? How do I do that? thanks, JF

 

[Suzanne S. Barnhill]

The only way I know of to get the WP Typographical Symbols font is to
install it from WordPerfect. It would be more productive to substitute the
correct characters in the default paragraph font.

Hi, that link does not explain how to get and install the WP typographical
fonts for Word 2003? How do I do that? thanks, JF

 

[jrfeagin]

Hi, thanks. I have tried to search and replace them using their ascii codes
but one of the characters, an A type symbol with a short horizontal line off
its top to the left, is not in the long ascii list. How do you find out what
the ascii code of those odd characters is? thanks, Joe

 

[Suzanne S. Barnhill]

Usually I just copy and paste them into the Find dialog.

 

[Graham Mayor]

The following macro should help identify any selected character:

Sub ANSIValue()
S1$ = "Because the selected text contains"
S2$ = " characters, not all of the ANSI values will be displayed."
S3$ = "ANSI Value ("
S4$ = " characters in selection)"
S5$ = " character in selection)"
S6$ = "Text must be selected before this macro is run."
S7$ = "ANSI Value"
Dim strSel, strNums, LastFourChar As String
Dim iPos As Integer
strSel = Selection.Text
If Len(strSel) > 0 Then
For i = 1 To Len(strSel)
strNums = strNums + Str(Asc(Mid(strSel, i)))
Next i
strNums = LTrim(strNums)
If Len(strNums) > 255 Then
LastFourChar = Mid(strNums, 252, 4)
strNums = Left(strNums, 251) + Left(LastFourChar, _
4 - InStr(" ", LastFourChar))
MsgBox S1$ + Str(Len(strSel)) + S2$
End If
If Len(strSel) = 1 Then S4$ = S5$
MsgBox strNums, 0, S3$ + LTrim(Str(Len(strSel))) + S4$
Else
MsgBox S6$, 0, S7$
End If
End Sub

See http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>