Takže první nástřel (bez ošetření chyb u zadávání).
Makro vložit do dokumentu a buď přiřadit kombinaci kláves nebo vložit na začátek dokumentu hledací tlačítko s nápisem GOTO?
Edit: kdyby vadilo, že nalezený odstavec je označen do bloku, tak jsem přidal na konec ještě vypnutí bloku...
Sub Hledat_n_ty_vyskyt_stylu()
kolik = Val(InputBox("Na kolikátý?"))
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("NAZEV_HLEDANEHO_STYLU")
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
For i = 1 To kolik
Selection.Find.Execute
Next i
Selection.HomeKey Unit:=wdLine
End Sub