Backslashes in Macros (Word 2001/J)
Hello,
I'm finding it impossible to insert backslashes from a macro in the Japanese
version of Word 2001. Whatever I do, they keep getting converted into yen
symbols. I've tried switching off the "Convert backslashes to yen symbols"
in Word preferences. I've also tried inserting "Chr$(92)". Whatever I do, I
get a yen symbol (the "alt+y" variety) instead of a backslash.
This is annoying because it's preventing me from building EQ fields. What I
want to do is use the following macro to draw a box around a selected word
by using the field code {EQ \x(...)}
Sub AddOutline()
If Selection.End > Selection.Start Then
Application.ScreenUpdating = False
a$ = Selection.Text
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:="EQ \x(" & a$ & ")", PreserveFormatting:=False
' Remove the extra space that is inserted in the field.
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.MoveLeft unit:=wdCharacter, Count:=2
Selection.Delete unit:=wdCharacter, Count:=1
' Move insertion point to the right of the field.
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.Start = Selection.End
Application.ScreenUpdating = True
End If
End Sub
All I get is a field that displays a yen symbol followed by the selected
word in brackets. To get a box I have to display field codes and manually
type over the yen symbol.
Has anyone found a workaround for this problem?
Phil
--
Philip Ronan
phil.ronanzzz@virgin.net
(Please remove the "z"s if replying by email)
Fnews-brouse 1.9(20180406) -- by Mizuno, MWE <mwe@ccsf.jp>
GnuPG Key ID = ECC8A735
GnuPG Key fingerprint = 9BE6 B9E9 55A5 A499 CD51 946E 9BDC 7870 ECC8 A735