Set filename word document

[Gintaras]

Macro Macro1991

Code:

Copy      Help

;/exe 1
typelib Word {00020905-0000-0000-C000-000000000046} 8.0

str unique="99-88-65"
str fileName=F"{unique}_document.doc"
int w=win(F"{fileName} - Microsoft Word" "OpusApp" "" 1)
if w
,out "yes"
else
,out "no"
,run "WINWORD.EXE" "" "" "" 0x800 win(" - Microsoft Word" "OpusApp") w
,Word.Application app._getactive
,VARIANT v=_s.expandpath(F"$documents$\{fileName}")
,app.ActiveDocument.SaveAs(v)