Word "Sendkeys

Question

Hello from Steve

Objective please is to copy text and then find the second occurrence, using Sendkeys.

meaning  SendKeys "{Find}" or similar.

For example

GRACIE THE CAT

copy the above and now find the second occurrence

GRACIE THE CAT

I thank you

Answer 1

Sorry - change the name of the second macro to FindPreviousOccurrence

Answer 2

Does this do what you want? Select the text you want to find, then run the macro.

Sub FindNextOccurrence()
    Dim s As String
    s = Selection.Text
    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Find.Execute FindText:=s, Forward:=True
End Sub

Answer 3

Hello HansV

Before I posted I changed Forward:=True to Forward:=False

I am getting

Compile error

Ambiguous name detected: FindNextOccurence

Sub FindNextOccurrence()
    Dim s As String
    s = Selection.Text
    Selection.Collapse Direction:=wdCollapseStart
    Selection.Find.Execute FindText:=s, Forward:=False
End Sub

---

Answer 4

Like this:

Sub FindNextOccurrence()
    Dim s As String
    s = Selection.Text
    Selection.Collapse Direction:=wdCollapseStart
    Selection.Find.Execute FindText:=s, Forward:=False
End Sub

Answer 5

Hello HansV

Yes that is what I am looking for.

Request please is it possible to search up.

All the Best

Steve