Set filename word document

[Gintaras]

if problems with type library

Macro Macro1991

Code:

Copy      Help

;/exe 1
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
,IDispatch app._getactive("Word.Application")
,VARIANT v=_s.expandpath(F"$documents$\{fileName}")
,app.ActiveDocument.SaveAs(v)