Вверх ↑
Этот топик читают: Гость
Ответов: 667
Рейтинг: 140
#31: 2021-11-02 06:29:54 ЛС | профиль | цитата
Gitarist писал(а):
Все работает как надо, но если в "путикфайлу" русские символы, то кракозябры из буфера обмена вставляются в шаблон. ((

Переключись на рускую раскладку клавиатуры перед вставкой пути к файлу.
Или поставь компонент KeyboardLayout.
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,[])
}


Редактировалось 1 раз(а), последний 2021-11-02 06:31:25
карма: 14

0
Ответов: 106
Рейтинг: 0
#32: 2021-11-02 09:05:15 ЛС | профиль | цитата
Gunta писал(а):
Или поставь компонент KeyboardLayout.

Так и сделал, но это чот так костыльно )))))))
карма: 0

0
32
Сообщение
...
Прикрепленные файлы
(файлы не залиты)