🚀 go-pugleaf

InDesign Scripts pisze:
>> 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?
> 
> nagraj sobie makro w WORDzie ;)

Chciałbym jednak napisać. Doszedłem do czegoś takiego (regexpa 
odpowiedniego sobie stworzę, tu tylko przykład):

Sub zmien()
'
' zmien Makro
'
'
     Const strTest As String = "cecha1: slowo1 cecha2: slowo2 "
     Const strWhat As String = "cecha1:\s+(\S+)\s+cecha2:\s+(\S+)\s+"
     Const strWith As String = "$1"

     MsgBox RegExpSubstitute(strTest, strWhat, strWith)

End Sub

Function RegExpSubstitute(ReplaceIn, ReplaceWhat As String, ReplaceWith 
As String)
     Dim RE As Object
     Set RE = CreateObject("vbscript.regexp")
     RE.Pattern = ReplaceWhat
     RE.Global = True
     RegExpSubstitute = RE.Replace(ReplaceIn, ReplaceWith)
End Function


Nie mam tylko pojęcia jak zamiast strTest podać cały dokument, oraz jak 
dokonać zmian w tym dokumencie (może też mi otworzyć nowy dokument i do 
niego wypluć wyjście) - testowo mam MsgBox.

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