Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE with Word
- Append Multiple Word Documents Together
- Change font in Word Document
- Change Font of Entire Doc File
- Change Margin and Fonts in Word DOC
- Changing Word Page Header
- Convert an RTF File to Plain Text file using Word
- Count bookmarks in Word
- Create a Word-document with table
- Create Hyperlinks in Word
- Extract Data from a Table in Word
- Extract Image from Word document
- Find and Replace Text in Word Document
- Find the Links in a Word Doc
- Get File Path to Word
- Get total number of pages
- Insert Text and CRLFs into a Word Doc
- Insert Wave File into a Word Document
- Inserting Pictures Into Table Cells in Word
- Mail Merge Warning in Word
- OLE and Word Basic Macro Language
- OLE and Word Example
- OLE Word File Append
- Print a MS Word document to to a PostScript printer
- Print an Envelope from Word
- Read Word Doc Line by Line
- Recordset to MS Word Table
- Run a Word Macro
- Setting Password in Word
- Spell Checker
- Template Info in Word
- Wait for Document to Load Completely
- Word - Constants
- Word Fields
- Word File Append
- WORD Find and Replace
- Word Mail Merge
- Word SaveAs HTML
- Word SaveAs
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Insert Text and CRLFs into a Word Doc
Question:
I am writing some code automate a MS Word by putting text into a document. The fields that are in this file are the fields that typically are part of a letter heading:Name Address City,State Zip Dear Contact_First_Names:I need to put a CRLF after each field except for the salutation which needs 2 lines.
Answer:
To insert a CRLF use the TypeParagraph Method.To insert text use the TypeText Method.
Sample Code:
filetocreate = "C:\temp\WordTemp.doc"
oAPP = ObjectCreate("Word.Application")
oConstants = ObjectConstantsGet(oAPP)
oAPP.Application.visible = @true
oAPP.Application.ChangeFileOpenDirectory(FilePath(filetocreate))
oAPP.Application.Documents.Add
oActive = oAPP.Application.ActiveDocument
oAPP.Application.Selection.Range.EndOf(:: Unit=oConstants.wdStory, Extend=oConstants.wdMove)
oAPP.Application.Selection.TypeText("First and Last Name")
oAPP.Application.Selection.TypeParagraph ; a @CRLF
oAPP.Application.Selection.TypeText("Address")
oAPP.Application.Selection.TypeParagraph; a @CRLF
oAPP.Application.Selection.TypeText("City, State Zip")
oAPP.Application.Selection.TypeParagraph
oAPP.Application.Selection.TypeParagraph
oAPP.Application.Selection.TypeText("Dear Friend:")
Pause("Debugging",StrCat("DONE - Check the contents of the file ",filetocreate))
oAPP.Application.ActiveDocument.SaveAs(StrCat(FileRoot(filetocreate),".",FileExtension(filetocreate)))
oAPP.Application.ActiveDocument.Close
oAPP.Application.Quit
oActive = 0
oApp = 0
Article ID: W16645
File Created: 2005:12:12:16:11:20
Last Updated: 2005:12:12:16:11:20