R
richardz
Guest
Thank you very much. This is indeed the solution. I've changed my code to this, and it works perfect. DEFINE VARIABLE chWordApplication AS COM-HANDLE NO-UNDO. CREATE "Word.application" chWordApplication. chWordApplication
ocuments:Open("j:\temp\test.docx"). chWordApplication:Selection:find:text = "Old". chWordApplication:Selection:find:replacement:text = "New". chWordApplication:ActiveDocument:ActiveWindow:ActivePane:View:SeekView = 9. /* select header */ chWordApplication:Selection:find:Execute(,,,,,,,,,,2). /* replace */ chWordApplication:ActiveDocument:ActiveWindow:ActivePane:View:SeekView = 10. /* select footer */ chWordApplication:Selection:find:Execute(,,,,,,,,,,2). /* replace */ chWordApplication:ActiveDocument:ActiveWindow:ActivePane:View:SeekView = 0. /* select main */ chWordApplication:Selection:find:Execute(,,,,,,,,,,2). /* replace */ chWordApplication:ActiveDocument:SaveAs("C:\temp\Test2.docx"). chWordApplication:Quit(). Kind regards, Richard
Continue reading...
ocuments:Open("j:\temp\test.docx"). chWordApplication:Selection:find:text = "Old". chWordApplication:Selection:find:replacement:text = "New". chWordApplication:ActiveDocument:ActiveWindow:ActivePane:View:SeekView = 9. /* select header */ chWordApplication:Selection:find:Execute(,,,,,,,,,,2). /* replace */ chWordApplication:ActiveDocument:ActiveWindow:ActivePane:View:SeekView = 10. /* select footer */ chWordApplication:Selection:find:Execute(,,,,,,,,,,2). /* replace */ chWordApplication:ActiveDocument:ActiveWindow:ActivePane:View:SeekView = 0. /* select main */ chWordApplication:Selection:find:Execute(,,,,,,,,,,2). /* replace */ chWordApplication:ActiveDocument:SaveAs("C:\temp\Test2.docx"). chWordApplication:Quit(). Kind regards, RichardContinue reading...