Neki program za batch search&replace u Wordovim fajlovima...

[violinista]

Pozdrav.

Da li postoji neki program kome mogu da zadam search & replace string i da on onda traži po Word-ovim dokumentima u određenom folderu i to sve prepravlja? Alternativa bi možda bio neki script u VBA koji to takođe odrađuje ali po netu nisam ništa uspeo da nađem što bi me bar asociralo na rešenje.

Ćao i hvala!

 

[VIA]

Dosada na poslu čuda čini

Sub Izmenjivac()
Direktorijum = "D:\"
Fajl = Dir(Direktorijum & "*.doc")
Application.ScreenUpdating = False
Do While Fajl <> ""
    Documents.Open """" & Direktorijum & Fajl & """"
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Šta tražiš"
        .Replacement.Text = "Čime menjaš"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
     ActiveDocument.Close True
    Fajl = Dir
Loop
Application.ScreenUpdating = True
End Sub

Uslove za pretraživanje sam zadaj.

 

[violinista]

Ja nemam reči. Čovek mi ladno napisao rešenje na tacni, poslao i još rekao da je "iz dosade". I to još nije prošlo ni pola sata!! Pa svaka ti čast majstore, i svaka ti... dala!

E sad samo ne znam gde se nalaziš da dođem sa par ortaka i da ti priredim free svirku u firmi, loodilo!!

cheers :guitar: 🙂) 🙂) :bottle:

 

[ZoNi]

Sub Izmenjivac()
Direktorijum = "D:\"
Fajl = Dir(Direktorijum & "*.doc")
Application.ScreenUpdating = False
Do While Fajl <> ""
    Documents.Open """" & Direktorijum & Fajl & """"
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Šta tražiš"
        .Replacement.Text = "Čime menjaš"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
     ActiveDocument.Close True
    Fajl = Dir
Loop
Application.ScreenUpdating = True
End Sub

Uslove za pretraživanje sam zadaj.

uhm... a sta se radi sa ovim? :zgran:

 

[voodoo_]

Visual Basic skripta, nesreco...

 

[ZoNi]

to sam znao... nego, kako se to koristi u Wordu?

 

[jddipqd]

to sam znao... nego, kako se to koristi u Wordu?

Tools/Macro/Visual Basic Editor

 

[VIA]

Malo detaljnije: Alt+F11; Insert, Module, Iskopiraj gornji kod, promeni parametre po želji (makar ciljni direktorijum, i tekstove za nalaženje i menjanje) i udri F5.
@Violinista - Očekujem te 24-og marta (rođendan mi je) kod Kabarea Rose ;-)