Hello wise ones.
I have a script that creates a multi page word document containing network adapter info (It will do something else when done). I am able to create the header and footer for the current page but need to have the header and footer for page 1 be different than all the others. If someone could take a look at the below code and give me a shove It would be greatly appreciated. I am of course open to any criticism as to my methods as well.

Thanks in advance!!! 


use Win32::OLE;                           # Object Linking and Embeddi
+ng
use Win32::OLE::Const 'Microsoft Word';   # Defines constants word kno
+ws
use Win32::Process ;
$picturefile = "c:\\temp\\picture.gif";
$objWord = Win32::OLE->new('Word.Application')
or die "Cannot start Word" ;

$objWord->{Visible} = 0 ;        # 0 = Don't watch what happens 1 = wa
+tch what happens
$objWord->{DisplayAlerts} = 0 ;  # 0 = do not prompt 1 = prompt
$objWord->{Caption} = 'TestDoc DOC';
$objDoc = $objWord->Documents->Add();
$objSelection = $objWord->Selection;


####################################
#### Set up document formatting ####
####################################
$objSelection->PageSetup->{LineNumbering} = 0 ;
$objSelection->PageSetup->{Orientation} = wdOrientPortrait ;
$objSelection->PageSetup->{TopMargin} = 18 ; #   .25 inch
$objSelection->PageSetup->{BottomMargin} = 18 ; # .25 inch
$objSelection->PageSetup->{LeftMargin} = 22 ; #  .25 inch
$objSelection->PageSetup->{RightMargin} = 18 ; # .25 inch
$objSelection->PageSetup->{Gutter} = 0 ;     #  0.   inch
$objSelection->PageSetup->{HeaderDistance} = 18 ; # .25 inch
$objSelection->PageSetup->{FooterDistance} = 18 ; # .25 inch
$objSelection->PageSetup->{PageWidth} = 612 ; # 8.5 inches
$objSelection->PageSetup->{PageHeight} = 792 ; # 11.0  inches
$objSelection->PageSetup->{FirstPageTray} = wdPrinterDefaultBin ;
$objSelection->PageSetup->{OtherPagesTray} = wdPrinterDefaultBin ;
$objSelection->PageSetup->{SectionStart} = wdSectionNewPage ;
$objSelection->PageSetup->{OddAndEvenPagesHeaderFooter} = 0 ;
$objSelection->PageSetup->{DifferentFirstPageHeaderFooter} = 1 ;
$objSelection->PageSetup->{VerticalAlignment} = wdAlignVerticalTop ;
$objSelection->PageSetup->{SuppressEndnotes} = 0 ;
$objSelection->PageSetup->{MirrorMargins} = 0 ;




###############################
#### Start Creating Header ####
###############################
$objWord->ActiveWindow->ActivePane->View->{Type} = wdPageView ;
$objWord->ActiveWindow->ActivePane->View->{SeekView} = wdSeekCurrentPa
+geHeader ; #
$objSelection->ParagraphFormat->Borders(wdBorderLeft)->{LineStyle} = w
+dLineStyleNone ;
$objSelection->ParagraphFormat->Borders(wdBorderRight)->{LineStyle} = 
+wdLineStyleNone ;
$objSelection->ParagraphFormat->Borders(wdBorderTop)->{LineStyle} = wd
+LineStyleNone ;
$objSelection->ParagraphFormat->Borders(wdBorderBottom)->{LineWidth} =
+ wdLineWidth150pt ;
$objSelection->ParagraphFormat->Borders(wdBorderBottom)->{LineStyle} =
+ wdLineStyleTriple ;
$objSelection->ParagraphFormat->Borders->{DistanceFromTop} = 1 ;
$objSelection->ParagraphFormat->Borders->{DistanceFromLeft} = 4 ;
$objSelection->ParagraphFormat->Borders->{DistanceFromBottom} = 1 ;
$objSelection->ParagraphFormat->Borders->{DistanceFromRight} = 4 ;
$objSelection->Style('ActiveDocument->Styles' =>"Header") ;
$objSelection->Font->{Name} = 'Times New Roman' ;
$objSelection->Font->{Size} = 8 ;
$objSelection->Font->{Italic} = 1 ;
$objSelection->Font->{ColorIndex} = wdBlack ;


# INSERT PICTURE ####
$objSelection->InlineShapes->AddPicture($picturefile);
$headertext = "\n\nTHIS IS THE HEADER FOR ALL PAGES BUT PAGE ONE\n";
$objSelection->TypeText("$headertext") ;
##############################
#### Done Creating Header ####
##############################

###############################
#### Start Creating Footer ####
###############################
$objWord->ActiveWindow->ActivePane->View->{SeekView} = wdSeekCurrentPa
+geFooter ; #
$objSelection->ParagraphFormat->Borders(wdBorderLeft)->{LineStyle} = w
+dLineStyleNone ;
$objSelection->ParagraphFormat->Borders(wdBorderRight)->{LineStyle} = 
+wdLineStyleNone ;
$objSelection->ParagraphFormat->Borders(wdBorderTop)->{LineWidth} = wd
+LineWidth225pt ;
$objSelection->ParagraphFormat->Borders(wdBorderTop)->{LineStyle} = wd
+LineStyleSingle ;
$objSelection->ParagraphFormat->Borders(wdBorderBottom)->{LineStyle} =
+ wdLineStyleNone ;
$objSelection->ParagraphFormat->Borders->{DistanceFromTop} = 1 ;
$objSelection->ParagraphFormat->Borders->{DistanceFromLeft} = 4 ;
$objSelection->ParagraphFormat->Borders->{DistanceFromBottom} = 1.25 ;
$objSelection->ParagraphFormat->Borders->{DistanceFromRight} = 4 ;
$objSelection->Style('ActiveDocument->Styles' =>"Footer") ;
$objSelection->Font->{Name} = 'Times New Roman' ;
$objSelection->Font->{Size} = 8 ;
$objSelection->Font->{Italic} = 1 ;
$objSelection->Font->{ColorIndex} = wdBlack ;
$footertext = "\nTHIS IS THE FOOTER TEXT FOR ALL PAGES BUT PAGE ONE\n"
+;
$objSelection->TypeText("$footertext") ;
$objSelection->TypeText("\t") ;
$objWord->NormalTemplate->AutoTextEntries("Page X of Y")->Insert($objS
+election->Range);
##############################
#### Done Creating Footer ####
##############################


#######################################
#### START ADDING TEXT TO THE BODY ####
#######################################
$objWord->ActiveWindow->ActivePane->View->{SeekView} = wdSeekMainDocum
+ent ;
$objSelection->Font->{Name} = 'Arial';
$objSelection->Font->{Size} = '18';
$objSelection->TypeText('Network Adapter Report');
$objSelection->TypeParagraph();
$objSelection->Font->{Size} = '20';
$objSelection->TypeText('' . VBS::Date());
$objSelection->TypeParagraph();
$objSelection->TypeParagraph();
$objSelection->Font->{Size} = '10';
#######################################
#### Done ADDING TEXT TO THE BODY ####
#######################################

#########################################################
### Adding network adapter configuration to document ####
#########################################################
$strComputer = '.';
$objWMIService = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer 
+. '\\root\\cimv2');
$colItems = $objWMIService->ExecQuery('Select * from Win32_NetworkAdap
+terConfiguration');

foreach my $objItem (in $colItems) {

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('ARP Always Source Route: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->ArpAlwaysSourceRoute);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('ARP Use EtherSNAP: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->ArpUseEtherSNAP);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('Caption: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->Caption);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('Database Path: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->DatabasePath);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('Dead GW Detection Enabled: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->DeadGWDetectEnabled);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('Default IP Gateway: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->DefaultIPGateway);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('Default TOS: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->DefaultTOS);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('Default TTL: ');
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->DefaultTTL);
    $objSelection->TypeParagraph();

    $objSelection->Font->{Bold} = 1;
    $objSelection->TypeText('Description: ');
    $objSelection->Font->{Bold} = 1;
    $objSelection->Font->{Bold} = 0;
    $objSelection->TypeText('' . $objItem->Description);
    $objSelection->TypeParagraph();

    $objSelection->TypeParagraph();

}
##########################################################
#### Done network adapter configuration to document ######
##########################################################
$objDoc->SaveAs('C:\\temp\\testdoc.doc');
$objWord->Quit();


package VBS;
use Win32::OLE::NLS qw(:TIME
               :DATE
               GetLocaleInfo GetUserDefaultLCID
                       LOCALE_SMONTHNAME1 LOCALE_SABBREVMONTHNAME1
                       LOCALE_SDAYNAME1 LOCALE_SABBREVDAYNAME1
               LOCALE_IFIRSTDAYOFWEEK
               LOCALE_SDATE LOCALE_IDATE
               LOCALE_SGROUPING
               );
use Win32::OLE::Variant;

use constant EPOCH       => 25569;
use constant SEC_PER_DAY => 86400;

our $lcid;
BEGIN {
    $lcid = GetUserDefaultLCID();
    Win32::OLE->Option(LCID => $lcid);
}

# Return the local time in seconds since the epoch.
sub _localtime_in_sec {
    require Time::Local;
    return 2.0 * CORE::time() - Time::Local::timelocal(gmtime);
}

# Extract specific information out of a date.
sub _extract_from_date {
    my($date,$method,$format) = @_;
    return unless $date;
    unless (UNIVERSAL::isa($date, "Win32::OLE::Variant")) {
        $date = Variant(VT_DATE, $date);
    }
    return $date->$method($format, $lcid);
}

# Returns the current system date.
sub Date {
    return Variant(VT_DATE, EPOCH + int(_localtime_in_sec()/SEC_PER_DA
+Y));
}

[download]

Formatting and readmore tags added by davido per consideration.

In reply to Win32::OLE first page header/footer how? by boat73

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.