Вверх ↑
Этот топик читают: Гость
Ответов: 2
Рейтинг: 0
#61: 2020-06-13 20:58:55 ЛС | профиль | цитата
flint2 писал(а):

EVV, Круче сформулировать просто невозможно!
Откуда она возьмётся?
https://yadi.sk/d/PWKJj2oSk6N3JA


Спасибо!
карма: 0

0
Ответов: 1710
Рейтинг: 120
#62: 2020-06-13 21:14:46 ЛС | профиль | цитата
EVV, На здоровье!
карма: 5

0
Ответов: 100
Рейтинг: 16
#63: 2020-06-16 10:24:57 ЛС | профиль | цитата
Как вариант, можно использовать стандартные компоненты.
Add(Memo,15925327,448,189)
{
Left=210
Top=200
Align=5
Strings=#926:Широкое распространение в настоящее время получают инструментальные авторские системы по созданию педагогических средств: обучающих программ, электронных учебников, компьютерных тестов. Особую актуальность для преподавателей школ и вузов приобретают программы для создания компьютерных тестов - тестовые оболочки. Подобных программных средств существует множество, и программисты-разработчики готовы строить новые варианты для удовлетворения возрастающих потребностей. Однако широкое распространение этих программных средств сдерживается отсутствием простых и нетрудоемких методик составления тестовых заданий. Внедрение даст положительный результат, когда тесты, создаваемые с привлечением компьютерных технологий, были максимально просты в использовании, и не требовали специальной подготовки для работы на компьютере. Программа для тестирования или тестовые оболочки в общем случае должны обладать следующими возможностями.|0:|86:Применения подготовленного теста не только для контроля, но и для самоконтроля знаний.|54:Применения мультимедийных технологий при тестировании.|80:Возможность использования различных типов вопросов, в том числе и нестандартных.|79:Возможность создания собственных форм выходных документов по результатам теста.|57:Проведение компьютерного тестирования в сетевом варианте.|47:Интуитивно понятный пользовательский интерфейс.|40:Простота подготовки тестовых материалов.|43:Хранение и анализ результатов тестирования.|229:В раздел сайта включены краткие описания программ для создания тестов и тестовые оболочки различных авторов. Предложенные в списке программы для создания тестов разные по функциональным возможностям и удобству составления тестов.|102:Предпочтение было отдано бесплатным программам для создания тестов, которые расспростаняются свободно.|219:Рассмотрение подобного ряда программ тестирования позволит пользователю оценить, выбрать и применить готовые программные средства в качестве инструмента для создания тестов, самоконтроля или тестирования разного уровня.|208:Это небольшое количество программ для компьютерного тестирования, не исчерпывают всего многообразия программ для тестов. Сделайте свой анализ тестовых оболочек по созданию и использованию компьютерных тестов.|
ScrollBars=3
}
Add(DDEClient,12344087,567,238)
{
ServiceName="WINWORD"
TopicName="System"
AutoUpdate=1
Point(onExecute)
Point(onError)
Point(doExecute)
}
Add(MainForm,4844206,42,49)
{
Left=20
Top=105
Width=444
Height=437
Caption="Пример радоты с Word через dde "
Point(Handle)
link(onCreate,9404130:doEvent1,[])
}
Add(WinTools,6027587,42,98)
{
link(Handle,4844206:Handle,[])
}
Add(Hub,9404130,98,63)
{
OutCount=4
link(onEvent1,2572505:doEvent1,[])
link(onEvent4,6027587:doPopup,[(123,90)(123,139)(32,139)(32,111)])
}
Add(Menu,11693391,35,252)
{
Menu=#4:Word|1:(|15:Paste from Memo|20:Paste from clipboard|1:-|3:New|1:)|
Point(onSelectNum)
link(onSelectNum,2790909:doValue,[])
}
Add(Hub,10422639,210,273)
{
OutCount=3
link(onEvent1,2176761:doPutText,[(354,279)(354,286)])
link(onEvent2,590240:doString,[(259,286)(259,342)])
}
Add(FormatStr,590240,448,336)
{
Mask="[EditPaste] "
link(onFString,4876382:doEvent2,[(494,342)(494,279)])
}
Add(IndexToChanel,4219553,133,259)
{
Count=6
link(onEvent2,12590960:doString,[])
link(onEvent3,10422639:doEvent1,[])
link(onEvent5,14709741:doString,[(200,293)(200,391)])
}
Add(Hub,4876382,518,266)
{
InCount=4
OutCount=1
link(onEvent1,12344087:doExecute,[])
}
Add(FormatStr,12590960,448,266)
{
Mask="[Insert(“%1“)]"
link(onFString,4876382:doEvent1,[])
link(Str1,15925327:Text,[])
}
Add(Memory,2790909,84,259)
{
link(onData,4219553:doEvent,[])
}
Add(FormatStr,14709741,448,385)
{
Mask="[FileNew]"
link(onFString,4876382:doEvent3,[(501,391)(501,286)])
}
Add(Dir,12145668,196,14)
{
}
Add(MemoryStream,10230478,350,-7)
{
Stream=[ZIP322E000078DAED7A05575CCBD2F600094E80E010DC7D70D7E00EC1DD2DB80E103CB80577F700C1353809EE0E83BB06777BC9B9F7DC734EDEBCDF1FF8EE336BEDB577D77EAA67F7AAAEAAEE2E0569A817E80068002C000020062CE78D5B69420000442F010034002CA4D65B5B1B27131B273D65373B13471D0690B51551CE0B48AA2C0024E0BFF8FF1A357103369D4014D1ABF85BE4E87A15C39D9CCF349061FC09F44ABB30D81E90AA0F313DCD8FAD68908A2A10D1F05624E42C574B2CAADDFE63F3295670A8B5AEE4FB587C09BEB1BA161CB473331BF4DEC63814AB71C025A13E761F2BD6E6161C19760820696D57CCD03B78F9B4DC347F0CF56B40244D7C942A997B040BC1C77B4C9695AB9625A8C425723B6AF95A18BC57BA59AF1162AB66D83C6D2448B08DE71C27D4CDE2653EEAD7A087EC7DD89DCC8CFB90A8F0C901ECEF887F1C898B2D90A4A0160973E044E8C4AA48DBDB4D52E06A501C56FE4159DBADB1228F4E0EFC66E55C259FBCE6769E5E8411227A782125A74C3D7B31E3890AA62002A29957741D8C8F4C1DBD820BE0D996FB882123502E7632D08C9697B3109284DBC02BF67E112EDA1C2ADBED72646B763E2D346FD8FE1CC222775DA07BA9DCAA6CD86205C0B43BE1AD932A316D360273619D2588DFBB05BEB3BE8602009E9EA0000AFF989204D1B8F547CF7772CF330EE1794AEA399858393232FCBCFE772AFE173F511AD361D90544143CF27FF01F6B519CEFC0CE9563341A0563CFC1C06A49CAA081672D671E1F7867672175760DC407C6276247DD1DD3C49C57E2748E71135490425BE0A66F74BBB4EE9A4180F880E67C26D0B4DD1A62EAD6A5E9433FA92475BF7F980646E8082E74F47570D2503BDA268DC8E56621820509F5C8A41159756E86BDCACC5592174B5632D3D4B4A5849607CC673ED1D640FCA6611C2F785381CA4416FA4F519D4B553ADF94F7621B98232CA92FE870AD808CE469D186A5F0B8C7CD637BEEB96D85DF4302E8E0B2E14218EF3E986ABFD67CDC0EDDC211603F22D6A8D15BB5C54BD3113A83F8DDFC20A69BC72F7F9E0206F00000EA738BABAD8331A3B1AD91B3F573DCFA19B0F212B46C5381E83ECB948702444B5A6F7B03B20AA6A66DDE1152A8EC5F42BD316AA769ED7511AED26B336220C6D3113527F03BECBA19FEDE03B3BC800FDA3D2C6697098D20D48569157F194D8D76D3FD7471B6AF72E0D16D18BDA604DF74123579ED5A4F28B0A02C49D317F9CE804F10365639D4EABE53339EC85842888B7D260D953E62F0802DFA4D1F9DD1C71CA93DF4213F6091B894B4700484C795FA41E589D61BAEF0DC7C5CB5AC031F4711F8527ABEF3F063C35EC83245DE1743143E449D1A9C22A258B909BD6E6C80214ADFF612080BA6887329BB018BBCB94F352962A18179205C0B05B90FEA2B4A8A109D329691F432CE919CD38C3CCE2FF503E8C1553173A4407F93A00E99669963D81AB91704F95868AAC10371098AF38A1BDDCB16D135B76A949EDBEEE33BF551726FA342DA14DDCC53DFE2738DD77CD49630802F90A34C93CFF7ADD821BAABF79B3DABF228575AED5D3F6DBB3C1FCDAB8289B46F1B1260C41B59A608EC08C6B70F8EEDC6C67AAC9B73EBCC86F7E88A55724C58B03386DA055443E84BEEF4062E33AD25F84A780BE30745F0E2E217CE61F418781A76457B1EE8990D03027503D59DBC924805C224368F68C1B69A3F94E58D8E72F92E658B1C667C11D4AD6F320925CFF8CD32104AB338EC6378B7842D9BE93B48A94C91F7C64A5CDB1FBAEA9AC4F9F26046D8209F30BF306A25132CBEF335CEA02A3D21551E26492A9B563C9F2B57CBBED1AA6FB2F4AE486957A17EA83CF15FF1E27B42F7E6A2E71B453C92F2A0107A654B55297F8BD132EFF2788F276217D96577D88AA2A2D40EC211B7CF2D3B3D9AA5D62A5EE0196B66EF39853CF816D63E5437AED9E76121C982125842546A8F5E887E7B4913BCC81A3B9E217B965E56286414D13BDEFE593169742BDD1D87C17DB966C05089592833897CC5B8A6345E01CB80CFCA21F4F6EBEA2121E077D63D6D5CAD78FE7CC7F41C1BDE006021FEB0EE7F8580BFDBF89FE100E2391C40FCD71D0E3CBBC3E7CC24E0D13FC9939EC7534178C34A8A183CFD0010251028A2831B3A5F6D2B9790DC1FD56F3A76F892E438E2C30E1EE908750D9FF428CCEA7540D9092FF798A101151394FF104279AFF67E1F9F063B5A5F4B57D72A63D4524E7AF2C257248753699429A836CE98FB0DAB097F9634634494FF166BB72AB4B5AE739843FCB62BB31C8E4206F0FB175514D70BB6604BC46BC23ADB94A5157F0E5B286EFE77C402764FE183BB9C52EAF85AC62F6381D2229FB64555A5434709C38C980B15E83EB7E77E2F6E37C82869D3A9CA986078AC23EC3EAA48726CD018CF3E89A46DA9478BCADCA12296E777BF79F93BAB51708F38BD850600EE8900008C3F7DA293B989B5C9BFAE4C3F6DE640432B0C8F03DD8BF15C00F1ECC735FBBA7430DA41653AD8E675556A1CAFA5B59B58A5A931991B47C10BE1D3C9C40461CDDB514170227FDC7840016B5CE063C0A12D2CD9F929A97B5E251FA9964D8C2954F601EE74D387ED9D092E71F11E16B3E1C590E2EAA846223A8BC6CD77E4331D7D3E4892AFEB16F0BE3E0877397F14E943514C5849E0E9EAE473BD7CB81ACE9A60EE647211E4472D541C88C84B4B63C0FC0E088CE6FC4EC1E9DB88BACE1433BA6960DF3B06B1136151A9443315CA4412B24F46055D2BBEFCE6C1E97C7F2CDBD1999504EA204367E748F13A51221B1A3AEE88EA10447C7E717415F52A2A83808F9FFBFE81A026B3F38A52D38593A18491090D6273983F871E2B81A0CA5FE78378D32B51E14E9101FA5D817AD0A58C3DB5C826F45C9AB6DED3D0E6166497BDE8C0899D2DF58E5BABDA7BC68BF780F8FD06DD16B5FDA9845B56001274C5595C5871B52E5C33173B8C542AE6E2A27BBD26FB31D7C314DB07B01A2154B990C58456D7D59D9069D71B2AEBDBF7A0B6890327D907DC38F6F7EFAFDD8B172FF6A075FD49A4624E709B36663E7718D64BF7068F21A88226AE6E2FFADF646487369A4B6FA2DD7CAEC4CA05875F0909F2E049C6703AB07790B2021A018A553D21D5A29DB090F67EAF29F41B94A92FA455AECBF9336C2C907327B037F326B27DD5F194EEDF30AD189368FD201FDDDB221AC9E47573793AA9BE1310F0385E997B20DC7A5F3EA02328999478B70F967FF2721AB939EB297F74BF4EC6673CBDC65AF63E5F4B5C7E946D6135F7F4BA5E3B593D63E47F5CFF1A84094ACD6DE1FD90F84D9D53EDD8D731FD7B85D0002428AA2DE39BCD4709DD9CF48F90E4127DEAA37C38383BB42C22D12F673A0AF06D1D2408D9576E76ADFD8FE5BE15C6A8FB24E6CE026C58C478C2B5AE9C34CAE2EB3B59E10EC3CE2C085CF1B33DC1F31DA1891E1370695086EF704466B3DC22FC061483D1E8F0D97ABAB1B5BED9A01ACE3AA72272A25991A56B7DDB253264EB639863C9A1466B12343C1E181443B9B79E35BD2B9830982C680DBB92254B4312B1A661621B0411C8928796852BCA9CF5D29391E2F5A5E310624363BDE6C537EC4F5B424130886DEC37835E1CF8647A60B35C503D2BE220D9CDBE816948177550658F920D32DC9489A18A6AA1EA46C9E96DECCE8B7FC1221FBCE74FA85035B6C801C7BEF0705AED0935FE894F7072300E1CF9C274CB2D6D0CB5937DD39A008FBA6E28848D9B7B6214F6903E9C9A5BF06D783A1E9635889DC92A23BA155D48B5D1C7BAAEF1E3A0BACAC30B84831DC39E357592F04F8B1DC4E076338FBA1890295508EA72DE4DFF2C623281B673259BEEAEBE559E52E754766D6C038DA191375EAD6ED82754D5CF8C0727DCEB814FBA9BE1BE83874F44FE7A5AD0AFEF68C1A6588A46BE74FA2EA8CA38754E082481772CA8CE6935B393341CCCC8D65B816B526368B11BF918A35287EB6D2DF33034E1DB7AFC55FA51854B9550CB79E3737132AAFBA9B20D539F29F43F482C3DE4148415F4B1215E05BF74579A489B647DBA4B319D70E32F3696A3498E95EA6638C5A4492E058D457DC444F6AA49B88ECF848C80CDE771103B491835F9E4A30D3CE8CAFA614E3E10A4100B9B72B689A4DD1B6DC393D6871C1CEE42C2EA6B32E01EA030A812D4990C84088823A8DB534573C2B5AD36E0D66460CCF0F003C4CC71A21B86D953818DB9354BCC90AF13F69C1927914DB15EC41DEC7FEAA5378D29D29498C4F26724CE7675A1A34BC1C444CAF722457860BB82D7567DA5243FE6C968F2621586985FD94B6A136B89CF45DE96B9A0F130D4C443F6FB0588D7FA536F40AA24095620AA36454957CFC1BEE996927F06F377EE08F775EB6B4DF2F8F80541B4EAED37EDC925B759A63E14F4AE2F04B2B370E40533159211C680168D505C1CE7DE7D74680CC658215401BBC54E4F4CD1493C71DF50F6DD3846C9D655BF4C4E112C2B3A0C8D7F35E37A88776526883816B4C1EE6B0226D2540EB712AB3BCFA24B1C8974419945C9DD38BF083CDD373169274675B018225E6D5C192E6D88F9B2253E06228CC55714A1444D59A6BA31CEE874F690A4AC471E72725633F56E4D6E51E0DA8DB05D4C44280ED11E5FB0F32DD29AC810585A22CF348ADFF4F45749695273D4718CDE675F7C6DEB45BC5164128633896E84506B3599E712FE52C8A6D1C4DCA68934F28E5D3D42D359886E4F6651CB0375F8D2E6ED866BB67BBA1235ABCA3546976205C824D91492AFA997C1358F65336FD34BFD14ACAB70E22F5CBC7A05AF3B458B81EBF555D3FCCEAB76E16C20DFA6D0012B9C24B7E1A0F0FDD56A8F40FA90DEC5FE49EDCCC349CE393F9BBE7DF46EFDB5287DA9DE55226DF7FEE3397D5B75C9964E908F097FA9CAED9065F53B5AD69243AF8E7D17DC0053857DF4A6DAACA54357A8B6B18365E7744FA4CBF9A9F6920BDC004D2E5878DDB2BC1D8E948026B5E29A16F7AF6367F3AEDB7581E98CAD585B53CDC38FBF5D604F522FB0EE3F4B8411FEB68070347172B2B03173FC19286B54AD6DC1EC288FFCFA4F1DA3DBD4316F34EC6BB9450D67A44341F86BE877322135B21F6D89A8797E543CB592926BCAB1A0CB857DA8ECF3F891C173AA5B744598C1896715C2AE1C2A19979E3FE613AC6948331DBB33D0C54B200E6514DD1E2C2944319691B4D3B559DED6BC1C1FA88E60690A40EF8C6BCE10C17BAF924C56B084123998AC2C026888492145D06A91E31C8F8A087DDF87515593133EEFC92C3341B267BE41665943C5139A34A1294DAA369D1CE7509BC3B6FBE817C0FFDDF63D73AC735748C592510E9C3F761E10EFB38CFEBA403FF40AC527AB36D7607A3321DBC47CCA37AE946CFCEA69AF33581434A7BF614BA098110BD2B8F7DC20E4F81FB11C2FE28FBDF3754BB89DB2DFC89D4145D44341677373C7EF695897683F4D0A5A9B3941872198D7B352BD57078ABF086C8E34445F037A2C65F656BC73581076AD1997A8C79F244F9AD93CD49488A0815E15CC81F954E21B35FCD019BD98A9E737226DBE51AE74DAF1455964466108F8729C55EA8D4F1F3CDB207F96A5453E643CBDDF2CC3B83DC20C5E9EA275882E8DF2DB6CD9FC0ACDAAACA0CDCC71B9EC31B64903B35570AB1E3D18151213D23EF8724E5D5D0291AF95164F56BE4DD56CA5C52CD72871993B0678CAFA7DA363717CFC074EF2DB63E9DB786DB8FB62A604C85CC25702A81D5790449D6E8F886E9EB3B4CC94BDEC76B2B61B836686C3459A0A65F9AD18D8A7F7A6C33B96A2AC9C59BD312FE390A71CB68F6E0289101987F06EAC116FF0E2B2CB8609B3E808CBF36B63960FA6A07FDC6E33EF8289B918F4408C9570611ED487426CF8856E4CA9B5D1DCE7E8C6B70C6DB8DE07CD4E0BCD4E8CFD7ADCA5DABEAF40EF99449BC7D191307F0C49A689E5139617C38244F5953F1919CF294384AF6302DF30B10795C0FB08503032B1598AA97A0D614A947B2CC9BD7D2A472FF85E0895984A26F2946D92ABE954186D89C05864ECB6A4A164704485EC30A13CA04FAEDF802F14D19E593FBFFCCE9BEFEBB8308927D432B11E8AAE1AC7C943E217FD24DD26E3D8974A9FCB922DD36549C466F0521B59B5660DAE594F522DF90E2AB27B02E9B7388A5C28A10E6DC60602855CF25C098CB75BE890AB9A1323FCAC2607428968D3ACA0DE09B3D010647FE81AEF538B616A24BD2EE8D10B9E9706E2E5F596A6EF28E8566138912E21D691BBF9CDC9036B8FBF17526DEDF4F1BDECEA4C769D473C3431CADCE51EA42ED946C4D69864B33A1D9C4DBCE6A86C482C2850881CE02BBF85D9A867B7134362FDEA57DF2D855FB1CC97B0499E7051E63176FA05B3DA491B31CC45C998F4494C430099E8E8CAD83902B1031F5346BC6C57404D4D347AB39A95409631947344CC8DB715C4117506D9E4C83DB8455838E1FD950289B02DF1E9B75B0BF347BD6B16CF5EE193030080FC1FCFE0E46665F2875F684ED7720437A1F62CF34C1CB58FBDBB5BE93D1595E3EDE132E2B13F2C4E5F479B1B6211117E6D19A3E076929FD90A9090FC9498D5B032CD18E23C4728787FA2A74FAD747B783543F62AC32D01213903492CF3120642FE2D4E8893173BE843C3FC1D2FECA95F3E6A9849FF08B42D2FE1FDE345B9F7CDE1262BE39261060CFCA7AD424910BB3AFAF75327CEC1AE97F2EA8F920C6E9F75D3FAE80C02DC938682E00632FA3775A962C969BF297FCB01E1111C1C45C1B051EC0B475727C3DE70E024C0C923A0090C824A839987B00C93CBCD1975CC1999C3129211DD324AFCE5D6421381D15F987249015222497DDAC3A1F27BFA7B043871F08487A96D312028CE6E885700FD37A76A6FD61D87B03F4BA49292BC316BDE0AEE5DBB76EE86DC7813C4A97B41EA2D7D8E4ABEBA3BC41B8F93DA1D9AC70A3F0984812E7D5269997A4A169802B77D86C3EB3BC6CBAC64667078007E1DD90BBA203D5B8E9709E3057199B8517DF3DF4BF4A314AE75F4CCD832CCD25DA5631C76ECC0D5D3DE11C0D5833BEB74BF151631044ED26F3DA930F2575F5BD9D955B86F295DE9EF3726E59F4D396A345E9D8DFDE89BF329F488427B9854B61F81A603A7A6EDB71B78EA4F3D4DAF322C0B3023316A50C9F058A9DA6D7E1F03E9BD35CA2EF3B6BB37B958312BEE498B0F28C563F2D97B62738115D3D650C67151DA44BAA0C95CEC3F0E118F156EB163075A175312DAFE60216689C71B86D69349DDEB8393FF561B4C92A1692B8345B2D686C9EB39E856E3F63842BB7E741BA290507C7B776C6C652A9426BEACF7B675724EB82585B9AC0F191F65DF35D170A201EE69049EFD73BC79A89E5DC13B53A07B1470519CF89593880DBE354BF507D7832D9DA2C057029FB373A32C77AE737171BD95DF52124E8D6E4759F6EA3F662285B0AE95C7A31AB0F83485ADDB91A6AC03F152D68F5FA7AC57C0A7ACDB41A6AC27ED98471A11E472455A84AEA0333B0D09BFAF22E436F5E071BDC25DED596C21BBB6772D07782D2CC22D477DE569BBB3772D7414F8F1E3E0B06731BDF464C1B20463812A355FD43671288F4E49E3386BA5FCC1824E85EE9DF8F8F1794E0F4B8C3F59BB7272996EB0C784B029C151067177DEE3BE5B3642B3E0B05F725222CE88876B5AE1086F823441059512AFB07E7718B36378F048DAF075B8192F12D7E6B702FF3D29A0C480B1149023D14AAE7BCD4284F7032D89A492BABCB98A00638DE48B8E3C39F5A4BE479DD8703A8185D0E627750B093BC56E264AC387AC64C3C0A9367660D263BE6FC77939226281B781BE85189B085B84799E25EE98CF146B8E7DC916E554C31F371622EBAA13B751607F2AC3D8B5439D9EA2BBC6AF03EA7B2C4F2D774CA86771C548824F9B05FC66B80BD5E1432C75DA2F6E4B9D58A6F94DAD78B098DD1108A8A66BD8422CF56C0B7AF3B92DA3131E609CC2C44CBEB045F5EABE2788EE986E7EC4FCFA0E6CDC22F4B5A0D88C62B3C69CB58CD899F9F0E37793DAECC32376D5F34C033C28ED103ACA6A2196047DE8A751B0063DA5E816F8BCCABB87BDF4B1CE3D335EE2AB1A299C3BCEC0710805925E1BBD5B417F55E1521E2D4ECF6980B8D337C9E83ECB2F730902C018A7AAFB2BE346FD4660ED3866CE9D525B93295183D1C0128C13214BF4F8CEA527A301C9AB1D17941964D7FA0E7FED3DE677C88848C7C2980132BD4917C9ED6D0F6B136D134EC7DA181DBB7863631968E904CC15D24215BDCA6438A8D193ECEFF2FC8C91D89ABD4FEB8B8D3544DE7E1D013927CB758404A325D095C8C2F8D62BEB7E50BC09D2E730063D19268F6E0714C95C084256CBE16D6D9E2FF31E64EE79F5FA6C0C8E129A180C0BA4947D0929E8BA58A6B05ABDB5450D4FB1741B3D4B5CD1AFB77B4076411077AE48641A705CBD879D4A15776EA025B838B9647CB4CC083761A7356A82D086E813B37B4986278C932899F28EA0721595A06255919071358E89D7EF9D43E055948C88B1213676FC6B6831727F5F450B7DFD3CC8F336E11EBF8B36999F17D5423F546B083AEC295E529DC710FECD4A7DE5B3C1F6A2AD645FC52116A8DC14B3A06548FED46259E0E26B23E2E2ADB4803C2DF3713F4AE9E4CA8308D81BBE2D47313BBF9A9C45338782A3E54F16CEA81C104A99B991701C608C48A90DBD0F52D36C433907581D388A983D4AAFD3B5C0749C140E77F3B53A065B72914B3A0D511ABD58CC91A02D4E0AD7D2CF899453D638475F6D9BC6766BB6CB921843F5ABD4330FEB99D61FD2A34BFC3C69AD5CFD658DF8751747C6D15D7A4815294A223B53A9BB8316FD87C297E0F9E7F19BE724AD44095CC33F5A47BA8ADBB8F4694553E2931AA466F288E166DA88D6DDACE20D64E052764A82EF356640917DAEE3EC61D31D114375B279CEC613E8BC16A9A25AAA70C35D0ADE9A80A9DD2D1CD70F1C670DEB4C0C0EEF802E0EEFB8EFFA23CC5966E51FE9CEFB2325530A5A2EA6D0888E52659D0A076FCCA84BCE2EB508399DDB8AF7C5ACD3C6D36022D2BA7E106A5B9BE05C71BAC871D8886C37AF8B39C909DA8814CA6C208AE79371E43BDA38907253527340A697AD84FA0CA8020912CBF49BE5EBFCD033ADA68CB056C49C965E35A09AE70ABF982FE27381B779D15F44B43050F4C98F9D46242B02FE59D289843D5C04243053C63E3252963861A2C9FB57FB4F068AEF1FAFED35D6BB067AE060288D8A05C0D62812435A2B57EB1D18286347B1D0845F3D33AEB1FF2E0B16C4C320F9F918A728D490A848FCF23F4D65366CE71C34E13D3818DD77CF940FE1F0D4FFE8E85FFDFEAFBF98828CE0818DD1BD1E0EBFEEF94CE1170B40FFA5A79F8F26CA283F4C942584FED5145C77A3E12DB2DB34E8F551607FB7D9B0ED4E5CCDB9D06BBEDE015CD4F5A348A57CA1F4C71589B6C40D3AEB120864BE176183C21411C05A58844F5802D676947CB1E73F22C0003E3AAEDCE56B732A6EC5EAFC600ABF22AE43DAC1159F5B476D2BEE477254645D008ED69F719B4CF03C94A84024A825D7591F9812A5B6E482ECB0B6E88627E0EA0457D562BC0A6AA017D7F2B5FB0866AEC6808569A027D4F2EDF1951B3ECA8DE2899C00797A5213D5C88A87D9AD51D4C84A174DD1E0BF3572C21892DDF99C913AAA22C601915F88E68F351D214C7B20762389641D183FBF5C6403A96A29711C83AB7F9F1F48655B4CDC2F6F99845DA9F4F6B9F969E380022489047C547A1B573F89B249C9A6DD5FF18744A25D6AD151C8C5F02F4E43639714129C7A3131042D1BD93F494531637F9290E07495A0C2DB9E9BE9D9446A25AD8773AC24239466E17BAC3B4B0517FCAC5EAEC55463EC28D26B8C654CC5881E972664A9D20ED94FC5D0A73C7F001F477649B80DA4943C253463295E80EA6CC4692CAE1A3D9BE4A1AD32C773B75F341DA4224A1234F3BB55A4CB94D63F93D74F3658164B5A6AD74E92D57A3BB8A035E7FD5B92AF5AFCAC54EB0FC933CD32E60F35FFFEA2DFB0FF7C872BFFFFA9E0B9F3B43F854A25CFF45DB90058BF729F14323A5AC8A6A3B0AFA63739FA0F6D69C74C432086753382973541EE61DCFDAB03D3237A167537107C178FC211C98FD04EFB2EF945B7D0B3B8E64BA05C89C17BBFF81F220A4F98EA0F5D2A05E51794B52A4614D075AF1994590C1E6A55BEA85E0AB144DAE6B10DD998CEEF2D5ECC5A4317B82F4F57D45C568DB27C2D0B22ED1154CEB0BBD897B63ED5C17FB798D43D259F532C60332E01A1BB970955C28DDD52059FAFDBB661FFA1E7B3EB40FE5D195326C65449AEE759FC8B23DD4CD5E52FDBE12332B82E9081E0F462826981812DECADBDBBCBFD7D28EDB79EA3C0C92DE1F8D6DCE6DD99BDF2FBFDA7DF1E8908763C9D703DE7EBA4CF6B76F43FB3725713C3777F5BB2A78DEBC977025100C7AE686D5DE3AE3B44559F02840C11BBB18C72BC7CC617B32A0FE95BD6DAE58FAC210D4106ADE74F0F0E332E75B35CA91F8489FC5B51720D685E1FE34AAFCF0480BCB55E159064177D28A673A7FA462041B755CF514D61AB7F01CF742A29A57E12C7A3132C1BEECC40BE8BC429FAB6B4E3CC34A0A3B877A222412E20CA9A6F74C71263A85F1DEDCA21AD209913B88AFBB2A4DF1C24D8E2BC6284C508A58E3936D13DE93499F2BE06FAAD06CCA4E0B70BCEBB752E93FB109C451DC1E11D9F8F2A6F1C9882C2B943BBC42D381C2EB192CEA1BAB1040B0C6646920810FBA2B723A9EFB8E6FA983693CFDA8C87017E5EDF3692600E75B4A2276E26E68D1468075EB72976CEA439D9811DEAAC67906EAED3BCE9A7C738CF5E4A235E41E0F911814D4CE8D91947A278A3BD5B2FEFF17E37D4FEE5D8D2E0E7A1268406005EFF39D4A6B6364ECA068656263F077A216624140C44E93E0A68F51FF5349ABBA92ED630CBDE8586CF0FAAF2048826582B4A33E3922F357B8A57C54277763605F1952255DD0F0D8EE48E9C1D5FE76839C4BD8A637B296B16FEDAE2237D7C31C2ED9D9B6B7DC10B5E0E72DBB2E8977C925951A9239904B7CD55DD501DEE508D982FAD9B8F4EC920C624860C4C792C80EA1A858D3D6A6A94295F05827EC8A92FDA975F7E56798C330E2FDB09B6B7CD9EFDAC24EC55BD96957F52C96F5F259AC3365AF46AB8E691BE66A9A9CA515502C05B6D0393B1D5AF0DDC5D83CE8BB7C3B4DA34032555E606779EC67D4FB77982489800CC21E9936F0CB076BB1B93A9BB0D296EB20EEF752A6E626C3FA53442FAA405AA67DCF9C4BEA21C2779D2C5DBBF6E157DFD48EAC71E0BFB8AD6058FC03E6C37D55E573213EF4BA5FE8056AD2B0D34B70D5D2FBA91F812669C89554F4243A047C79641BEA4043A922B111419854DBDBFB67DD9FC8446802E04A2AF9CDB58DA05A92B0D2BCF47C1296CCEF60C8C738B0EF5CB1AF0989064F4A082C682377E3C622AEE17C65CE6362A3A2A1287B5F7DC76221BDA0EC7A97D2BED11682352D2440226F25E1A4343B491C65601727463512B831F6248191C28B95E0F7BAFF73EB8DF304486570B7915359D94CB492485217313AF43B37BFF762D4C8F981A64F12C5986FCB94B060B616C6BA4E0606BE7C86864EB60F2EFBAB0FF9E3E3E233C4647DE1F881E78247B8F9C7735DAE9C4F4423DC7548D81C95E6C5DC77AA48E5B33A50EEFF4881E98F44D07E4CABF74B671CE3784B95C8518A95F5AA41CB9169C05402F695000BF69F992B88A0F5F9A1B3A51A5F429179A4E137D460D6782BA04913755CADF1ED26A45B2BF4066DB7C3B4D8EA9CE0A2666BE9736CED68686B4F8AC78CE50762EC30682F2E360E50B712E67F4FA7685281127610776928B8E387C1F1644720985E135CED0138DFD76090FFBACFD7B25A9555C24ACFCB78ECADE5A4CF0FB4D917B1A9417773DD79E17E7E37C6CE89F2F42216898879528B5E1440347B2A30E56CF1092F6078CD68C4C7D9AFAD1274F6567DEC0974D7998EFF5DBEDF7502427DA570CC21EDE4378ECE4AD4C91D7DA6C3236A1B61FA5A23DD9B6C4E372865E52A2DB17624F1C18BF6F433B6E07475F6E21A5D7CF75ADBB87847E2423233B036694F759A70C2A09F3CFD7529C9965F1D21F7BAF0DC57102DCCD0AF4AAAE7F6B9F5A9EC83FDE3F4BBE3FDB27CADFEDD3C0CEEEBFE6F917D26264E5BB8088814712F7419FAFE8F183E06475517085DF5C27D5406E53D98383594362AC0C9F08CC02945E50BA5711F6D8EA7EF52DB95A42874154E4F9CA8075F6996E54AAB0C67A66D3D193E72B5D58D247954ECEB0FDD3E0CAE6B56DB30AA46123095C23A1D7EC5F0618C8DB0CE9FA5F79A06E2BD7295B68EF88E6B0D60CB2452480D6375AC553674555E8715A296BE0A706A3FC36B31AB8F39E426928ABDBAE9508F976ED8B2AAFC4C836A21A2706E3A5F92AA2850F6380B53FA21961A3E0AC44C398AA897DD4B09437302A887D6429FD3E855C26AE92F9BF3F8A482019D3BDF14FE8109DC95BDB35AEEB5D6C2F10F7819ECD5E80498FD4B04CE96CA90335E9C3F6AAA058A3B4F2744842F35023DA983B2DC1A2A1CE72F844ECB75490F574079F2FAD55972FCA2E759A0DC873E29CA814DA6C07BC69BEEF331047C76824440A07FCD8317B113B553C5357D43A7CCFB071D182581EC3987016DA3AD1DA8A2DCBC78FF5F81F038580A407FC5FC5B5BFE237A5B6BF2AF86729E0DF11FB9C0BFDAD30F057E2AF35527FA11AFA371553BFD2FF5984F27744C3FD9BFE7F94A4FCAAE9D7C284BFD083F07F9429FCAAE2D7E39ABF70FEFA378737BFD27FDDD3FD0BAFB0FED70EEFAFE45F53CFBF9047F2FB44F4570DBF66547F0199EC77F9D5AFFC7F86E1BF03970200F85F41F957FA3FBDE4DFD144F537FABF7DA682F44BE89F3284E75FC733438BF6E7D3FF0067590B44]
}
Add(FileStream,9654526,413,28)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,13460422:Var3,[(419,19)(398,19)(398,103)])
}
Add(DoData,16564717,350,42)
{
link(onEventData,9654526:doCopyFromStream,[])
link(Data,10230478:Stream,[])
}
Add(FileTools,6460137,252,42)
{
link(onEnd,4982138:doEvent,[])
}
Add(IndexToChanel,4982138,301,42)
{
link(onEvent1,16564717:doData,[])
}
Add(StrCat,828244,196,63)
{
Str2="Test.docx"
link(onStrCat,6460137:doFileExists,[])
link(Str1,12145668:CurrentDir,[])
}
Add(WinExec,11361884,196,119)
{
FileName="Test.docx"
link(FileName,13460422:Var2,[])
}
Add(Hub,2572505,154,63)
{
link(onEvent1,828244:doStrCat,[])
link(onEvent2,11361884:doShellExec,[(186,76)(186,132)])
}
Add(GetDataEx,13460422,196,98)
{
link(Data,828244:Result,[])
}
Add(InfoTip,4993219,525,21)
{
Info=#84:https://webistore.ru/raznoe/vklyuchenie-i-otklyuchenie-dynamic-data-exchange-v-word/|
Width=484
}
Add(Clipboard,2176761,364,280)
{
Unicode=0
Point(PutText)
link(PutText,12872136:Text,[])
}
Add(StrList,12872136,364,196)
{
Strings=#51:Включение и отключение Dynamic Data Exchange в Word|550:Word 2010В декабре нынешнего года Microsoft из соображений безопасности отключила свою технологию Dynamic Data Exchange в Word. DDE является довольно старой технологией. В частности, именно она отвечает за ассоциацию файлов и приложений в Windows. Что касается Microsoft Office, то в нем DDE используется для автоматического «подтягивания» файлов из других приложений. В частности, широко распространенным является вставка в Word таблицы, которая фактически хранится в отдельном файле Excel и автоматически обновляется при каждом открытии файла Word.|0:|591:Однако, с точки зрения безопасности механизм DDE содержит потенциальную угрозу. Теоретически, использование DDE в Office позволяет запустить командную строку и выполнить вредоносный код. Microsoft долго противилась отключению DDE в Office, но, в итоге, была вынуждена частично «сдаться» и отключить DDE. Пока лишь в Word. Патчи выпущены для Word 2007, 2010, 2013 и 2016. В дальнейшем возможно отключение DDE и в других программах, входящих в пакет Microsoft Office, но это будет зависеть уже от проводимых компанией тестов. Дополнительную информацию о новых обновлениях можно получить здесь.|0:|180:Впрочем, отключить или включить Dynamic Data Exchange в Word можно вручную и после установки свежего патча. По сути, всё, что он делает, это лишь добавляет новый параметр по адресу|0:|0:|89:под названием AllowDDE. Тип параметра DWORD. Параметр может принимать следующие значения:|0:|17:0 — DDE выключен;|0:|72:1 — DDE разрешен к уже запущенной программе, но новые запросы запрещены;|0:|16:2 — DDE включен.|
}


Остальные команды DDE для Word
Word DDE commands

[FileNew]
Creates a new empty document
[FileNew .NewTemplate = 0, .Template = Template$]
Creates a new document or template
.NewTemplate = 0 (or omitted) = new document
1 New template
.Template = The name of the template or document on which to base the
new document or template, or the name of the wizard to run.
You *must* specify the complete path to the template file.
[FileSaveAs “c:\temp\test.doc“, 0]
Save active document as “c:\temp\test.doc“
[FileSave]
Save active document
[FileClose]
Close active document
[FileExit Mode]
Quits Winword. Mode:
0 Prompts the user to save documents
1 Saves all edited documents before quitting.
2 Quits without saving changed documents.
[FilePrintDefault]
Prints the active document using the current settings in the Print and Print
Setup dialog boxes (File menu) and on the Print tab in the Options dialog box
(Tools menu).
[InsertPicture(“c:\pic1$$$$.bmp“)]
Inserts picture file at current cursor position
[Insert(“Hello“)]
Inserts text „Hello“
[Insert “Hi HTBasic users“]
Inserts text „Hi HTBasic users“
[InsertFrame]
Inserts an empty frame, or frames the selected text, graphic, or both. If there is
no selection, Word inserts a 1-inch - square frame at the insertion point (the
frame appears as a square in page layout view). You can change the
dimensions of the frame with FormatFrame.
[RemoveFrames]
Removes all frames in the selection. Note that borders, applied automatically
when you insert a frame around text, are not removed.
[FormatBordersAndShading.Shadow=1,.TopBorder=1, .LeftBorder=1,
.BottomBorder=1, .RightBorder=1, .ApplyTo=0]
Sets border and shading formats for the selected paragraphs, table cells, or
graphic. The arguments for the FormatBordersAndShading statement
correspond to the options in the Borders And Shading dialog box (Format
menu).
.Shadow Specifies whether to apply a shadow to the border of paragraphs
or a graphic:
0 (zero) Does not apply a shadow.
1 Applies a shadow.You cannot apply a shadow to a table or table
cells. If you want to apply a shadow to a paragraph or graphic, the
item must have—or you must specify—matching right, left, top, and
bottom borders. Otherwise, an error occurs.
.TopBorder, .LeftBorder, .BottomBorder, .RightBorder
The line style for the border on the top, left, bottom, and right edges of
paragraphs, cells, or a graphic, in the range 0 (zero), which is no
border, through 11 (for a list of line styles and their values, see
BorderLineStyle).
.ApplyTo If the selection consists of more than one of the following items,
specifies to which item or items the border format is applied:
0 (zero) Paragraphs
1 Graphic
2 Cells
3 Whole table
If .ApplyTo is omitted, the default for the selection is assumed.
.TopColor, .LeftColor, .BottomColor, .RightColor, .HorizColor, .VertColor
The color to be applied to the specified borders, in the range from 0 (zero),
which is Auto, through 16 (for a list of colors and their values, see CharColor).
[InsertBreak.Type=x] Inserts a break. .Type
values:
0 (zero) or omitted Page break
1 Column break
2 Next Page section break
3 Continuous section break
4 Even Page section break
5 Odd Page section break
6 Line break (newline character)
[InsertDateTime .InsertAsField = number] Inserts the current date,
time, or both, as either text or a TIME field.
.InsertAsField Specifies whether Word
inserts the information as a TIME field:
0 (zero) Word inserts the
information as text.
1 Word inserts the information as a TIME field.
Omitted Word inserts the
information according to the current setting of the Insert As Field check box in
the Date And Time dialog box (Insert menu).
[InsertPageNumbers .Type = 0, .Position = 2,
.FirstPage = 0] Inserts page number
into the header or footer.
.Type: 0 = header, 1= footer
.Position: 0 = Left, 1=Center, 2=Right
3=Inside (left on odd pages, right on even pages)
4=Outside (right on odd pages, left on even pages)
.Firstpage: If 1, the field is included in the header or footer on the first page.
[TableInsertTable .NumColumns = 3, .NumRows = 5, .Format=xx]
Inserts a table with .NumColumns columns and .NumRows rows
Additional parameter: .Format=xx
where xx = One of the predefined formats listed in the Table AutoFormat dialog
box (Table menu): 0 (zero) corresponds to the first format listed in the Formats
box („none“), 1 corresponds to the second format, and so on.
[TableDeleteColumn] Deletes the table
column containing the insertion point, or deletes all columns containing part of
the selection. If the insertion point or selection is not within a table, an error
occurs.
[TableDeleteRow] Deletes the row
containing the insertion point, or deletes all rows containing part of the
selection. If the insertion point or selection is not within a table, an error
occurs.
[TableDeleteCells .ShiftCells = number] Deletes the selected
cells. If the insertion point or selection is not within a table, an error occurs.
.ShiftCells: Sets the direction to shift the remaining cells:
0 (zero) Shift the cells left.
1 Shift the cells up.
2 Delete the entire row.
3 Delete the entire
column.
[TableSelectTable] Selects the entire table
containing the insertion point. If the insertion point or selection is not in a table,
an error occurs. As the examples in this entry demonstrate, you can use
TableSelectTable in combination with other WordBasic statements to move
the insertion point reliably to the first cell in a table or to the first character after
a table.
[InsertPara] Inserts a paragraph mark at the insertion point.
[Bold] Toggles bold state
[Bold 1] Switches on Bold state
[Bold 0] Switches off Bold state
[NextCell]
[PrevCell] Selects the contents of
the next table cell
Selects the contents of the previous table cell
[Underline]
[Underline 1] & [Underline 0] see above Toggles underline state
[Italic]
[Italic 1] / [Italic 0] see above Toggles italic state
[DottedUnderline]
[DottedUnderline 1] / [DottedUnderline 0] see above Toggles
dottedunderline state
[DoubleUnderline]
[DoubleUnderline 1] / [DoubleUnderline 0] see above Toggles
dottedunderline state
[FormatFont(„15“)] Sets font size to 15
points
[Font(„Arial“)] Selects font „Arial“
[CharColor x] Sets color of characters
to value x. Range: 0..16
Values
0=Auto, specified in the Control Panel (Windows)
1=Black, 2=Blue, 3=Cyan, 4=Green, 5=Magenta, 6=Red, 7=Yellow, 8=White,
9=Dark Blue, 10=Dark Cyan, 11=Dark Green, 12=Dark Magenta, 13=Dark
Red, 14=Dark Yellow, 15=Dark Gray, 16=Light Gray
[ResetChar x]
0 (zero) If the selected text contains any manual
character formatting
1 If the selected text contains no manual character formatting
[NormalStyle] Applies the Normal style to the selected paragraphs
[Style Style$] Applies a style to the selected paragraphs.
Example: [Style “Heading 1“]
FormatStyle .Name = “TestMe“, .Define
FormatDefineStyleFont .Points = “10“, .Bold = 1, .SmallCaps = 1
.Name The name of the style.
.Delete Deletes the specified style.
.BasedOn Specifies an existing style on which to base the specified style.
.Type specifies the type for a new style,:
0 (zero) or omitted Paragraph
1 Character
.FileName The document or template to merge styles to or from.
.Define Redefines an existing style or creates a new style with the formats
specified in subsequent instructions.
.Rename Renames the style specified by .Name to the name specified by
.NewName.
.Apply Applies the style to the selected paragraphs.
[FormatPicture .ScaleX = ““50%““, .ScaleY = ““50%““]
Formats a picture using the values .ScaleX and .ScaleY. You must select the
picture before you can do this formatting, e.g. using
[editgoto .Destination=“G2"] ! go to picture 2
[charright 1,1] ! select the pitcure
[LeftPara] The LeftPara statement aligns the selected paragraphs with the
left indent.
[RightPara] The RightPara statement aligns the selected paragraphs with
the right indent.
[CenterPara] Centers the selected paragraphs.
[JustifyPara] The JustifyPara statement justifies the selected paragraphs.
[LineUp] Cursor 1 line up
[LineDown] Cursor 1 line down
[CharLeft] 1 character left
[CharRight] 1 char right
[EditSelectAll] Selects whole document
[EditGoto] Jumps to start of document
[EditGoto .Destination=“Bookmark1"] Jumps to „Bookmark1“
[EditGoto .Destination=“L6"] Jumps to line 6 on current page
[EditGoto .Destination=“L+2"] Relative jump to the 2nd line after the current
line
[EditGoto .Destination=“L-1"] Relative jump to the previous line
[EditGoto .Destination=“S3"] Jumps to section 3 on current page
[EditGoto .Destination=“P5"] Jumps to page 5
[EditGoto .Destination=“F’TIME“] Jumps to next field called TIME
[EditGoto .Destination=“T2"] Jumps to table 2
[EditGoto .Destination=“G7"] Jumps to graphic 7
[EditGoto .Destination=“Q4"] Jumps to equation 4
[FilePrintPreview] Printer Preview
[ViewNormal] „Normal“ page view
[ViewPage] „Page Layout“ view
[EditUndo] Undo last action
[EditRedo] Redo last action
[EditPaste] Paste data from clipboard
[EditCut] Cut selected data to clipboard
[EditCopy] Copy selected data to clipboard
[DeleteWord] Deletes the word immediately following the
insertion point
[DeleteBackWord] Deletes the word immediately preceding the insertion point
[EditClear clear] Deletes the selection or a specified number of characters.
If clear is > 0 the appropriate number of characters to the right of the
insertion point will be deleted. If clear is < 0 the appropriate number of
characters to the left of the insertion point will be deleted.
[EndOfDocument] Jumps to the last line of the document
[EndOfLine] Jumps to the end of the current line
[EndOfLine 1] Marks text from current cursor position to the end of the
line
[StartOfLine] Jumps to the begin of the current line
[StartOfLine 1] Marks text from current cursor position to the begin of the
line
[EndOfDocument 1] Marks text from current cursor position to the end of the
document
[StartOfDocument 1] Marks text from current cursor position to the begin of the
document
[EndOfWindow] Marks current page content
[CharRight 1,1] Marks next character
[CharRight 5,1] Marks next 5 characters
[CharLeft 1,1] Marks previous character
[CharLeft 3,1] Marks previous 3 characters
[WordRight 1,1] Marks next word
[WordRight 8,1] Marks next 8 words
[WordLeft 1,1] Marks previous word
[WordLeft 2,1] Marks previous 2 words
[VLine x] Scrolls the document xx lines (x>0 = scroll down, x<0
scroll up)
[VPage x] Scrolls the document xx screens (x>0 = scroll down, x<0
scroll up)
[FormatBullet.Indent=5,.Font=“Fontname“, .CharNum=xx, .Points=10]
Adds bullets to the selected paragraphs.
.Points The size of the bullets, in points.
.Color The color of the bullets
.CharNum The sum of 31 and the number corresponding to the position of
the symbol in the Symbol dialog box (Insert menu), counting from
left to right. For example, to specify an omega (), which is at
position 56 on the table of symbols in the Symbol font, set
.CharNum to 87.
.Font The name of the font containing the symbol. Names of decorative
fonts appear in the Font box in the Symbol dialog box.
[ToggleFull] Toggles full screen mode on and off.
[ViewZoom100] Switches to normal view and sets magnification to 100
percent for the active document and new documents.
[ViewZoomWholePage] Sets magnification so the entire page is visible in
page layout view. ViewZoomWholePage switches to
page layout view if the active document is in another
view.
[AppMinimize] Minimizes Word application window
[AppMaximize] Maximizes Word application window
[AppRestore] Restores Word application window
[AppHide] Hides Word application window from task bar
[AppShow] Shows Word application window (after hiding)
[AppActivate] Brings Word application window to front

Редактировалось 2 раз(а), последний 2020-06-16 10:46:51
карма: 4

0
Ответов: 100
Рейтинг: 16
#64: 2020-08-15 22:35:40 ЛС | профиль | цитата
Небольшой пример нестандартной вставки таблицы в документ Word с заголовками столбцов на каждой странице, а также вставка колонтитулов.
Add(DDEClient,12344087,609,441)
{
ServiceName="WINWORD"
TopicName="System"
AutoUpdate=1
Point(onExecute)
Point(onError)
Point(doExecute)
}
Add(MainForm,4844206,259,105)
{
Left=20
Top=105
Width=495
Height=112
Caption="Пример радоты с Word через dde "
Point(Handle)
Point(onClose)
link(onCreate,9404130:doEvent1,[])
link(onClose,8397426:doDelete,[(305,132)(305,139)])
}
Add(WinTools,6027587,259,154)
{
link(Handle,4844206:Handle,[])
}
Add(Hub,9404130,315,119)
{
link(onEvent1,6027587:doPopup,[(340,125)(340,97)(249,97)(249,167)])
link(onEvent2,8397426:doCreate,[])
}
Add(Memo,15925327,266,266)
{
Width=479
Height=73
Align=5
Strings=#72:Дождитесь загрузки MS Word и затем выберите в меню пункт "insert Table".|
ScrollBars=3
}
Add(StrList,10151347,371,287)
{
Strings=#7:AppShow|8:ViewPage|15:Insert Chr$(10)|9:EditPaste|28:EditGoTo .Destination = "L2"|15:EndOfDocument 1|36:TextToTable .Format = 1, .Apply = 16|142:FormatBordersAndShading .ApplyTo = 2, .TopBorder = 7, .LeftBorder = 7, .BottomBorder = 7, .RightBorder = 7 , .HorizBorder = 1, .VertBorder = 1|28:EditGoTo .Destination = "L2"|14:TableSelectRow|6:Bold 1|8:Italic 1|15:TableHeadings 1|15:StartOfDocument|54:Insert "ООО " + Chr$(34) + "Компания Строй" + Chr$(34)|15:Insert Chr$(10)|37:Insert "Самарская область" + Chr$(11)|34:Insert "город Балашиха" + Chr$(11)|34:Insert "пр. Ленина, 78" + Chr$(11)|33:Insert "Филипп Андреевич Кабанов"|15:Insert Chr$(10)|17:StartOfDocument 1|55:FormatParagraph .Alignment = 2, .Before = 1, .After = 1|13:EditSelectAll|9:ShowAll 0|15:StartOfDocument|
}
Add(DoData,1491782,546,469)
{
link(onEventData,12344087:doExecute,[])
link(Data,15503582:Var2,[])
}
Add(StrList,14376443,490,287)
{
Strings=#42:Item Description Quantity Unit Price Value|63:13930 Double-action Quickstart II rem. L=740mm 1 PC 98,66 98,66|53:13100201 Spray gun for udder washer 20 PC 17,77 355,4|49:13246007 COMBI-cock ш51 mm cpl. 10 PC 63,43 634,3|51:25643301 Milk hose ш 24/14 x 2750 32 PC 9,76 312,32|56:14291 Service no.1 RDS MAX double box 1 PC 250,51 250,51|54:24144638 Spiral spring for tube filter 3 PC 43,2 129,6|40:22121763 V-belt spz 1087 4 PC 5,91 23,64|61:MH0015 Repair kit non-rotating cylinder ш40mm 8 PC 14,3 114,4|48:GS9835 Revision set SAC Unipuls 4 PC 13,97 55,88|52:22121735 El-motor 3,0kw 3x400v 1400 1 PC 186,4 186,4|55:23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|55:23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|54:23544122 Carbon disc ш44,7/38,3x5,8mm 2 PC 16,92 33,84|64:21200159 Top part UNIFL3/4 for steel bot.part 25 PC 30,09 752,25|57:24400111 Hose f. pump compl. UNIWASH 153 PC 10,58 1618,74|58:13225 Piston complete for valve UNIWASH3 4 PC 27,09 108,36|60:12200105 Vacuumgauge glycerine ш100mm 3/8" 5 PC 40,57 202,85|53:21200141 Thread bush UNIFLOW3 steel 130 PC 1,93 250,9|42:25100146 O-ring ш16,1x1,6mm 175 PC 0,36 63|56:21200127 Holder rocking lever, UNIFLOW3 170 PC 0,26 44,2|49:21200131 Rocking lever UNIFLOW3 150 PC 0,89 133,5|62:25200132 Valve button inside UNIFLOW3 steel FA 225 PC 0,72 162|61:21200129 Bar closing device UNIFLOW3 steel 225 PC 1,09 245,25|52:25200124 Valve flap outside UNIFLOW3 225 PC 1,56 351|58:14400212 Solenoid valve sgl. invensys 230vac 5 PC 8,5 42,5|62:14400213 Solenoid valve dobb. invensys 230vac 5 PC 14,13 70,65|47:21200131 Rocking lever UNIFLOW3 20 PC 0,89 17,8|62:25200132 Valve button inside UNIFLOW3 steel FA 20 PC 0,72 14,4|42:25100146 O-ring ш16,1x1,6mm 20 PC 0,36 7,2|54:21200127 Holder rocking lever, UNIFLOW3 20 PC 0,26 5,2|57:21200130 Bar closing device UNIFLOW3 steel 20 PC 0,34 6,8|57:25200119 Guard bracket UNIFLOW3 steel SBS 20 PC 3,38 67,6|54:13474 Valve flap exterior UNIFLOW3 SBS 20 PC 1,56 31,2|58:26400104 Terminal wheel for lock guide str 20 PC 1,12 22,4|67:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 96 PC 2,39 229,44|54:14800695 Hose guide f. SAC115 complete 10 PC 9,17 91,7|32:14306 Filter for IDC 20 PC 0,4 8|50:25515435 Rubber hose ш27/16 mm - FA 15 M 5,24 78,6|47:34200107 Indicator jar UNICO1/2 3 PC 4,26 12,78|53:24144638 Spiral spring for tube filter 1 PC 43,2 43,2|61:25200142 Rubber liner RDS FUTURELINE Ш20mm FA 100 PC 4,79 479|66:21214817 Shell w. weight ring UNIFLOW3/4 UNIFLEX 48 PC 6,99 335,52|46:25100204 EC O-Ring 020,0x4,0 250 PC 0,51 127,5|42:23200102 Slide for COMBI-cock 20 PC 1,4 28|53:33246520 Union f. pipe coupling Ш40mm 7 PC 3,91 27,37|50:25246516 Gasket for union DS ш51mm 7 PC 1,77 12,39|49:25200144 Seal f/vacuum container 2 PC 10,93 21,86|63:13197 Inductive sensor - NPN-switch 24Vdc M18 4 PC 67,66 270,64|57:15729 Contact pipe bend 420mm complete 2 PC 118,19 236,38|57:15095 Contact pipe bend 510mm complete 2 PC 121,49 242,98|58:13140216 Lid transp. f. RECeiv.con.60/100l 4 PC 67,6 270,4|60:12900 Milk pump 8000 l 1,1kW 3x400/230V 1 PC 1374,17 1374,17|51:13814 Spare part set for IDC meter 300 PC 8,26 2478|49:25246516 Gasket for union DS ш51mm 4 PC 1,77 7,08|57:15095 Contact pipe bend 510mm complete 1 PC 121,49 121,49|46:24848304 Tube f/cyl. ш110x580 1 PC 18,33 18,33|65:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 300 PC 2,39 717|47:25100197 EC O-ring 108x6mm EPDM 80 PC 0,99 79,2|59:21200107 Distributing piece UNIFLOW2/3/4/4S 80 PC 1,13 90,4|46:22022417 Ball bearing FAG 6204 4 PC 7,76 31,04|61:22022633 Roller bearing FAG nup 204 e tvp. 2 2 PC 49,51 99,02|36:22121752 V-belt a 40 6 PC 5,34 32,04|57:22022566 Oil simmer ring f.SACCO 600-1000 8 PC 4,94 39,52|52:25200104 Gasket for slide COMBI-cock 200 PC 0,77 154|64:25246542 Gasket f. pipeline coup. ш51 steel p. FA 100 PC 0,81 81|52:33246520 Union f. pipe coupling Ш40mm 2 PC 3,91 7,82|56:11161 Plastic plug with logo and magnets 3 PC 7,05 21,15|46:11188 Rubber button for starter 3 PC 1,06 3,18|35:23141666 Eccentric 5 PC 16,71 83,55|29:23141668 Bush 10 PC 1,77 17,7|46:12200102 UNI servo regulator 2 PC 81,67 163,34|47:25242625 Rubber inlet ш 63,5 mm 6 PC 2,56 15,36|44:25242628 Inlet rubber ш76 mm 6 PC 2,18 13,08|41:11943 Valve set complete 2 PC 39,68 79,36|44:11165 Pulsator guard IDC 15 PC 69,43 1041,45|50:1511188 Rubber button for starter 48 PC 1,06 50,88|55:90642903 Upper part indicator IDC2 15 PC 366,45 5496,75|62:12200105 Vacuumgauge glycerine ш100mm 3/8" 26 PC 40,57 1054,82|50:21200141 Thread bush UNIFLOW3 steel 2 PC 1,93 3,86|59:12200105 Vacuumgauge glycerine ш100mm 3/8" 2 PC 40,57 81,14|48:25643301 Milk hose ш 24/14 x 2750 1 PC 9,76 9,76|58:25600130 Milk hose PVC ш40/29x5000mm - FA 2 PC 43,28 86,56|67:22121711 El-motor 0,55kW 3x400V 1400 w. axle jour 2 PC 197,05 394,1|57:15729 Contact pipe bend 420mm complete 1 PC 118,19 118,19|39:23140820 Switch complete 1 PC 86,6 86,6|49:11100111 UNIPULS2 pulsator 60/40 5 PC 64,16 320,8|50:13814 Spare part set for IDC meter 10 PC 8,26 82,6|65:21214817 Shell w. weight ring UNIFLOW3/4 UNIFLEX 12 PC 6,99 83,88|63:21214819 Teat cup shell SS UNIFLOW3/4 UNIFLEX 8 PC 13,19 105,52|57:25200101 Diaphragm for UNI reg./servo reg. 5 PC 6,42 32,1|54:24400110 Rotor f. pump compl. UNIWASH 2 PC 19,03 38,06|56:24400124 Gear motor 200/230 v f UNIWASH 1 PC 75,13 75,13|56:22022566 Oil simmer ring f.SACCO 600-1000 2 PC 4,94 9,88|52:11927 Quick starter for ш50 remover 1 PC 54,03 54,03|40:11160 Bottom part for IDC 1 PC 8,05 8,05|46:13510 Claw UNIFLOW4 Complete 3 PC 68,23 204,69|59:13505 Bottom part UNIFLOW4 steel complete 3 PC 33,83 101,49|52:25100197 EC O-Ring ш108x6mm EEB10570 50 PC 0,99 49,5|54:25200118 Guardbracket UNIFLOW3m steel 12 PC 3,27 39,24|55:25100123 Damping ring for UNI SERVO reg. 4 PC 1,34 5,36|50:22225389 Guiding diaphragm (servo) 5 PC 4,57 22,85|54:14800695 Hose guide f. SAC115 complete 5 PC 9,17 45,85|52:23544093 Rotor w/carbon discs 3/4000l 10 PC 59,3 593|60:23544099 Wear plate for milk pump 3000/4000l 20 PC 3,67 73,4|55:25247631 Valve flap for return valve FA 10 PC 1,45 14,5|39:23544156 Leading pulley 5 PC 2,23 11,15|41:25144153 O-ring 15,6x2,4mm 10 PC 0,32 3,2|55:15149 O-ring EPDM for 12000L milk pump 1 PC 19,32 19,32|61:15208 Mech. sealing ш12 f. 12000 l milk pump 1 PC 61,45 61,45|50:15206 Impeller FP66 0-115 6 wings 1 PC 65,95 65,95|57:11690 Milk filter for IDC Medium complete 10 PC 9,17 91,7|61:14848300 Vac.cyl.compl.ш110xstroklength460 1 PC 326,64 326,64|57:15729 Contact pipe bend 420mm complete 2 PC 118,19 236,38|64:12369 Wear-part pack. for milk pump 3000/4000L 4 PC 65,89 263,56|54:14800327 Railing list 8 x 40 mm blue 18 M 10,09 181,62|54:14800979 Hose guide for SAC115 and tandem 10 PC 1,8 18|52:14800647 Holder for hose guide, blue 10 PC 1,77 17,7|51:11100111 UNIPULS2 pulsator 60/40 20 PC 64,16 1283,2|49:13246007 COMBI-cock ш51 mm cpl. 10 PC 63,43 634,3|63:21200159 Top part UNIFL3/4 for steel bot.part 30 PC 30,09 902,7|52:25200104 Gasket for slide COMBI-cock 500 PC 0,77 385|66:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 700 PC 2,39 1673|44:14400216 Cable for UNIWASH3 2 PC 23,36 46,72|45:12200102 UNI servo regulator 1 PC 81,67 81,67|54:24400111 Hose f. pump compl. UNIWASH 20 PC 10,58 211,6|55:24144803 Filter bags 450x75mm (400 pcs) 10 PAC 40,6 406|59:24144641 Cylinder head/pipe u.8000 l filt. 4 PC 25,05 100,2|66:24144808 Filter bag 645x85mm (ps.a 400pcs) SAC 15 PAC 41,93 628,95|64:12369 Wear-part pack. for milk pump 3000/4000L 7 PC 65,89 461,23|51:21246296 Milk/vacuum nipple single 5 PC 94,36 471,8|49:21246299 Milk nipple ш16mm 45° 5 PC 108,47 542,35|42:11943 Valve set complete 3 PC 39,68 119,04|57:15095 Contact pipe bend 510mm complete 2 PC 121,49 242,98|53:21112381 Hose connect. plastic UNIPULS 10 PC 0,64 6,4|56:23140484 Reducing nipple ш76/ш51 x 77,5 5 PC 32,78 163,9|43:23200102 Slide for COMBI-cock 8 PC 1,4 11,2|51:23200104 Plug for spring COMBI-cock 12 PC 0,13 1,56|58:13140216 Lid transp. f. RECeiv.con.60/100l 3 PC 67,6 202,8|47:25242625 Rubber inlet ш 63,5 mm 4 PC 2,56 10,24|43:25242628 Inlet rubber ш76 mm 3 PC 2,18 6,54|45:22021406 Emptying flap ш60x6mm 1 PC 3,28 3,28|45:23544121 bolt for axle-journal 1 PC 3,64 3,64|49:23544126 Front plate for milk pump 1 PC 16,9 16,9|61:23544155 Pump.housing,stainless,3/4000ltrs 1 PC 161,27 161,27|63:21200159 Top part UNIFL3/4 for steel bot.part 9 PC 30,09 270,81|65:21200143 Suspension UNIFLOW3/UNIFLOW4/UNIFLOW4S 110 PC 4,09 449,9|53:23544093 Rotor w/carbon discs 3/4000l 4 PC 59,3 237,2|54:23544122 Carbon disc ш44,7/38,3x5,8mm 1 PC 16,92 16,92|58:25200106 Valve piece for pilot valve UNICO 30 PC 0,48 14,4|61:11011001 SS lid for milking machine Effectiv 2 PC 47,59 95,18|47:24200128 Plastic cap for UNICO2 10 PC 8,42 84,2|54:24144638 Spiral spring for tube filter 6 PC 43,2 259,2|53:24400111 Hose f. pump compl. UNIWASH 6 PC 10,58 63,48|49:11100111 UNIPULS2 pulsator 60/40 5 PC 64,16 320,8|49:13246007 COMBI-cock ш51 mm cpl. 5 PC 63,43 317,15|51:21246296 Milk/vacuum nipple single 5 PC 94,36 471,8|50:25211251 Lid gasket (strong model) 3 PC 5,74 17,22|64:12369 Wear-part pack. for milk pump 3000/4000L 10 PC 65,89 658,9|42:11943 Valve set complete 4 PC 39,68 158,72|62:15063 ControlBox II - 400/230VAC, 2,5-4,0A 2 PC 623,81 1247,62|47:22022632 Vane for SACCO 1300 12 PC 17,83 213,96|60:23544099 Wear plate for milk pump 3000/4000l 10 PC 3,67 36,7|60:LC90017 Contra hinge joint Cyl.50 (Plastic) 1 PC 22,13 22,13|65:24144808 Filter bag 645x85mm (ps.a 400pcs) SAC 5 PAC 41,93 209,65|65:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 200 PC 2,39 478|63:12871 Axle seal NCE35 comp. f/8000l milk pump 4 PC 200,95 803,8|64:15312 Oil system SACCO1600,2000,2750 1set cpl. 4 PC 30,87 123,48|56:13980 SACCO 1300l vacuum pump mounted 1 PC 812,95 812,95|51:11100111 UNIPULS2 pulsator 60/40 12 PC 64,16 769,92|49:11100111 UNIPULS2 pulsator 60/40 50 PC 64,16 3208|46:12200102 UNI servo regulator 4 PC 81,67 326,68|54:24400110 Rotor f. pump compl. UNIWASH 3 PC 19,03 57,09|46:12611 Gasket 0,003" - 1000/1600 2 PC 2,11 4,22|55:24400110 Rotor f. pump compl. UNIWASH 8 PC 19,03 152,24|65:21200159 Top part UNIFL3/4 for steel bot.part 41 PC 30,09 1233,69|55:24400111 Hose f. pump compl. UNIWASH 14 PC 10,58 148,12|60:21200132 Top part UNIFL.3 f. plast.bottom 15 PC 20,65 309,75|57:13140216 Lid transp. f. RECeiv.con.60/100l 1 PC 67,6 67,6|55:23544122 Carbon disc ш44,7/38,3x5,8mm 9 PC 16,92 152,28|50:13522 Teat liner UNIFLEX square ш22 48 PC 2,75 132|0:|
}
Add(Clipboard,13304259,490,350)
{
Point(PutText)
link(PutText,14376443:Text,[])
}
Add(WinExec,5460650,413,119)
{
Param="/q"
}
Add(StrList,5709642,420,287)
{
Strings=#10:ViewHeader|62:InsertDateTime .InsertAsField = 1, .DateTimePic = "dd.MM.yyyy"|16:GoToHeaderFooter|83:Insert("https://namefake.com/russian-russia/male/7fd2c756901f43d03cdf2028b159b829")|21:CloseViewHeaderFooter|11:ShowAll (0)|
}
Add(ArrayEnum,6819062,378,406)
{
link(onItem,11528860:doString,[])
link(Array,10581033:Var,[])
}
Add(StrCat,11792950,546,406)
{
Point(doClear)
link(Str1,15503582:Var1,[(552,397)(538,397)(538,446)])
}
Add(FormatStr,11528860,476,406)
{
DataCount=1
Mask="[%1]"
link(onFString,11792950:doStrCat,[])
}
Add(GetDataEx,15503582,546,441)
{
link(Data,11792950:Result,[])
}
Add(GetIndexData,10581033,378,343)
{
Count=3
link(onIndex,6178369:doEvent,[])
link(Data2,10151347:Array,[])
link(Data3,5709642:Array,[(398,334)(440,334)])
}
Add(Hub,6248597,315,336)
{
OutCount=5
link(onEvent1,11792950:doClear,[(368,342)(368,391)(515,391)(515,419)])
link(onEvent2,10581033:doIndex,[])
link(onEvent3,6819062:doEnum,[(361,356)(361,412)])
link(onEvent4,1491782:doData,[(354,363)(354,475)])
link(onEvent5,3894250:doEnablIdx,[(340,370)(340,384)(256,384)(256,342)])
}
Add(IndexToChanel,6178369,434,343)
{
link(onEvent2,13304259:doPutText,[])
}
Add(TempFileStream,8397426,357,126)
{
Stream=[ZIP322E000078DAED7A05575CCBD2F600094E80E010DC7D70D7E00EC1DD2DB80E103CB80577F700C1353809EE0E83BB06777BC9B9F7DC734EDEBCDF1FF8EE336BEDB577D77EAA67F7AAAEAAEE2E0569A817E80068002C000020062CE78D5B69420000442F010034002CA4D65B5B1B27131B273D65373B13471D0690B51551CE0B48AA2C0024E0BFF8FF1A357103369D4014D1ABF85BE4E87A15C39D9CCF349061FC09F44ABB30D81E90AA0F313DCD8FAD68908A2A10D1F05624E42C574B2CAADDFE63F3295670A8B5AEE4FB587C09BEB1BA161CB473331BF4DEC63814AB71C025A13E761F2BD6E6161C19760820696D57CCD03B78F9B4DC347F0CF56B40244D7C942A997B040BC1C77B4C9695AB9625A8C425723B6AF95A18BC57BA59AF1162AB66D83C6D2448B08DE71C27D4CDE2653EEAD7A087EC7DD89DCC8CFB90A8F0C901ECEF887F1C898B2D90A4A0160973E044E8C4AA48DBDB4D52E06A501C56FE4159DBADB1228F4E0EFC66E55C259FBCE6769E5E8411227A782125A74C3D7B31E3890AA62002A29957741D8C8F4C1DBD820BE0D996FB882123502E7632D08C9697B3109284DBC02BF67E112EDA1C2ADBED72646B763E2D346FD8FE1CC222775DA07BA9DCAA6CD86205C0B43BE1AD932A316D360273619D2588DFBB05BEB3BE8602009E9EA0000AFF989204D1B8F547CF7772CF330EE1794AEA399858393232FCBCFE772AFE173F511AD361D90544143CF27FF01F6B519CEFC0CE9563341A0563CFC1C06A49CAA081672D671E1F7867672175760DC407C6276247DD1DD3C49C57E2748E71135490425BE0A66F74BBB4EE9A4180F880E67C26D0B4DD1A62EAD6A5E9433FA92475BF7F980646E8082E74F47570D2503BDA268DC8E56621820509F5C8A41159756E86BDCACC5592174B5632D3D4B4A5849607CC673ED1D640FCA6611C2F785381CA4416FA4F519D4B553ADF94F7621B98232CA92FE870AD808CE469D186A5F0B8C7CD637BEEB96D85DF4302E8E0B2E14218EF3E986ABFD67CDC0EDDC211603F22D6A8D15BB5C54BD3113A83F8DDFC20A69BC72F7F9E0206F00000EA738BABAD8331A3B1AD91B3F573DCFA19B0F212B46C5381E83ECB948702444B5A6F7B03B20AA6A66DDE1152A8EC5F42BD316AA769ED7511AED26B336220C6D3113527F03BECBA19FEDE03B3BC800FDA3D2C6697098D20D48569157F194D8D76D3FD7471B6AF72E0D16D18BDA604DF74123579ED5A4F28B0A02C49D317F9CE804F10365639D4EABE53339EC85842888B7D260D953E62F0802DFA4D1F9DD1C71CA93DF4213F6091B894B4700484C795FA41E589D61BAEF0DC7C5CB5AC031F4711F8527ABEF3F063C35EC83245DE1743143E449D1A9C22A258B909BD6E6C80214ADFF612080BA6887329BB018BBCB94F352962A18179205C0B05B90FEA2B4A8A109D329691F432CE919CD38C3CCE2FF503E8C1553173A4407F93A00E99669963D81AB91704F95868AAC10371098AF38A1BDDCB16D135B76A949EDBEEE33BF551726FA342DA14DDCC53DFE2738DD77CD49630802F90A34C93CFF7ADD821BAABF79B3DABF228575AED5D3F6DBB3C1FCDAB8289B46F1B1260C41B59A608EC08C6B70F8EEDC6C67AAC9B73EBCC86F7E88A55724C58B03386DA055443E84BEEF4062E33AD25F84A780BE30745F0E2E217CE61F418781A76457B1EE8990D03027503D59DBC924805C224368F68C1B69A3F94E58D8E72F92E658B1C667C11D4AD6F320925CFF8CD32104AB338EC6378B7842D9BE93B48A94C91F7C64A5CDB1FBAEA9AC4F9F26046D8209F30BF306A25132CBEF335CEA02A3D21551E26492A9B563C9F2B57CBBED1AA6FB2F4AE486957A17EA83CF15FF1E27B42F7E6A2E71B453C92F2A0107A654B55297F8BD132EFF2788F276217D96577D88AA2A2D40EC211B7CF2D3B3D9AA5D62A5EE0196B66EF39853CF816D63E5437AED9E76121C982125842546A8F5E887E7B4913BCC81A3B9E217B965E56286414D13BDEFE593169742BDD1D87C17DB966C05089592833897CC5B8A6345E01CB80CFCA21F4F6EBEA2121E077D63D6D5CAD78FE7CC7F41C1BDE006021FEB0EE7F8580BFDBF89FE100E2391C40FCD71D0E3CBBC3E7CC24E0D13FC9939EC7534178C34A8A183CFD0010251028A2831B3A5F6D2B9790DC1FD56F3A76F892E438E2C30E1EE908750D9FF428CCEA7540D9092FF798A101151394FF104279AFF67E1F9F063B5A5F4B57D72A63D4524E7AF2C257248753699429A836CE98FB0DAB097F9634634494FF166BB72AB4B5AE739843FCB62BB31C8E4206F0FB175514D70BB6604BC46BC23ADB94A5157F0E5B286EFE77C402764FE183BB9C52EAF85AC62F6381D2229FB64555A5434709C38C980B15E83EB7E77E2F6E37C82869D3A9CA986078AC23EC3EAA48726CD018CF3E89A46DA9478BCADCA12296E777BF79F93BAB51708F38BD850600EE8900008C3F7DA293B989B5C9BFAE4C3F6DE640432B0C8F03DD8BF15C00F1ECC735FBBA7430DA41653AD8E675556A1CAFA5B59B58A5A931991B47C10BE1D3C9C40461CDDB514170227FDC7840016B5CE063C0A12D2CD9F929A97B5E251FA9964D8C2954F601EE74D387ED9D092E71F11E16B3E1C590E2EAA846223A8BC6CD77E4331D7D3E4892AFEB16F0BE3E0877397F14E943514C5849E0E9EAE473BD7CB81ACE9A60EE647211E4472D541C88C84B4B63C0FC0E088CE6FC4EC1E9DB88BACE1433BA6960DF3B06B1136151A9443315CA4412B24F46055D2BBEFCE6C1E97C7F2CDBD1999504EA204367E748F13A51221B1A3AEE88EA10447C7E717415F52A2A83808F9FFBFE81A026B3F38A52D38593A18491090D6273983F871E2B81A0CA5FE78378D32B51E14E9101FA5D817AD0A58C3DB5C826F45C9AB6DED3D0E6166497BDE8C0899D2DF58E5BABDA7BC68BF780F8FD06DD16B5FDA9845B56001274C5595C5871B52E5C33173B8C542AE6E2A27BBD26FB31D7C314DB07B01A2154B990C58456D7D59D9069D71B2AEBDBF7A0B6890327D907DC38F6F7EFAFDD8B172FF6A075FD49A4624E709B36663E7718D64BF7068F21A88226AE6E2FFADF646487369A4B6FA2DD7CAEC4CA05875F0909F2E049C6703AB07790B2021A018A553D21D5A29DB090F67EAF29F41B94A92FA455AECBF9336C2C907327B037F326B27DD5F194EEDF30AD189368FD201FDDDB221AC9E47573793AA9BE1310F0385E997B20DC7A5F3EA02328999478B70F967FF2721AB939EB297F74BF4EC6673CBDC65AF63E5F4B5C7E946D6135F7F4BA5E3B593D63E47F5CFF1A84094ACD6DE1FD90F84D9D53EDD8D731FD7B85D0002428AA2DE39BCD4709DD9CF48F90E4127DEAA37C38383BB42C22D12F673A0AF06D1D2408D9576E76ADFD8FE5BE15C6A8FB24E6CE026C58C478C2B5AE9C34CAE2EB3B59E10EC3CE2C085CF1B33DC1F31DA1891E1370695086EF704466B3DC22FC061483D1E8F0D97ABAB1B5BED9A01ACE3AA72272A25991A56B7DDB253264EB639863C9A1466B12343C1E181443B9B79E35BD2B9830982C680DBB92254B4312B1A661621B0411C8928796852BCA9CF5D29391E2F5A5E310624363BDE6C537EC4F5B424130886DEC37835E1CF8647A60B35C503D2BE220D9CDBE816948177550658F920D32DC9489A18A6AA1EA46C9E96DECCE8B7FC1221FBCE74FA85035B6C801C7BEF0705AED0935FE894F7072300E1CF9C274CB2D6D0CB5937DD39A008FBA6E28848D9B7B6214F6903E9C9A5BF06D783A1E9635889DC92A23BA155D48B5D1C7BAAEF1E3A0BACAC30B84831DC39E357592F04F8B1DC4E076338FBA1890295508EA72DE4DFF2C623281B673259BEEAEBE559E52E754766D6C038DA191375EAD6ED82754D5CF8C0727DCEB814FBA9BE1BE83874F44FE7A5AD0AFEF68C1A6588A46BE74FA2EA8CA38754E082481772CA8CE6935B393341CCCC8D65B816B526368B11BF918A35287EB6D2DF33034E1DB7AFC55FA51854B9550CB79E3737132AAFBA9B20D539F29F43F482C3DE4148415F4B1215E05BF74579A489B647DBA4B319D70E32F3696A3498E95EA6638C5A4492E058D457DC444F6AA49B88ECF848C80CDE771103B491835F9E4A30D3CE8CAFA614E3E10A4100B9B72B689A4DD1B6DC393D6871C1CEE42C2EA6B32E01EA030A812D4990C84088823A8DB534573C2B5AD36E0D66460CCF0F003C4CC71A21B86D953818DB9354BCC90AF13F69C1927914DB15EC41DEC7FEAA5378D29D29498C4F26724CE7675A1A34BC1C444CAF722457860BB82D7567DA5243FE6C968F2621586985FD94B6A136B89CF45DE96B9A0F130D4C443F6FB0588D7FA536F40AA24095620AA36454957CFC1BEE996927F06F377EE08F775EB6B4DF2F8F80541B4EAED37EDC925B759A63E14F4AE2F04B2B370E40533159211C680168D505C1CE7DE7D74680CC658215401BBC54E4F4CD1493C71DF50F6DD3846C9D655BF4C4E112C2B3A0C8D7F35E37A88776526883816B4C1EE6B0226D2540EB712AB3BCFA24B1C8974419945C9DD38BF083CDD373169274675B018225E6D5C192E6D88F9B2253E06228CC55714A1444D59A6BA31CEE874F690A4AC471E72725633F56E4D6E51E0DA8DB05D4C44280ED11E5FB0F32DD29AC810585A22CF348ADFF4F45749695273D4718CDE675F7C6DEB45BC5164128633896E84506B3599E712FE52C8A6D1C4DCA68934F28E5D3D42D359886E4F6651CB0375F8D2E6ED866BB67BBA1235ABCA3546976205C824D91492AFA997C1358F65336FD34BFD14ACAB70E22F5CBC7A05AF3B458B81EBF555D3FCCEAB76E16C20DFA6D0012B9C24B7E1A0F0FDD56A8F40FA90DEC5FE49EDCCC349CE393F9BBE7DF46EFDB5287DA9DE55226DF7FEE3397D5B75C9964E908F097FA9CAED9065F53B5AD69243AF8E7D17DC0053857DF4A6DAACA54357A8B6B18365E7744FA4CBF9A9F6920BDC004D2E5878DDB2BC1D8E948026B5E29A16F7AF6367F3AEDB7581E98CAD585B53CDC38FBF5D604F522FB0EE3F4B8411FEB68070347172B2B03173FC19286B54AD6DC1EC288FFCFA4F1DA3DBD4316F34EC6BB9450D67A44341F86BE877322135B21F6D89A8797E543CB592926BCAB1A0CB857DA8ECF3F891C173AA5B744598C1896715C2AE1C2A19979E3FE613AC6948331DBB33D0C54B200E6514DD1E2C2944319691B4D3B559DED6BC1C1FA88E60690A40EF8C6BCE10C17BAF924C56B084123998AC2C026888492145D06A91E31C8F8A087DDF87515593133EEFC92C3341B267BE41665943C5139A34A1294DAA369D1CE7509BC3B6FBE817C0FFDDF63D73AC735748C592510E9C3F761E10EFB38CFEBA403FF40AC527AB36D7607A3321DBC47CCA37AE946CFCEA69AF33581434A7BF614BA098110BD2B8F7DC20E4F81FB11C2FE28FBDF3754BB89DB2DFC89D4145D44341677373C7EF695897683F4D0A5A9B3941872198D7B352BD57078ABF086C8E34445F037A2C65F656BC73581076AD1997A8C79F244F9AD93CD49488A0815E15CC81F954E21B35FCD019BD98A9E737226DBE51AE74DAF1455964466108F8729C55EA8D4F1F3CDB207F96A5453E643CBDDF2CC3B83DC20C5E9EA275882E8DF2DB6CD9FC0ACDAAACA0CDCC71B9EC31B64903B35570AB1E3D18151213D23EF8724E5D5D0291AF95164F56BE4DD56CA5C52CD72871993B0678CAFA7DA363717CFC074EF2DB63E9DB786DB8FB62A604C85CC25702A81D5790449D6E8F886E9EB3B4CC94BDEC76B2B61B836686C3459A0A65F9AD18D8A7F7A6C33B96A2AC9C59BD312FE390A71CB68F6E0289101987F06EAC116FF0E2B2CB8609B3E808CBF36B63960FA6A07FDC6E33EF8289B918F4408C9570611ED487426CF8856E4CA9B5D1DCE7E8C6B70C6DB8DE07CD4E0BCD4E8CFD7ADCA5DABEAF40EF99449BC7D191307F0C49A689E5139617C38244F5953F1919CF294384AF6302DF30B10795C0FB08503032B1598AA97A0D614A947B2CC9BD7D2A472FF85E0895984A26F2946D92ABE954186D89C05864ECB6A4A164704485EC30A13CA04FAEDF802F14D19E593FBFFCCE9BEFEBB8308927D432B11E8AAE1AC7C943E217FD24DD26E3D8974A9FCB922DD36549C466F0521B59B5660DAE594F522DF90E2AB27B02E9B7388A5C28A10E6DC60602855CF25C098CB75BE890AB9A1323FCAC2607428968D3ACA0DE09B3D010647FE81AEF538B616A24BD2EE8D10B9E9706E2E5F596A6EF28E8566138912E21D691BBF9CDC9036B8FBF17526DEDF4F1BDECEA4C769D473C3431CADCE51EA42ED946C4D69864B33A1D9C4DBCE6A86C482C2850881CE02BBF85D9A867B7134362FDEA57DF2D855FB1CC97B0499E7051E63176FA05B3DA491B31CC45C998F4494C430099E8E8CAD83902B1031F5346BC6C57404D4D347AB39A95409631947344CC8DB715C4117506D9E4C83DB8455838E1FD950289B02DF1E9B75B0BF347BD6B16CF5EE193030080FC1FCFE0E46665F2875F684ED7720437A1F62CF34C1CB58FBDBB5BE93D1595E3EDE132E2B13F2C4E5F479B1B6211117E6D19A3E076929FD90A9090FC9498D5B032CD18E23C4728787FA2A74FAD747B783543F62AC32D01213903492CF3120642FE2D4E8893173BE843C3FC1D2FECA95F3E6A9849FF08B42D2FE1FDE345B9F7CDE1262BE39261060CFCA7AD424910BB3AFAF75327CEC1AE97F2EA8F920C6E9F75D3FAE80C02DC938682E00632FA3775A962C969BF297FCB01E1111C1C45C1B051EC0B475727C3DE70E024C0C923A0090C824A839987B00C93CBCD1975CC1999C3129211DD324AFCE5D6421381D15F987249015222497DDAC3A1F27BFA7B043871F08487A96D312028CE6E885700FD37A76A6FD61D87B03F4BA49292BC316BDE0AEE5DBB76EE86DC7813C4A97B41EA2D7D8E4ABEBA3BC41B8F93DA1D9AC70A3F0984812E7D5269997A4A169802B77D86C3EB3BC6CBAC64667078007E1DD90BBA203D5B8E9709E3057199B8517DF3DF4BF4A314AE75F4CCD832CCD25DA5631C76ECC0D5D3DE11C0D5833BEB74BF151631044ED26F3DA930F2575F5BD9D955B86F295DE9EF3726E59F4D396A345E9D8DFDE89BF329F488427B9854B61F81A603A7A6EDB71B78EA4F3D4DAF322C0B3023316A50C9F058A9DA6D7E1F03E9BD35CA2EF3B6BB37B958312BEE498B0F28C563F2D97B62738115D3D650C67151DA44BAA0C95CEC3F0E118F156EB163075A175312DAFE60216689C71B86D69349DDEB8393FF561B4C92A1692B8345B2D686C9EB39E856E3F63842BB7E741BA290507C7B776C6C652A9426BEACF7B675724EB82585B9AC0F191F65DF35D170A201EE69049EFD73BC79A89E5DC13B53A07B1470519CF89593880DBE354BF507D7832D9DA2C057029FB373A32C77AE737171BD95DF52124E8D6E4759F6EA3F662285B0AE95C7A31AB0F83485ADDB91A6AC03F152D68F5FA7AC57C0A7ACDB41A6AC27ED98471A11E472455A84AEA0333B0D09BFAF22E436F5E071BDC25DED596C21BBB6772D07782D2CC22D477DE569BBB3772D7414F8F1E3E0B06731BDF464C1B20463812A355FD43671288F4E49E3386BA5FCC1824E85EE9DF8F8F1794E0F4B8C3F59BB7272996EB0C784B029C151067177DEE3BE5B3642B3E0B05F725222CE88876B5AE1086F823441059512AFB07E7718B36378F048DAF075B8192F12D7E6B702FF3D29A0C480B1149023D14AAE7BCD4284F7032D89A492BABCB98A00638DE48B8E3C39F5A4BE479DD8703A8185D0E627750B093BC56E264AC387AC64C3C0A9367660D263BE6FC77939226281B781BE85189B085B84799E25EE98CF146B8E7DC916E554C31F371622EBAA13B751607F2AC3D8B5439D9EA2BBC6AF03EA7B2C4F2D774CA86771C548824F9B05FC66B80BD5E1432C75DA2F6E4B9D58A6F94DAD78B098DD1108A8A66BD8422CF56C0B7AF3B92DA3131E609CC2C44CBEB045F5EABE2788EE986E7EC4FCFA0E6CDC22F4B5A0D88C62B3C69CB58CD899F9F0E37793DAECC32376D5F34C033C28ED103ACA6A2196047DE8A751B0063DA5E816F8BCCABB87BDF4B1CE3D335EE2AB1A299C3BCEC0710805925E1BBD5B417F55E1521E2D4ECF6980B8D337C9E83ECB2F730902C018A7AAFB2BE346FD4660ED3866CE9D525B93295183D1C0128C13214BF4F8CEA527A301C9AB1D17941964D7FA0E7FED3DE677C88848C7C2980132BD4917C9ED6D0F6B136D134EC7DA181DBB7863631968E904CC15D24215BDCA6438A8D193ECEFF2FC8C91D89ABD4FEB8B8D3544DE7E1D013927CB758404A325D095C8C2F8D62BEB7E50BC09D2E730063D19268F6E0714C95C084256CBE16D6D9E2FF31E64EE79F5FA6C0C8E129A180C0BA4947D0929E8BA58A6B05ABDB5450D4FB1741B3D4B5CD1AFB77B4076411077AE48641A705CBD879D4A15776EA025B838B9647CB4CC083761A7356A82D086E813B37B4986278C932899F28EA0721595A06255919071358E89D7EF9D43E055948C88B1213676FC6B6831727F5F450B7DFD3CC8F336E11EBF8B36999F17D5423F546B083AEC295E529DC710FECD4A7DE5B3C1F6A2AD645FC52116A8DC14B3A06548FED46259E0E26B23E2E2ADB4803C2DF3713F4AE9E4CA8308D81BBE2D47313BBF9A9C45338782A3E54F16CEA81C104A99B991701C608C48A90DBD0F52D36C433907581D388A983D4AAFD3B5C0749C140E77F3B53A065B72914B3A0D511ABD58CC91A02D4E0AD7D2CF899453D638475F6D9BC6766BB6CB921843F5ABD4330FEB99D61FD2A34BFC3C69AD5CFD658DF8751747C6D15D7A4815294A223B53A9BB8316FD87C297E0F9E7F19BE724AD44095CC33F5A47BA8ADBB8F4694553E2931AA466F288E166DA88D6DDACE20D64E052764A82EF356640917DAEE3EC61D31D114375B279CEC613E8BC16A9A25AAA70C35D0ADE9A80A9DD2D1CD70F1C670DEB4C0C0EEF802E0EEFB8EFFA23CC5966E51FE9CEFB2325530A5A2EA6D0888E52659D0A076FCCA84BCE2EB508399DDB8AF7C5ACD3C6D36022D2BA7E106A5B9BE05C71BAC871D8886C37AF8B39C909DA8814CA6C208AE79371E43BDA38907253527340A697AD84FA0CA8020912CBF49BE5EBFCD033ADA68CB056C49C965E35A09AE70ABF982FE27381B779D15F44B43050F4C98F9D46242B02FE59D289843D5C04243053C63E3252963861A2C9FB57FB4F068AEF1FAFED35D6BB067AE060288D8A05C0D62812435A2B57EB1D18286347B1D0845F3D33AEB1FF2E0B16C4C320F9F918A728D490A848FCF23F4D65366CE71C34E13D3818DD77CF940FE1F0D4FFE8E85FFDFEAFBF98828CE0818DD1BD1E0EBFEEF94CE1170B40FFA5A79F8F26CA283F4C942584FED5145C77A3E12DB2DB34E8F551607FB7D9B0ED4E5CCDB9D06BBEDE015CD4F5A348A57CA1F4C71589B6C40D3AEB120864BE176183C21411C05A58844F5802D676947CB1E73F22C0003E3AAEDCE56B732A6EC5EAFC600ABF22AE43DAC1159F5B476D2BEE477254645D008ED69F719B4CF03C94A84024A825D7591F9812A5B6E482ECB0B6E88627E0EA0457D562BC0A6AA017D7F2B5FB0866AEC6808569A027D4F2EDF1951B3ECA8DE2899C00797A5213D5C88A87D9AD51D4C84A174DD1E0BF3572C21892DDF99C913AAA22C601915F88E68F351D214C7B20762389641D183FBF5C6403A96A29711C83AB7F9F1F48655B4CDC2F6F99845DA9F4F6B9F969E380022489047C547A1B573F89B249C9A6DD5FF18744A25D6AD151C8C5F02F4E43639714129C7A3131042D1BD93F494531637F9290E07495A0C2DB9E9BE9D9446A25AD8773AC24239466E17BAC3B4B0517FCAC5EAEC55463EC28D26B8C654CC5881E972664A9D20ED94FC5D0A73C7F001F477649B80DA4943C253463295E80EA6CC4692CAE1A3D9BE4A1AD32C773B75F341DA4224A1234F3BB55A4CB94D63F93D74F3658164B5A6AD74E92D57A3BB8A035E7FD5B92AF5AFCAC54EB0FC933CD32E60F35FFFEA2DFB0FF7C872BFFFFA9E0B9F3B43F854A25CFF45DB90058BF729F14323A5AC8A6A3B0AFA63739FA0F6D69C74C432086753382973541EE61DCFDAB03D3237A167537107C178FC211C98FD04EFB2EF945B7D0B3B8E64BA05C89C17BBFF81F220A4F98EA0F5D2A05E51794B52A4614D075AF1994590C1E6A55BEA85E0AB144DAE6B10DD998CEEF2D5ECC5A4317B82F4F57D45C568DB27C2D0B22ED1154CEB0BBD897B63ED5C17FB798D43D259F532C60332E01A1BB970955C28DDD52059FAFDBB661FFA1E7B3EB40FE5D195326C65449AEE759FC8B23DD4CD5E52FDBE12332B82E9081E0F462826981812DECADBDBBCBFD7D28EDB79EA3C0C92DE1F8D6DCE6DD99BDF2FBFDA7DF1E8908763C9D703DE7EBA4CF6B76F43FB3725713C3777F5BB2A78DEBC977025100C7AE686D5DE3AE3B44559F02840C11BBB18C72BC7CC617B32A0FE95BD6DAE58FAC210D4106ADE74F0F0E332E75B35CA91F8489FC5B51720D685E1FE34AAFCF0480BCB55E159064177D28A673A7FA462041B755CF514D61AB7F01CF742A29A57E12C7A3132C1BEECC40BE8BC429FAB6B4E3CC34A0A3B877A222412E20CA9A6F74C71263A85F1DEDCA21AD209913B88AFBB2A4DF1C24D8E2BC6284C508A58E3936D13DE93499F2BE06FAAD06CCA4E0B70BCEBB752E93FB109C451DC1E11D9F8F2A6F1C9882C2B943BBC42D381C2EB192CEA1BAB1040B0C6646920810FBA2B723A9EFB8E6FA983693CFDA8C87017E5EDF3692600E75B4A2276E26E68D1468075EB72976CEA439D9811DEAAC67906EAED3BCE9A7C738CF5E4A235E41E0F911814D4CE8D91947A278A3BD5B2FEFF17E37D4FEE5D8D2E0E7A1268406005EFF39D4A6B6364ECA068656263F077A216624140C44E93E0A68F51FF5349ABBA92ED630CBDE8586CF0FAAF2048826582B4A33E3922F357B8A57C54277763605F1952255DD0F0D8EE48E9C1D5FE76839C4BD8A637B296B16FEDAE2237D7C31C2ED9D9B6B7DC10B5E0E72DBB2E8977C925951A9239904B7CD55DD501DEE508D982FAD9B8F4EC920C624860C4C792C80EA1A858D3D6A6A94295F05827EC8A92FDA975F7E56798C330E2FDB09B6B7CD9EFDAC24EC55BD96957F52C96F5F259AC3365AF46AB8E691BE66A9A9CA515502C05B6D0393B1D5AF0DDC5D83CE8BB7C3B4DA34032555E606779EC67D4FB77982489800CC21E9936F0CB076BB1B93A9BB0D296EB20EEF752A6E626C3FA53442FAA405AA67DCF9C4BEA21C2779D2C5DBBF6E157DFD48EAC71E0BFB8AD6058FC03E6C37D55E573213EF4BA5FE8056AD2B0D34B70D5D2FBA91F812669C89554F4243A047C79641BEA4043A922B111419854DBDBFB67DD9FC8446802E04A2AF9CDB58DA05A92B0D2BCF47C1296CCEF60C8C738B0EF5CB1AF0989064F4A082C682377E3C622AEE17C65CE6362A3A2A1287B5F7DC76221BDA0EC7A97D2BED11682352D2440226F25E1A4343B491C65601727463512B831F6248191C28B95E0F7BAFF73EB8DF304486570B7915359D94CB492485217313AF43B37BFF762D4C8F981A64F12C5986FCB94B060B616C6BA4E0606BE7C86864EB60F2EFBAB0FF9E3E3E233C4647DE1F881E78247B8F9C7735DAE9C4F4423DC7548D81C95E6C5DC77AA48E5B33A50EEFF4881E98F44D07E4CABF74B671CE3784B95C8518A95F5AA41CB9169C05402F695000BF69F992B88A0F5F9A1B3A51A5F429179A4E137D460D6782BA04913755CADF1ED26A45B2BF4066DB7C3B4D8EA9CE0A2666BE9736CED68686B4F8AC78CE50762EC30682F2E360E50B712E67F4FA7685281127610776928B8E387C1F1644720985E135CED0138DFD76090FFBACFD7B25A9555C24ACFCB78ECADE5A4CF0FB4D917B1A9417773DD79E17E7E37C6CE89F2F42216898879528B5E1440347B2A30E56CF1092F6078CD68C4C7D9AFAD1274F6567DEC0974D7998EFF5DBEDF7502427DA570CC21EDE4378ECE4AD4C91D7DA6C3236A1B61FA5A23DD9B6C4E372865E52A2DB17624F1C18BF6F433B6E07475F6E21A5D7CF75ADBB87847E2423233B036694F759A70C2A09F3CFD7529C9965F1D21F7BAF0DC57102DCCD0AF4AAAE7F6B9F5A9EC83FDE3F4BBE3FDB27CADFEDD3C0CEEEBFE6F917D26264E5BB8088814712F7419FAFE8F183E06475517085DF5C27D5406E53D98383594362AC0C9F08CC02945E50BA5711F6D8EA7EF52DB95A42874154E4F9CA8075F6996E54AAB0C67A66D3D193E72B5D58D247954ECEB0FDD3E0CAE6B56DB30AA46123095C23A1D7EC5F0618C8DB0CE9FA5F79A06E2BD7295B68EF88E6B0D60CB2452480D6375AC553674555E8715A296BE0A706A3FC36B31AB8F39E426928ABDBAE9508F976ED8B2AAFC4C836A21A2706E3A5F92AA2850F6380B53FA21961A3E0AC44C398AA897DD4B09437302A887D6429FD3E855C26AE92F9BF3F8A482019D3BDF14FE8109DC95BDB35AEEB5D6C2F10F7819ECD5E80498FD4B04CE96CA90335E9C3F6AAA058A3B4F2744842F35023DA983B2DC1A2A1CE72F844ECB75490F574079F2FAD55972FCA2E759A0DC873E29CA814DA6C07BC69BEEF331047C76824440A07FCD8317B113B553C5357D43A7CCFB071D182581EC3987016DA3AD1DA8A2DCBC78FF5F81F038580A407FC5FC5B5BFE237A5B6BF2AF86729E0DF11FB9C0BFDAD30F057E2AF35527FA11AFA371553BFD2FF5984F27744C3FD9BFE7F94A4FCAAE9D7C284BFD083F07F9429FCAAE2D7E39ABF70FEFA378737BFD27FDDD3FD0BAFB0FED70EEFAFE45F53CFBF9047F2FB44F4570DBF66547F0199EC77F9D5AFFC7F86E1BF03970200F85F41F957FA3FBDE4DFD144F537FABF7DA682F44BE89F3284E75FC733438BF6E7D3FF0067590B44]
Extention=".docx"
link(onCreate,5460650:doShellExec,[])
AddHint(96,52,41,13,Extention)
}
Add(MenuEx,3894250,266,336)
{
Menu=#4:Word|1:(|12:insert Table|24:insert Header and Footer|1:)|
GutterLineOn=1
Frame=1
FlatSelect=1
LineStyle=1
LineColorLight=-16777201
LineColorDark=-16777201
CheckColor=0
SelCheckColor=-16777201
Bitmaps=[]
Point(doEnablIdx)
Point(onEnabledItems)
link(MenuItemIdx,6248597:doEvent1,[])
}

P.S. MS Word должен быть установлен.

Редактировалось 1 раз(а), последний 2020-08-15 22:41:27
карма: 4

0
Ответов: 938
Рейтинг: 4
#65: 2020-12-24 22:47:57 ЛС | профиль | цитата
Gunta,
Как вариант, можно использовать стандартные компоненты.


Не работает.
карма: 0

0
Ответов: 100
Рейтинг: 16
#66: 2020-12-25 23:36:51 ЛС | профиль | цитата
user_asm писал(а):
Не работает.

Проверил на двух разных ноутбуках, всё прекрасно работает.
При запуске программы у тебя открывается Microsoft Word?
карма: 4

0
Ответов: 100
Рейтинг: 16
#67: 2021-01-04 13:55:02 ЛС | профиль | цитата
Пример передачи данных из Hiasm в документы MS office.

Add(MainForm,4844206,133,84)
{
Left=20
Top=105
Width=522
Height=343
Caption="Hiasm-PS-MSoffice"
Point(Handle)
Point(onClose)
link(onCreate,3682515:doConvert,[])
}
Add(WinExec,11401622,476,189)
{
FileName="powershell"
Mode=0
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleResult)
}
Add(MTStrTbl,5816951,77,84)
{
Width=506
Height=244
Align=5
Name="tabl"
Redaction=0
}
Add(MST_ColAction,4139610,294,98)
{
Action=9
Index=-2
MSTControl="tabl"
}
Add(Menu,5979201,77,189)
{
Menu=#14:table to Excel|13:table to Word|12:text to Word|0:|
Point(onSelectNum)
link(onSelectNum,16701187:doValue,[])
}
Add(MST_Save,8730459,182,189)
{
SaveColProp=1
MSTControl="tabl"
link(onSaveToStream,14417232:doConvert,[])
}
Add(StreamConvertor,14417232,231,196)
{
Mode=6
link(onResult,7198553:doEvent,[])
}
Add(MST_Load,571213,231,91)
{
Delimiter="\t"
MSTControl="tabl"
link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,182,98)
{
Mode=7
Point(Data)
link(onResult,571213:doLoadFromStream,[])
link(Data,6934679:Text,[])
}
Add(StrList,3877373,350,224)
{
Strings=#31:Про Анну Петровну и секс-машину|0:|63:Еще весьма свежая пенсионерка Анна Петровна ждала овощерезку, а|46:служба доставки ошибочно привезла секс-машину.|65:Дорогостоящий импортный агрегат. Снабженный характерной насадкой,|61:он совершает возвратно-поступательные движения, известные как|25:фрикции. Собственно, все.|64:Целомудренная Анна Петровна о таких новинках техники не слыхала.|61:Она была одинока и потому на все руки. Могла и гвоздь вбить и|67:сантехнику починить и даже сбацать на гитаре про три дня и три ночи|46:под шашлыком и кониной на доолимпийских Сочах.|65:Открыв коробку, рукастая женщина невольно залюбовалась – токарный|24:мини станок, решила она.|63:Но, какой-то у него странный режущий инструмент… Приглядевшись,|52:женщина с огромным любопытством раскрыла инструкцию.|71:А там все наглядно: насадите «это» на шток, шток в паз, затяните гайку,|67:включите в электросеть, примите удобную позу, приятных впечатлений!|58:«О-о!..» – сказала Анна Петровна, принимая удобную позу, а|52:оборудование на относительно ответственное хранение.|66:Прежде она ездила на дачу, накручивала в лесу километры на велике,|63:смотрела передачи нервно-парали…политического толка, высаживала|66:цветы в палисаднике хрущевки, хлопотал, как старшая по подъезду. В|61:общем, каждый день отдавалась активной общественной жизни, за|20:отсутствием половой.|63:Теперь же, отдалась искусительной машине. Без остатка. Петровна|68:спешила, – день-другой, понимала она, логистическая ошибка откроется|28:и, привезут таки овощерезку.|60:Тетки на лавке забеспокоились – шестой день Анна Петровна не|59:показывалась на людях, что нехарактерно. А у самой форточка|45:приоткрыта, значит не уехала. Может, померла?|56:Не без страха и одышки, они поднялись на четвертый этаж.|61:Электросчетчик Петровны бешено вращался... Странно! – женщина|25:слыла за очень экономную.|28:Тетки притулили уши к двери.|67:В квартире раздавались техногенные звуки и громкие призывы хозяйки,|20:ебать её активней...|66:«Ого!» – присвистнули тетки и страшно оживленной стайкой скатились|8:во двор.|67:Стало ж об чем поговорить! Живо пришвартовались к лавке, и: «Шу-шу-|63:шу. Развратница. Шу-шу-шу. С несколькими. Любопытно, кто её так|8:пашет?!»|55:– А вдруг мой?! – обмерла одна. – С утра свалил, и нет…|68:– Куда ему с одним яйцом! – успокоила её подружка. Осведомленность о|40:количестве яиц не осталась незамеченной.|64:– Аа, старая анальщица! – завизжала хозяйка редкого однояйцевого|51:ловеласа. – Вот он откуда пудинг на конце притащил!|19:И прыг ей на морду.|62:На седьмой день машина закапризничала. Не подхватывала сочно с|68:низов, теряла обороты. Петровна грешила на скачки напряжения в сети.|67:Женщина чуточку лукавила – от столь надсадной работы наебнулся бы и|17:копер метростроя…|67:А тут еще позвонили из доставки и грозили через два дня приехать за|9:машинкой.|67:В электричестве Петровна не кумекала. Пригласила Электроника, – так|63:прозвали ЖЭКовского электрика. Анна Петровна тайно любила этого|43:красивого, но, кажется, туповатого мужчину.|68:Как старшая по подъезду, частенько контактировала по вопросам гнилой|64:проводки, лампочек и т.п. Кокетничала, но Электрон упорно хранил|65:отрицательный заряд. Подмывало вставить вялого монтера келдышем в|31:трансформатор, чтоб оживился...|62:И вот – невольный шанс. Секс-машина не утюг с дырочками, – все|61:очевидно, намеки лишни… Заалевшие стыдливо щечки, коротенький|63:халатик, выбритые ноги, подоткнутое декольте, рюмочка наливки в|37:благодарность, и чем черт не шутит...|62:К тому же, неделя оголтелого секса преобразила – Анна Петровна|68:сияла. Главный энергетик города захотел бы прозвонить её схемы (и не|36:тестером), не то что рядовой монтер…|65:Она открыла ему статная, как ЛЭП и наэлектризованная, как шаровая|64:молния. Электрон сухо поздоровался. Но, увидев машинку расцвел и|63:стал чертовски обаятелен. Ковыряя отверткой, пошучивал и весело|11:поглядывал.|66:Смущение и страх, уступили внутри Анны Петровны место облегчению и|68:радости. Кажется, монтер наконец догнал, куда следует лезть, чтоб не|22:ёбнуло, а было хорошо…|66:Вдруг он заявил: – Придется забрать машину с собой. Здесь починить|13:не получится.|60:Да, согласилась Анна Петровна, и предложила рюмочку наливки.|63:– Завтра. – сказал Электрон. – Починю, тогда можно и наливки...|55:И ушел. Анна Петровна осталась, несколько обескуражена.|67:Назавтра Электрон не явился. И послезавтра. Анна Петровна позвонила|19:в ЖЭК за электрика.|61:– Он со скандалом уволился и уехал. Обнажил трудовой фронт! –|62:сердито сказали ей и добавили слово, характеризующее мужчину с|24:нетрадиционного ракурса.|13:© А. Болдырев|0:|0:|
}
Add(FormatStr,13748772,399,273)
{
DataCount=1
Mask="$Word = New-Object -ComObject Word.Application\r\n$Document = $Word.Documents.Add()\r\n$Selection = $Word.Selection\r\n$Selection.TypeText('%1')\r\n$Word.Visible = $true\r\n"
link(onFString,1935080:doWork3,[(452,279)])
}
Add(FormatStr,4794102,399,203)
{
Mask="$Word = New-Object -comobject Word.Application\r\n$Doc = $Word.Documents.Add()\r\n$Range = $Doc.Range()\r\n$text= '%1'\r\n$Range.Text = "$text"\r\n$table=$Range.ConvertToTable(2)\r\n$table.AutoFormat(18)\r\n$Word.Visible = $true\r\n\r\n\r\n"
link(onFString,1935080:doWork2,[])
}
Add(StrList,6934679,182,49)
{
Strings=#42:Item Description Quantity Unit Price Value|63:13930 Double-action Quickstart II rem. L=740mm 1 PC 98,66 98,66|53:13100201 Spray gun for udder washer 20 PC 17,77 355,4|49:13246007 COMBI-cock ш51 mm cpl. 10 PC 63,43 634,3|51:25643301 Milk hose ш 24/14 x 2750 32 PC 9,76 312,32|56:14291 Service no.1 RDS MAX double box 1 PC 250,51 250,51|54:24144638 Spiral spring for tube filter 3 PC 43,2 129,6|40:22121763 V-belt spz 1087 4 PC 5,91 23,64|61:MH0015 Repair kit non-rotating cylinder ш40mm 8 PC 14,3 114,4|48:GS9835 Revision set SAC Unipuls 4 PC 13,97 55,88|52:22121735 El-motor 3,0kw 3x400v 1400 1 PC 186,4 186,4|55:23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|55:23544122 Carbon disc ш44,7/38,3x5,8mm 10 PC 16,92 169,2|54:23544122 Carbon disc ш44,7/38,3x5,8mm 2 PC 16,92 33,84|64:21200159 Top part UNIFL3/4 for steel bot.part 25 PC 30,09 752,25|57:24400111 Hose f. pump compl. UNIWASH 153 PC 10,58 1618,74|58:13225 Piston complete for valve UNIWASH3 4 PC 27,09 108,36|60:12200105 Vacuumgauge glycerine ш100mm 3/8" 5 PC 40,57 202,85|53:21200141 Thread bush UNIFLOW3 steel 130 PC 1,93 250,9|42:25100146 O-ring ш16,1x1,6mm 175 PC 0,36 63|56:21200127 Holder rocking lever, UNIFLOW3 170 PC 0,26 44,2|49:21200131 Rocking lever UNIFLOW3 150 PC 0,89 133,5|62:25200132 Valve button inside UNIFLOW3 steel FA 225 PC 0,72 162|61:21200129 Bar closing device UNIFLOW3 steel 225 PC 1,09 245,25|52:25200124 Valve flap outside UNIFLOW3 225 PC 1,56 351|58:14400212 Solenoid valve sgl. invensys 230vac 5 PC 8,5 42,5|62:14400213 Solenoid valve dobb. invensys 230vac 5 PC 14,13 70,65|47:21200131 Rocking lever UNIFLOW3 20 PC 0,89 17,8|62:25200132 Valve button inside UNIFLOW3 steel FA 20 PC 0,72 14,4|42:25100146 O-ring ш16,1x1,6mm 20 PC 0,36 7,2|54:21200127 Holder rocking lever, UNIFLOW3 20 PC 0,26 5,2|57:21200130 Bar closing device UNIFLOW3 steel 20 PC 0,34 6,8|57:25200119 Guard bracket UNIFLOW3 steel SBS 20 PC 3,38 67,6|54:13474 Valve flap exterior UNIFLOW3 SBS 20 PC 1,56 31,2|58:26400104 Terminal wheel for lock guide str 20 PC 1,12 22,4|67:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 96 PC 2,39 229,44|54:14800695 Hose guide f. SAC115 complete 10 PC 9,17 91,7|32:14306 Filter for IDC 20 PC 0,4 8|50:25515435 Rubber hose ш27/16 mm - FA 15 M 5,24 78,6|47:34200107 Indicator jar UNICO1/2 3 PC 4,26 12,78|53:24144638 Spiral spring for tube filter 1 PC 43,2 43,2|61:25200142 Rubber liner RDS FUTURELINE Ш20mm FA 100 PC 4,79 479|66:21214817 Shell w. weight ring UNIFLOW3/4 UNIFLEX 48 PC 6,99 335,52|46:25100204 EC O-Ring 020,0x4,0 250 PC 0,51 127,5|42:23200102 Slide for COMBI-cock 20 PC 1,4 28|53:33246520 Union f. pipe coupling Ш40mm 7 PC 3,91 27,37|50:25246516 Gasket for union DS ш51mm 7 PC 1,77 12,39|49:25200144 Seal f/vacuum container 2 PC 10,93 21,86|63:13197 Inductive sensor - NPN-switch 24Vdc M18 4 PC 67,66 270,64|57:15729 Contact pipe bend 420mm complete 2 PC 118,19 236,38|57:15095 Contact pipe bend 510mm complete 2 PC 121,49 242,98|58:13140216 Lid transp. f. RECeiv.con.60/100l 4 PC 67,6 270,4|60:12900 Milk pump 8000 l 1,1kW 3x400/230V 1 PC 1374,17 1374,17|51:13814 Spare part set for IDC meter 300 PC 8,26 2478|49:25246516 Gasket for union DS ш51mm 4 PC 1,77 7,08|57:15095 Contact pipe bend 510mm complete 1 PC 121,49 121,49|46:24848304 Tube f/cyl. ш110x580 1 PC 18,33 18,33|65:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 300 PC 2,39 717|47:25100197 EC O-ring 108x6mm EPDM 80 PC 0,99 79,2|59:21200107 Distributing piece UNIFLOW2/3/4/4S 80 PC 1,13 90,4|46:22022417 Ball bearing FAG 6204 4 PC 7,76 31,04|61:22022633 Roller bearing FAG nup 204 e tvp. 2 2 PC 49,51 99,02|36:22121752 V-belt a 40 6 PC 5,34 32,04|57:22022566 Oil simmer ring f.SACCO 600-1000 8 PC 4,94 39,52|52:25200104 Gasket for slide COMBI-cock 200 PC 0,77 154|64:25246542 Gasket f. pipeline coup. ш51 steel p. FA 100 PC 0,81 81|52:33246520 Union f. pipe coupling Ш40mm 2 PC 3,91 7,82|56:11161 Plastic plug with logo and magnets 3 PC 7,05 21,15|46:11188 Rubber button for starter 3 PC 1,06 3,18|35:23141666 Eccentric 5 PC 16,71 83,55|29:23141668 Bush 10 PC 1,77 17,7|46:12200102 UNI servo regulator 2 PC 81,67 163,34|47:25242625 Rubber inlet ш 63,5 mm 6 PC 2,56 15,36|44:25242628 Inlet rubber ш76 mm 6 PC 2,18 13,08|41:11943 Valve set complete 2 PC 39,68 79,36|44:11165 Pulsator guard IDC 15 PC 69,43 1041,45|50:1511188 Rubber button for starter 48 PC 1,06 50,88|55:90642903 Upper part indicator IDC2 15 PC 366,45 5496,75|62:12200105 Vacuumgauge glycerine ш100mm 3/8" 26 PC 40,57 1054,82|50:21200141 Thread bush UNIFLOW3 steel 2 PC 1,93 3,86|59:12200105 Vacuumgauge glycerine ш100mm 3/8" 2 PC 40,57 81,14|48:25643301 Milk hose ш 24/14 x 2750 1 PC 9,76 9,76|58:25600130 Milk hose PVC ш40/29x5000mm - FA 2 PC 43,28 86,56|67:22121711 El-motor 0,55kW 3x400V 1400 w. axle jour 2 PC 197,05 394,1|57:15729 Contact pipe bend 420mm complete 1 PC 118,19 118,19|39:23140820 Switch complete 1 PC 86,6 86,6|49:11100111 UNIPULS2 pulsator 60/40 5 PC 64,16 320,8|50:13814 Spare part set for IDC meter 10 PC 8,26 82,6|65:21214817 Shell w. weight ring UNIFLOW3/4 UNIFLEX 12 PC 6,99 83,88|63:21214819 Teat cup shell SS UNIFLOW3/4 UNIFLEX 8 PC 13,19 105,52|57:25200101 Diaphragm for UNI reg./servo reg. 5 PC 6,42 32,1|54:24400110 Rotor f. pump compl. UNIWASH 2 PC 19,03 38,06|56:24400124 Gear motor 200/230 v f UNIWASH 1 PC 75,13 75,13|56:22022566 Oil simmer ring f.SACCO 600-1000 2 PC 4,94 9,88|52:11927 Quick starter for ш50 remover 1 PC 54,03 54,03|40:11160 Bottom part for IDC 1 PC 8,05 8,05|46:13510 Claw UNIFLOW4 Complete 3 PC 68,23 204,69|59:13505 Bottom part UNIFLOW4 steel complete 3 PC 33,83 101,49|52:25100197 EC O-Ring ш108x6mm EEB10570 50 PC 0,99 49,5|54:25200118 Guardbracket UNIFLOW3m steel 12 PC 3,27 39,24|55:25100123 Damping ring for UNI SERVO reg. 4 PC 1,34 5,36|50:22225389 Guiding diaphragm (servo) 5 PC 4,57 22,85|54:14800695 Hose guide f. SAC115 complete 5 PC 9,17 45,85|52:23544093 Rotor w/carbon discs 3/4000l 10 PC 59,3 593|60:23544099 Wear plate for milk pump 3000/4000l 20 PC 3,67 73,4|55:25247631 Valve flap for return valve FA 10 PC 1,45 14,5|39:23544156 Leading pulley 5 PC 2,23 11,15|41:25144153 O-ring 15,6x2,4mm 10 PC 0,32 3,2|55:15149 O-ring EPDM for 12000L milk pump 1 PC 19,32 19,32|61:15208 Mech. sealing ш12 f. 12000 l milk pump 1 PC 61,45 61,45|50:15206 Impeller FP66 0-115 6 wings 1 PC 65,95 65,95|57:11690 Milk filter for IDC Medium complete 10 PC 9,17 91,7|61:14848300 Vac.cyl.compl.ш110xstroklength460 1 PC 326,64 326,64|57:15729 Contact pipe bend 420mm complete 2 PC 118,19 236,38|64:12369 Wear-part pack. for milk pump 3000/4000L 4 PC 65,89 263,56|54:14800327 Railing list 8 x 40 mm blue 18 M 10,09 181,62|54:14800979 Hose guide for SAC115 and tandem 10 PC 1,8 18|52:14800647 Holder for hose guide, blue 10 PC 1,77 17,7|51:11100111 UNIPULS2 pulsator 60/40 20 PC 64,16 1283,2|49:13246007 COMBI-cock ш51 mm cpl. 10 PC 63,43 634,3|63:21200159 Top part UNIFL3/4 for steel bot.part 30 PC 30,09 902,7|52:25200104 Gasket for slide COMBI-cock 500 PC 0,77 385|66:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 700 PC 2,39 1673|44:14400216 Cable for UNIWASH3 2 PC 23,36 46,72|45:12200102 UNI servo regulator 1 PC 81,67 81,67|54:24400111 Hose f. pump compl. UNIWASH 20 PC 10,58 211,6|55:24144803 Filter bags 450x75mm (400 pcs) 10 PAC 40,6 406|59:24144641 Cylinder head/pipe u.8000 l filt. 4 PC 25,05 100,2|66:24144808 Filter bag 645x85mm (ps.a 400pcs) SAC 15 PAC 41,93 628,95|64:12369 Wear-part pack. for milk pump 3000/4000L 7 PC 65,89 461,23|51:21246296 Milk/vacuum nipple single 5 PC 94,36 471,8|49:21246299 Milk nipple ш16mm 45° 5 PC 108,47 542,35|42:11943 Valve set complete 3 PC 39,68 119,04|57:15095 Contact pipe bend 510mm complete 2 PC 121,49 242,98|53:21112381 Hose connect. plastic UNIPULS 10 PC 0,64 6,4|56:23140484 Reducing nipple ш76/ш51 x 77,5 5 PC 32,78 163,9|43:23200102 Slide for COMBI-cock 8 PC 1,4 11,2|51:23200104 Plug for spring COMBI-cock 12 PC 0,13 1,56|58:13140216 Lid transp. f. RECeiv.con.60/100l 3 PC 67,6 202,8|47:25242625 Rubber inlet ш 63,5 mm 4 PC 2,56 10,24|43:25242628 Inlet rubber ш76 mm 3 PC 2,18 6,54|45:22021406 Emptying flap ш60x6mm 1 PC 3,28 3,28|45:23544121 bolt for axle-journal 1 PC 3,64 3,64|49:23544126 Front plate for milk pump 1 PC 16,9 16,9|61:23544155 Pump.housing,stainless,3/4000ltrs 1 PC 161,27 161,27|63:21200159 Top part UNIFL3/4 for steel bot.part 9 PC 30,09 270,81|65:21200143 Suspension UNIFLOW3/UNIFLOW4/UNIFLOW4S 110 PC 4,09 449,9|53:23544093 Rotor w/carbon discs 3/4000l 4 PC 59,3 237,2|54:23544122 Carbon disc ш44,7/38,3x5,8mm 1 PC 16,92 16,92|58:25200106 Valve piece for pilot valve UNICO 30 PC 0,48 14,4|61:11011001 SS lid for milking machine Effectiv 2 PC 47,59 95,18|47:24200128 Plastic cap for UNICO2 10 PC 8,42 84,2|54:24144638 Spiral spring for tube filter 6 PC 43,2 259,2|53:24400111 Hose f. pump compl. UNIWASH 6 PC 10,58 63,48|49:11100111 UNIPULS2 pulsator 60/40 5 PC 64,16 320,8|49:13246007 COMBI-cock ш51 mm cpl. 5 PC 63,43 317,15|51:21246296 Milk/vacuum nipple single 5 PC 94,36 471,8|50:25211251 Lid gasket (strong model) 3 PC 5,74 17,22|64:12369 Wear-part pack. for milk pump 3000/4000L 10 PC 65,89 658,9|42:11943 Valve set complete 4 PC 39,68 158,72|62:15063 ControlBox II - 400/230VAC, 2,5-4,0A 2 PC 623,81 1247,62|47:22022632 Vane for SACCO 1300 12 PC 17,83 213,96|60:23544099 Wear plate for milk pump 3000/4000l 10 PC 3,67 36,7|60:LC90017 Contra hinge joint Cyl.50 (Plastic) 1 PC 22,13 22,13|65:24144808 Filter bag 645x85mm (ps.a 400pcs) SAC 5 PAC 41,93 209,65|65:25215022 Rubber liner UNIFL. 15022-ш22 UNIFLEX FA 200 PC 2,39 478|63:12871 Axle seal NCE35 comp. f/8000l milk pump 4 PC 200,95 803,8|64:15312 Oil system SACCO1600,2000,2750 1set cpl. 4 PC 30,87 123,48|56:13980 SACCO 1300l vacuum pump mounted 1 PC 812,95 812,95|51:11100111 UNIPULS2 pulsator 60/40 12 PC 64,16 769,92|49:11100111 UNIPULS2 pulsator 60/40 50 PC 64,16 3208|46:12200102 UNI servo regulator 4 PC 81,67 326,68|54:24400110 Rotor f. pump compl. UNIWASH 3 PC 19,03 57,09|46:12611 Gasket 0,003" - 1000/1600 2 PC 2,11 4,22|55:24400110 Rotor f. pump compl. UNIWASH 8 PC 19,03 152,24|65:21200159 Top part UNIFL3/4 for steel bot.part 41 PC 30,09 1233,69|55:24400111 Hose f. pump compl. UNIWASH 14 PC 10,58 148,12|60:21200132 Top part UNIFL.3 f. plast.bottom 15 PC 20,65 309,75|57:13140216 Lid transp. f. RECeiv.con.60/100l 1 PC 67,6 67,6|55:23544122 Carbon disc ш44,7/38,3x5,8mm 9 PC 16,92 152,28|50:13522 Teat liner UNIFLEX square ш22 48 PC 2,75 132|0:|
}
Add(IndexToChanel,7198553,294,196)
{
Count=3
Point(Index)
link(onEvent1,1666019:doString,[(333,202)(333,167)])
link(onEvent2,4794102:doString,[])
link(onEvent3,5750340:doData,[(340,216)(340,279)])
link(Index,16701187:Value,[(300,187)(286,187)(286,236)(139,236)])
}
Add(FormatStr,1666019,399,161)
{
DataCount=1
Mask="$Excel = New-Object -ComObject Excel.Application\r\n$WorkBook = $Excel.Workbooks.add()\r\n$Sheet = $WorkBook.worksheets.Item(1)\r\n$Sheet.Name = 'test'\r\n$Sheet.Range('B2').Select()\r\n$Tabl = '%1'\r\nSet-Clipboard -Value $Tabl\r\n$Sheet.Paste()\r\n$Range = $Sheet.UsedRange\r\n$Range.texttocolumns($Range,1,-4142,$true,$false,$true,$false,$false)\r\n$Range = $Sheet.UsedRange\r\n$Range.EntireColumn.AutoFit()\r\n$Sheet.Range('B2').Select()\r\n$Excel.visible = $true\r\n"
link(onFString,1935080:doWork1,[(452,167)])
}
Add(Memory,16701187,133,196)
{
link(onData,8730459:doSaveToStream,[])
}
Add(HubEx,1935080,448,203)
{
link(onEvent,11401622:doConsoleExec,[])
}
Add(DoData,5750340,350,273)
{
link(onEventData,13748772:doString,[])
link(Data,3877373:Text,[])
}

MS Word и MS Excel должны быть установлены.
Пример проверен на Window 7(32) Powershell версии 3 и Window 10(64) Powershell версии 5
карма: 4

0
файлы: 1Hiasm-PS-MSoffice.zip [8.3KB] [31]
67
Сообщение
...
Прикрепленные файлы
(файлы не залиты)