Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How To add text and page number to word documents footer
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
How To add text and page number to word documents footer
Miscellaneous
Thread ID:
00951777
Message ID:
00951777
Views:
50
In the code below, I have page numbers that are added to the footer of the word document. The page number is centered, apparently automaticly. I'd like to add text to the left portion of the footer "Application Name" and have the page number on right. Anybody have some clues how to do this?
	oWord=CREATEOBJECT("Word.Application")
	IF VARTYPE(oWord)=[O]
		oWord.documents.open("c:\stats.htm")
		oword.Documents.Item(1).Sections(1).Footers.Item(1).PageNumbers.Add(1)
		oword.documents.item(1).sections(1).footers.
		oword.ActiveDocument.PrintOut
		oWord.Documents.Close()
		oWord=.null.
		release oWord		
	ELSE 
		thisform.olecontrol1.document.execCommand("Print")
	ENDIF 
Thanks
Next
Reply
Map
View

Click here to load this message in the networking platform