macro to search *

[riccardo67]

I need a simple macro to search * in a word file.


I tried with registration macro, but the results was an empy macro.
I want only that the macro, by pressing the f2 key, position the cursor in the first next * the file, without any sostitution.

Then I manually replace * with the word I want digit

How can I do?

thanks in advance for the help

[gmayor]

You don't need a macro to do this. CTRL+H put * in the find box and select Find Next. If you desperately need a macro for some reason then use the macro recorder to record the search.

[riccardo67]

thanks for the attention

But:
ctrl+h doesn't open the find box (in my office)
the macro recorder doesn't write the search

This what appears after registration:
Sub Macro1()
'
' Macro1 Macro
' cerca asterisco
'
CommandBars("Navigation").Visible = False
End Sub

[macropod]

If Ctrl-H doesn't open Word's Find/Replace dialogue, that could only be because you've modified your system. Furthermore, whatever it is you're recording, the code you posted has nothing to do with Find/Replace.

[riccardo67]

I have yet installed office in the new pc
I have not changed anything
in the old pc I have recorded the macro but i can't recover that

I know that the code I posted has nothing to do with find menù, but that's my result trying

Do you have something else?

[gmayor]

It is difficult to understand why the built-in command (CTRL+H) is not working but check the shortcut key assignments - http://www.gmayor.com/installing_macro.htm



If you record the macro, it should give you:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "*"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

[riccardo67]

thank you a lot.
it works.

[riccardo67]

the find box in my office open with
ctrl+shift+T

but your macro is more useful because it permit me to work automatically