Re: scripting MS WOrd

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Joe Fawcett (joefawcett_at_hotmail.com)
Date: 02/24/04


Date: Tue, 24 Feb 2004 09:11:12 -0800

Also rather than rely on ActiveDocument:
Const wdPaperA4 = 7
Dim oDoc
Set objWordApp = CreateObject("Word.Application")
Set oDoc = objWordApp.Document.Open("C:\SomeText.dot")
oDoc.PageSetup.PaperSize = wdPaperA4

Joe