Here is some actual code that I currently use- it's not pretty, but it
does the job for CF. I'll be happy to try to answer any questions for
you.
Matt Small
<cftry>
<cfobject action="CONNECT"
class="Word.Application" name="objWord" type="COM">
<cfcatch>
<cfobject action="CREATE"
class="Word.Application" name="objWord" type="COM">
</cfcatch>
</cftry>
<cftry>
<cfscript>
objDoc = objWord.Documents;
newDoc =
objDoc.open("#path_documents#\announcerscoresheet_#form.show#.htm");
po = newDoc.PageSetup;
po.Orientation = 1;
po.TopMargin = 36;
po.BottomMargin = 36;
po.LeftMargin = 36;
po.RightMargin = 36;
objSecs = newDoc.Sections;
objSec1 = objSecs.Item(1);
objSec1Headers =
objSec1.Headers;
objSec1Header1 =
objSec1Headers.Item(1);
objRange = objSec1Header1.Range;
// Set the paragraph format
// Values for alignment are
{0=Left,1=Center,2=Right,3=Justify}
objParaFormat =
objRange.ParagraphFormat;
objParaFormat.Alignment = 2;
// Set a right-tab at 6 inches
// Tab positions are in points,
where 72 points = 1 inch
// Arguments to the TabStops.Add
function:
// Position: 6 inches * 72
points/inch = 432 points
// Alignment: values include
{0=Left,1=Center,2=Right}
objTabStops =
objParaFormat.TabStops;
objTabStops.ClearAll();
objTabStops.Add(432,2);
objRange.Select();
objSelection = objWord.Selection;
objFont = objSelection.Font;
objFont.Name = "Arial";
objFont.Size = 10;
// Insert the page number
// Page number is field type 33
// Story is unit type 6
objRange.Collapse(0);
objFields = objRange.Fields;
objFields.Add(objRange,33);
</cfscript>
<cflock name="printout" type="exclusive"
timeout="300">
<cfscript>
switch (form.printer) {
case 1:
{objWord.ActivePrinter = "#printer_princess#"; break;}
case 2:
{objWord.ActivePrinter = "#printer_lana#"; break;}
case 3:
{objWord.ActivePrinter = "#printer_3#"; break;}
case 4:
{objWord.ActivePrinter = "#printer_4#"; break;}
case 5:
{objWord.ActivePrinter = "#printer_5#"; break;}}
newDoc.PrintOut();
</cfscript>
</cflock>
<cfscript>
newDoc.Close();
</cfscript>
<cfcatch>
<cfscript>
newDoc.Close();
objWord.Quit();
</cfscript>
<cfrethrow>
</cfcatch>
</cftry>
Matthew Small
IT Supervisor
Showstopper National Dance Competitions
3660 Old Kings Hwy
Murrells Inlet, SC 29576
843-357-1847
http://www.showstopperonline.com
-----Original Message-----
From: Peter Bagnato [mailto:[EMAIL PROTECTED]]
Sent: Friday, December 06, 2002 9:20 PM
To: CF-Talk
Subject: MS Word/CFOBJECT Help
Hello,
Does anyone have any example code or documentation (other than the basic
templates found on CFCOMET) that can show me how to create, set footers,
margins, etc. in MS Word files using CFOBJECT?
Thanks!
Peter
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Archives: http://www.houseoffusion.com/cf_lists/index.cfm?forumid=4
Subscription:
http://www.houseoffusion.com/cf_lists/index.cfm?method=subscribe&forumid=4
FAQ: http://www.thenetprofits.co.uk/coldfusion/faq
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.cfm
