Database Search

TechHome

• 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.

Change Margin and Fonts in Word DOC

 Keywords: Word Txt Doc Font Margin InchesToPoints SaveAs 

Sample Code:

infile = 'c:\temp\test.txt'
outfile = 'c:\temp\test.doc'


;Get Word Application object handle
objApp = ObjectCreate("Word.Application")
objDocs = objApp.Documents

;Make visisble to end user
objApp.visible = @TRUE

;Open document
objDoc = objDocs.Open( :: FileName = infile)

;Select everything
objSelection = objApp.Selection
objSelection.wholestory


;Set Margin
objSelection.PageSetup.LeftMargin = objApp.InchesToPoints(0.4) ; set these three margins
objSelection.PageSetup.RightMargin = objApp.InchesToPoints(0.4) ; set these three margins
objSelection.PageSetup.TopMargin = objApp.InchesToPoints(1.25) ; set these three margins

;Set Font
objSelection.Font.Size = 9 ; set these three Font specs
objSelection.Font.Bold = @TRUE ; set these three Font specs
objSelection.Font.Name = "courier new" ; set these three Font specs

;SaveAs .DOC
objDoc.SaveAs(::FileName=outfile, FileFormat=0)

;Close document
objDoc.Close

;Free object handles
objDoc = 0
objSelection = 0
objDocs = 0

;Exit Word
objApp.Quit
objApp = 0

Exit

Article ID:   W18149

Filename:   Change Margin and Fonts in Word DOC.txt

File Created: 2008:10:01:07:42:16

Last Updated: 2008:10:01:07:42:16