Using a highlighted string (a word + an integer in ()) in searching as findtext

[ImreAga]

I'm trying to create a Word 2016 macro that uses a highlighted word (called Headword in my macro) for subsequent (repeated) searching as .Find Text. The searching is to be repeated as far as the highlighted word occurs. During recording of the macro, I've tried to use the highlighted word as Selection for substituting  the Text in Find but it wouldn’t work anyhow. In other words, whatever I tried nothing was recorded in my macro for the find operation even though the cursor moved and highlighted the found word. Can anybody tell me how to record a Find text operation in a Word macro or else tell me what the correct VBA code is to do this? Thanks in advance! Here's the beginning and the problematic part of my macro:



Sub Összevonó()
'
' Összevonó Makró / Joining Entries
' Option Explicit

Dim Headword As Variable
'...

'Highlighting (selecting)the found Headword that looks like "a word(an integer)".


Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Headword = Selection
Selection.Text = Headword
Selection.MoveRight Unit:=wdCharacter, Count:=1

' Repeate serching of the same Headword.


While Selection.Find.Found = True
Selection.Find.ClearFormatting
With Selection.Find
.Text = Headword
.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
If Selection.Find.Found = False Then GoTo Start

'If the recent Headword is found, it is deleted and by deleting the previous parahraph-sign the two entries joins.


Selection.Expand wdWord
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeBackspace

Wend

Ending:


End Sub

[ImreAga]

Hi, there,
Meanwhile I could solve the problem. Sorry for tirering anybody. But if somebody could offer a simplier and more professional solution, welcome. (Me, as an amateur struggled with the issue almost for a week!)
With best wishes,
ImreAga