Rewrite-Document
Command Description
Write content to a Word document and overwrite the original content
Command Prototype
Word.WriteAll(objWord,sText)
Parameter Description
Parameter | Required | Type | Default | Description |
---|---|---|---|---|
objWord | True | expression | objWord | Word document object |
sText | True | string | "" | Write content |
Demo
/************************************Rewrite document ************* ****************************
Command prototype:
Word.WriteAll(objWord,sText)
Input parameters:
objWord--Word document object
sText--write content
*********************************************************************************/
Dim objWord
objWord = Word.Open('''C:\Users\Administrator\Desktop\Standardization Implementation Notes.docx''',"xw4131221","",true)
sRet = Word.ReadAll (objWord)
TracePrint ($ PrevResult)
Word.WriteAll(objWord,"Step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on, step on step on \\n1.Wow.\\n2.Wow\\n3.DiDiDi")
sRet = Word.ReadAll (objWord)
TracePrint ($ PrevResult)