🚀 go-pugleaf

W odpowiedzi na Twój (jacki) list-piszę Ci:
> Tekst wygląda mniej więcej tak:
> 
> 1 6432 Nazwa1 Przedmiotu1 cecha1: słowo1 cecha2: słowo2
>        cecha3: słowo3 cecha4: słowo4
>        data od:01.01.1970 do:01.01.1980
> 
> 2 98283 Nazwa2 Przedmiotu2 cecha1: słowo5 cecha2: słowo6
>     cecha3: słowo7 cecha4: słowo8
>     data od:12.12.2012 do:01.02.2013

> Nazwa1 Przedmiotu1 słowo1 słowo2 słowo3 słowo4 01.01.1970 01.01.1980
> Nazwa2 Przedmiotu2 słowo5 słowo6 słowo7 słowo8 12.12.2012 01.02.2013
> 

Ok, żeby nie było, że nie szukam. Znalazłem funkcje do Excela (zapewne 
jakoś analogicznie będzie dla Worda)

Option Explicit
#Const LateBind = True

Function RegExpSubstitute(ReplaceIn, _
         ReplaceWhat As String, ReplaceWith As String)
     #If Not LateBind Then
     Dim RE As RegExp
     Set RE = New RegExp
     #Else
     Dim RE As Object
     Set RE = CreateObject("vbscript.regexp")
         #End If
     RE.Pattern = ReplaceWhat
     RE.Global = True
     RegExpSubstitute = RE.Replace(ReplaceIn, ReplaceWith)
     End Function

Zatem zgaduję, że przy wywołaniu muszę ustawić ReplaceIn na cały 
dokument (jak?). ReplaceWhat sobie stworzę regexpa stosując (), aby móc 
zastosować $1 $2 itd. w ReplaceWith. Jak tylko to zrobić, aby przeszukał 
cały dokument?

-- 
Pozdrawiam
Andrzej Jackiewicz
jacki(at)idealan.pl