#3 Marek Sz
Prosil bych o radu jak bych mohl uložit do listbox nalezenou chybu a poté ještě změnu ListBox21.AddItem vkládá do listboxu ale jak to napasovat do funkce find
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "text"
.Replacement.Text = "ale"
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
potřeboval bych výsledek aby to načetlo slovo "text" a také uložilo do listboxu
a následně aby to opravilo na "ale" a uložilo do list boxu. V dokumentu může být mnoho takový výskytu děkuji za pomoc