Re: makro pro najdi-nahrad

Musicube - KA <musicube@chello.sk>:

> Na to predsa nepotrebujes makro..
> Na to staci zvolit CTRL+H a ktore slovo za ake zamenit .. a stisnes
> tlacitko
> NAHRADIT VSECHNY
> :)

Ne ze bych chtekl rejpat, ale mozna by to CHTELO PRECIST SI PRISPEVEK.

>> ... by mi ve wordovskem DOC vymenil vetsi mnozstvi
>> slov systemem najdi - nahrad. Uz me nebavi to prilezitostne
>> vypisovat s pouzitim standartniho prikazu wordu....

Zejmena ty dve sluvka "vetsi mnozstvi" stoji za pozornost...

Udelal jsem ti to co popsal Kamil. Pokud budes pridavat dalsi slova zmen u 
nich cisla a zmen cislo i na druhem radku "Dim MojeData(3)"

Urcite by to slo lepe, ale znate to...

--------------------------------
Sub MujReplejc()
  Dim MojeData(3)
  MojeData(1) = Array("Petr", "Pavel")
  MojeData(2) = Array("Alena", "Lucka")
  MojeData(3) = Array("Paroubek", "Topolanek")

  For i = 1 To UBound(MojeData)
    Vymen = MojeData(i)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = Vymen(0)
      .Replacement.Text = Vymen(1)
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  Next
End Sub
---------------------------------


-pp21-