Convert .doc to .docx May 27, 2020 04:43PM |
Registered: 5 years ago Posts: 69 |
Re: Convert .doc to .docx May 27, 2020 05:05PM |
Admin Registered: 5 years ago Posts: 297 |
Re: Convert .doc to .docx May 27, 2020 05:33PM |
Registered: 5 years ago Posts: 69 |
Re: Convert .doc to .docx May 27, 2020 05:36PM |
Registered: 5 years ago Posts: 234 |
Re: Convert .doc to .docx May 27, 2020 06:24PM |
Registered: 5 years ago Posts: 121 |
Re: Convert .doc to .docx May 28, 2020 11:19AM |
Registered: 5 years ago Posts: 69 |
Re: Convert .doc to .docx May 28, 2020 11:24AM |
Registered: 5 years ago Posts: 69 |
Re: Convert .doc to .docx May 28, 2020 11:45AM |
Registered: 5 years ago Posts: 234 |
Re: Convert .doc to .docx May 28, 2020 02:15PM |
Admin Registered: 5 years ago Posts: 297 |
PROCEDURE DocFindAndReplace(LocalDocName = "") //08/12/14 //LDocDirName a full path name of the document as C:\foldername\filename LOkToFindReplace is boolean = False MyWordObject is dynamic Automation object //object OLE Dynamic IF MyWordObject <> Null THEN MyWordObject>>Visible = OLETrue MyWordObject>>Quit() END MyWordObject=GetActiveObject("Word.Application") IF MyWordObject=Null THEN // check if word is open WHEN EXCEPTION IN MyWordObject = new object OLE "Word.Application" DO Info("MS Word is not installed on this computer. The find and replace function cannot complete") LOkToFindReplace = False GRunFindReplaceAgain = True delete MyWordObject END //exception END IF LOkToFindReplace = True MyWordObject>>Visible=True MyWordObject>>Application>>Visible=True MyWordObject>>Documents>>Open(LocalDocName,False,False) //find and replace routine MyWordObject>>Quit(-1) delete MyWordObject END //
Re: Answer PcSoft May 28, 2020 05:50PM |
Registered: 5 years ago Posts: 69 |
Re: Convert .doc to .docx May 28, 2020 08:18PM |
Registered: 5 years ago Posts: 121 |
Re: Convert .doc to .docx May 29, 2020 09:37AM |
Registered: 5 years ago Posts: 112 |
PROCEDURE SaveAsDocx(LocalDocName is string) MyWordObject is object OLE dynamic IF MyWordObject <> Null THEN MyWordObject>>Visible = OLETrue MyWordObject>>Quit() END MyWordObject = GetActiveObject("Word.Application") IF MyWordObject = Null THEN // check if word is open WHEN EXCEPTION IN MyWordObject = new object OLE "Word.Application" DO Info("MS Word is not installed on this computer.") delete MyWordObject RETURN END END OpenWord(LocalDocName) SaveAsWord(LocalDocName) CloseWord() INTERNAL PROCEDURE OpenWord(DocumentName) WHEN EXCEPTION IN MyWordObject>>Documents>>Open(DocumentName) DO Error("Unable to Open the document.", ExceptionInfo()) RETURN END MyWordObject>>Visible = True END INTERNAL PROCEDURE SaveAsWord(DocumentName) NewDocName is string = Replace(DocumentName, ".doc", ".docx", IgnoreCase) WHEN EXCEPTION IN MyWordObject>>ActiveDocument>>SaveAs(NewDocName, 16) DO Error("Unable to Save as the document.", ExceptionInfo()) CloseWord() END LocalDocName = NewDocName END INTERNAL PROCEDURE CloseWord() IF MyWordObject <> Null THEN WHEN EXCEPTION IN MyWordObject>>Quit(False, False, False) DO Error("Unable to Close the document.", ExceptionInfo()) END Multitask(-30) delete MyWordObject END END
Re: Convert .doc to .docx May 29, 2020 09:56AM |
Admin Registered: 5 years ago Posts: 297 |
Re: Convert .doc to .docx May 29, 2020 10:14AM |
Registered: 5 years ago Posts: 69 |