MS Word application find and replace

[Gintaras]

Don't need 2 macros.

Macro Macro2354

Code:

Copy      Help

;run Word and open file
typelib Word {00020905-0000-0000-C000-000000000046} 8.0
Word.Application app._create
app.Visible = TRUE
Word.Documents docs=app.Documents
VARIANT d=_s.expandpath("$documents$\test.doc")
Word.Document doc=docs.Add(d)
;run a Word macro
app.Run("Macro1")

or can open in existing Word process
Macro Macro2351

Code:

Copy      Help

;/exe 1
;Use /exe 1 to run the macro in separate process, as User. This macro may not work without it.

typelib Word {00020905-0000-0000-C000-000000000046} 8.0
Word.Application app._getactive
Word.Documents docs=app.Documents
VARIANT d=_s.expandpath("$documents$\test.doc")
Word.Document doc=docs.Add(d)
act "Word"
doc.Activate
;run a Word macro
app.Run("Macro1")