Find & Replace

I have both Word 2000 and Word 2002. My question concerns
how to do a search and replace.

In certain kinds of documents I use an arrow from Insert |
Symbols (in fact, I use it often enough that I have it
assigned to a key combo). What happens is that if I copy a
block of text from a document that contains the arrows, and
I then paste special, the arrows are all inserted as a
registered trademark symbol (®). The trademark symbol
inserts ok in the Find What box, but the arrow doesn't paste
into the Replace With box, and so a conventional Find and
Replace apparently isn't an option.

Is there a relatively easy way to substitute the arrow for
the trademark symbol?

Thanks.
--

Bob Stringer

Graham
Sun May 21 00:53:19 CDT 2006

Install and use the find symbol macro utility supplied on the Word
installation disc (certainly with Word 2000) in macros9.dot. (or download
it http://office.microsoft.com/downloads/2000/supmacros.aspx)

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Bob Stringer wrote:
> I have both Word 2000 and Word 2002. My question concerns
> how to do a search and replace.
>
> In certain kinds of documents I use an arrow from Insert |
> Symbols (in fact, I use it often enough that I have it
> assigned to a key combo). What happens is that if I copy a
> block of text from a document that contains the arrows, and
> I then paste special, the arrows are all inserted as a
> registered trademark symbol (®). The trademark symbol
> inserts ok in the Find What box, but the arrow doesn't paste
> into the Replace With box, and so a conventional Find and
> Replace apparently isn't an option.
>
> Is there a relatively easy way to substitute the arrow for
> the trademark symbol?
>
> Thanks.

Bob
Sun May 21 13:22:33 CDT 2006

"Graham Mayor" <gmayor@mvps.org> wrote:

> Install and use the find symbol macro utility supplied on
> the Word installation disc (certainly with Word 2000) in
> macros9.dot. (or download it
> http://office.microsoft.com/downloads/2000/supmacros.aspx)

Thanks, Graham.

I downloaded and "installed" it ok, but can't get it to work
from there. (Note that my ability re macros is limited to
recording, and copying and using macros posted in news
groups. I don't understand code or how to "debug" a macro,
etc.)

As mentioned, I downloaded the .dot file and ran it. The
FindSymbol macro launches fine when macros9.dot is open.
However, I followed the instructions to import the macro
into Normal.dot, and while that part of it seemed to be
successful (FindSymbol is now listed in the macro dialog
box), when I try to run it I get an error message. It
states:

Run-time error 424
Object required

When I click the debug button, what I assume is the code for
the macro appears, and the words "Load frmFindSymbol" are
highlighted in yellow. If there's something I'm supposed to
do from that point, in order to "debug" the macro or
otherwise, I don't know what it is.

Any idea what's going on and what I need to do to make it
work?

Thanks again.
--

Bob Stringer

Graham
Sun May 21 23:54:36 CDT 2006

You apparently haven't copied all the relevant parts from macros9.dot to
normal.dot.
Open macros9.dot in Word and run the organizer (tools > macro > macros >
organizer) and copy the form frmFindSymbol to normal.dot.

Open the vba Editor (Alt+F11) then from its toolbar Run > Reset.

File > Save, & close the editor. It should then work.

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Bob Stringer wrote:
> "Graham Mayor" <gmayor@mvps.org> wrote:
>
>> Install and use the find symbol macro utility supplied on
>> the Word installation disc (certainly with Word 2000) in
>> macros9.dot. (or download it
>> http://office.microsoft.com/downloads/2000/supmacros.aspx)
>
> Thanks, Graham.
>
> I downloaded and "installed" it ok, but can't get it to work
> from there. (Note that my ability re macros is limited to
> recording, and copying and using macros posted in news
> groups. I don't understand code or how to "debug" a macro,
> etc.)
>
> As mentioned, I downloaded the .dot file and ran it. The
> FindSymbol macro launches fine when macros9.dot is open.
> However, I followed the instructions to import the macro
> into Normal.dot, and while that part of it seemed to be
> successful (FindSymbol is now listed in the macro dialog
> box), when I try to run it I get an error message. It
> states:
>
> Run-time error 424
> Object required
>
> When I click the debug button, what I assume is the code for
> the macro appears, and the words "Load frmFindSymbol" are
> highlighted in yellow. If there's something I'm supposed to
> do from that point, in order to "debug" the macro or
> otherwise, I don't know what it is.
>
> Any idea what's going on and what I need to do to make it
> work?
>
> Thanks again.

Bob
Mon May 22 21:10:10 CDT 2006

"Graham Mayor" <gmayor@mvps.org> wrote:

> You apparently haven't copied all the relevant parts from
> macros9.dot to normal.dot. Open macros9.dot in Word and
> run the organizer (tools > macro > macros > organizer) and
> copy the form frmFindSymbol to normal.dot.

> Open the vba Editor (Alt+F11) then from its toolbar Run >
> Reset.

> File > Save, & close the editor. It should then work.

You were right. It works now.

Thanks large, Graham.
--

Bob Stringer

Bob
Mon May 22 22:09:28 CDT 2006

"Graham Mayor" <gmayor@mvps.org> wrote:

Back with another question. Two, actually.

First, although the Find Symbol dialog now appears, I'm
having trouble finding what I need to: e.g., the registered
trademark symbol in documents which are in my default font,
Times New Roman.

When I open the FindSymbol dialog box and click the Symbol
button under "Find what" (which opens Symbol dialog box),
click on a symbol and then Insert, if the font to be search
for is "(normal text)", instead putting the symbol in the
Find What area, it produces this message: "Use Edit/Find
Replace to search for characters in the Normal Text format."
As a result, I can't search for the registered trademark
symbol as it appears in normal text. I can switch to another
font -- such as Arial -- for the thing to be search for, but
registered trademark symbol in Arial is different than the
one in Times New Roman, the symbol in my document isn't
searched for.

If I change the font in the *document* to Arial, and then go
through the same process, everything works fine. I can use
the Find Symbol dialog box to search for symbols in Arial.
But the thing is, I prefer working with Times New Roman, and
for some reason searching in that font doesn't seem
possible, as far as I can tell.

Second, FindSymbol, to the extent it does work for me so
far, appears to be set up only to look for symbols and
replace them with either symbols or text. It doesn't seem to
be able to search for text in order to replace it with
symbols. Is that possible, or do I need to look for a
different solution in order to do that?

Thanks again.
--

Bob Stringer

Graham
Mon May 22 23:44:42 CDT 2006

It works for me. The registered trademark symbol ® is at character 174.

You can also search for it with the standard replace tool by searching for
^0174
irrespective of whether it is in TNR or Arial.

You may find the following macro useful as an aid to identifying the
character numbers:

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 As String
Dim strNums As String
Dim 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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>.


Bob Stringer wrote:
> "Graham Mayor" <gmayor@mvps.org> wrote:
>
> Back with another question. Two, actually.
>
> First, although the Find Symbol dialog now appears, I'm
> having trouble finding what I need to: e.g., the registered
> trademark symbol in documents which are in my default font,
> Times New Roman.
>
> When I open the FindSymbol dialog box and click the Symbol
> button under "Find what" (which opens Symbol dialog box),
> click on a symbol and then Insert, if the font to be search
> for is "(normal text)", instead putting the symbol in the
> Find What area, it produces this message: "Use Edit/Find
> Replace to search for characters in the Normal Text format."
> As a result, I can't search for the registered trademark
> symbol as it appears in normal text. I can switch to another
> font -- such as Arial -- for the thing to be search for, but
> registered trademark symbol in Arial is different than the
> one in Times New Roman, the symbol in my document isn't
> searched for.
>
> If I change the font in the *document* to Arial, and then go
> through the same process, everything works fine. I can use
> the Find Symbol dialog box to search for symbols in Arial.
> But the thing is, I prefer working with Times New Roman, and
> for some reason searching in that font doesn't seem
> possible, as far as I can tell.
>
> Second, FindSymbol, to the extent it does work for me so
> far, appears to be set up only to look for symbols and
> replace them with either symbols or text. It doesn't seem to
> be able to search for text in order to replace it with
> symbols. Is that possible, or do I need to look for a
> different solution in order to do that?
>
> Thanks again.