Add(ArrayEnum,14833525,238,357)
{
 link(onItem,10815064:doString,[])
 link(Array,4434497:Strings,[])
}
Add(MainForm,5370088,49,56)
{
 Caption="replace in word document"
 Point(onClose)
 Point(Handle)
 link(onCreate,15385422:doEvent1,[])
}
Add(StrList,10765564,245,21)
{
 Strings=#20:ПРИМЕРСТРОКИ1;авсд 1|20:ПРИМЕРСТРОКИ2;авсд 2|20:ПРИМЕРСТРОКИ3;авсд 3|20:ПРИМЕРСТРОКИ4;авсд 4|20:ПРИМЕРСТРОКИ5;авсд 5|20:ПРИМЕРСТРОКИ6;авсд 6|20:ПРИМЕРСТРОКИ7;авсд 7|20:ПРИМЕРСТРОКИ8;авсд 8|27:КОНСТАНТНЫЙ ТЕКСТ;авсд авсд|
}
Add(Dir,5784437,126,175)
{
}
Add(VBJScript,6780534,448,462)
{
 WorkPoints=#11:##SetScript|
 Script=#0:|0:|
 UseName=0
}
Add(Hub,3517176,175,224)
{
 OutCount=7
 link(onEvent1,15783847:doPutText,[(200,230)(200,195)])
 link(onEvent2,14424961:doString,[])
 link(onEvent3,15132750:doString,[(291,244)(291,279)])
 link(onEvent4,2161900:doString,[(284,251)(284,321)])
 link(onEvent5,14833525:doEnum,[(228,258)(228,363)])
 link(onEvent6,5296675:doString,[(221,265)(221,405)])
 link(onEvent7,13299887:doEvent1,[(214,272)(214,468)])
}
Add(FormatStr,14424961,301,231)
{
 DataCount=1
 Mask="Dim objWord, objDoc, strPart, myPath\r\nSet objWord = CreateObject("Word.Application")\r\nSet objDoc = objWord.Documents.Open("%1\\template.docx")\r\nobjWord.Visible = True 'False 'True"
 link(onFString,10918089:doWork1,[(347,237)])
}
Add(FormatStr,10815064,301,357)
{
 Mask="objWord.Selection.Find.Execute "%1",0,0,1,0,0,1,1,0,"%2",2"
 link(onFString,4998237:doWork2,[])
}
Add(StrList,777457,399,399)
{
 FileName="123.txt"
 Point(doSave)
}
Add(MST_ArrayRows,4434497,238,308)
{
 MSTControl="asd"
}
Add(MTStrTbl,2120581,49,14)
{
 Top=65
 Width=384
 Height=196
 Align=5
 Name="asd"
 Columns=#8:FindText|11:ReplaceWith|
 Redaction=0
}
Add(MST_Load,68446,294,70)
{
 ColNameHeader=1
 MSTControl="asd"
 link(onLoadFromStream,4850224:doColAction,[])
}
Add(StreamConvertor,174640,245,77)
{
 Mode=7
 Point(Data)
 link(onResult,68446:doLoadFromStream,[])
 link(Data,10765564:Text,[])
}
Add(MST_ColAction,4850224,343,77)
{
 Action=9
 Index=-2
 MSTControl="asd"
}
Add(DoData,1416740,399,462)
{
 link(onEventData,6780534:##SetScript,[])
 link(Data,777457:Text,[])
}
Add(FormatStr,5296675,301,399)
{
 DataCount=1
 Mask="objWord.ActiveDocument.SaveAs("%1\dogovor2.docx")\r\n'objWord.ActiveDocument.Fields.Update\r\nobjWord.Visible = True\r\n'objWord.Documents.Close\r\n'objWord.Quit"
 link(onFString,2876932:doWork2,[])
}
Add(HubEx,2876932,343,399)
{
 link(onEvent,777457:doAdd,[])
}
Add(HubEx,4998237,343,357)
{
 Angle=1
 link(onEvent,2876932:doWork1,[])
}
Add(DoData,9364792,126,224)
{
 link(onEventData,3517176:doEvent1,[])
 link(Data,5784437:CurrentDir,[])
}
Add(Hub,13299887,357,462)
{
 link(onEvent1,1416740:doData,[])
 link(onEvent2,777457:doClear,[(382,475)(382,412)])
}
Add(FormatStr,2161900,301,315)
{
 DataCount=0
 Mask="objDoc.Bookmarks("filepath").Range.Paste"
 link(onFString,16382585:doWork2,[])
}
Add(HubEx,16382585,343,315)
{
 Angle=1
 link(onEvent,4998237:doWork1,[])
}
Add(Label,16367872,329,28)
{
 Width=384
 Height=65
 Align=2
 Caption=""
 AutoSize=1
}
Add(Button,6788436,77,224)
{
 Left=295
 Top=15
 Width=84
 Height=35
 Caption="<<Replace>>"
 link(onClick,9364792:doData,[])
}
Add(Label,3495978,364,28)
{
 Left=15
 Top=5
 Caption="ПУТЬКФАЙЛУ"
}
Add(Edit,15356193,301,140)
{
 Left=15
 Top=25
 Width=265
 Text="c:\Replace in word document VBJScript\Barcode.png"
}
Add(Clipboard,15783847,301,189)
{
 Point(PutText)
 link(PutText,15356193:Text,[])
}
Add(FormatStr,15132750,301,273)
{
 DataCount=1
 Mask="objDoc.Bookmarks("barcode").Range.InlineShapes.AddPicture("%1\Barcode.png")"
 link(onFString,10918089:doWork2,[])
}
Add(HubEx,10918089,343,273)
{
 Angle=1
 link(onEvent,16382585:doWork1,[])
}
Add(KeyboardLayout,5355804,161,28)
{
}
Add(Hub,15385422,112,70)
{
 link(onEvent1,5355804:doRussianKbd,[(137,76)(137,41)])
 link(onEvent2,174640:doConvert,[])
}