Bölüm üstbilgisi ve altbilgisi bilgilerini almak ve ayarlamak için Word otomatikleþtirme

• Ilk bölümde iki sayfa içerir. Bu bölümde, ilk sayfa üstbilgisi ve altbilgisi ikinci sayfasýndan farklýdýr.
• Ikinci bölümü, üç sayfa içerir. Bu bölümde, ilk sayfa üstbilgisi ve altbilgisi diðer iki sayfalardan farklýdýr.
• Üçüncü bölüm iki sayfa içerir. Bu bölümde, tüm sayfalarý ayný üstbilgiyi ve altbilgiyi paylaþýr.

ÖRNEK

1. Yeni bir Standart EXE Project, Visual Basic'te oluþturun. Varsayýlan olarak, Form1 oluþturulur.
2. Proje menüsünde Baþvurular ' ý týklatýn. Aþaðýdakilerden birini týklatýn ve sonra Tamam ' ý týklatýn:
   • Word 2007 için Microsoft Word 12.0 Nesne Kitaplýðý ' ý týklatýn.
   • Word 2003 için Microsoft Word 11.0 Nesne Kitaplýðý ' ý týklatýn.
   • Word 2002 için Microsoft Word 10.0 Nesne Kitaplýðý ' ý týklatýn.
   • Word 2000'de, Microsoft Word 9.0 Nesne Kitaplýðý ' ný týklatýn.
3. Iki komut düðmelerini Form1'e ekleyin. Belge OluþturCommand1 baþlýðýný deðiþtirmek ve Üstbilgi/altbilgi almak için Command2 baþlýðýný deðiþtirin.
4. Add the following code to Form1:

   Option Explicit
   
   Private Sub Command1_Click()
       SetHeadersFooters
   End Sub
   
   Private Sub Command2_Click()
       GetHeadersFooters App.Path & "\mydoc.doc"
   End Sub
   
   
   Sub SetHeadersFooters()
   
       Dim oApp As Word.Application
       Dim oSec As Word.Section
       Dim oDoc As Word.Document
       
       'Create a new document in Word
       Set oApp = New Word.Application
       Set oDoc = oApp.Documents.Add
       
       With oDoc
               
           '=== SECTION 1 ==================================================
           
           'Add two pages to the first section where the first page in the
           'section has different headers and footers than the second page
           Set oSec = .Sections(1)
           oSec.PageSetup.DifferentFirstPageHeaderFooter = True
           oSec.Range.InsertAfter "Text on Page 1 (Section 1)"
           .Range(oSec.Range.End - 1).InsertBreak wdPageBreak
           oSec.Range.InsertAfter "Text on Page 2 (Section 1)"
           
           'Add the headers/footers for the first section (that contains two
           'pages)
           oSec.Headers(wdHeaderFooterFirstPage).Range.Text = _
                 "Page1 -- Section 1 First Page Header"
           oSec.Headers(wdHeaderFooterPrimary).Range.Text = _
                 "Page2 -- Section 1 Primary Header"
           oSec.Footers(wdHeaderFooterFirstPage).Range.Text = _
                 "Page1 -- Section 1 First Page Footer"
           oSec.Footers(wdHeaderFooterPrimary).Range.Text = _
                 "Page2 -- Section 1 Primary Footer"
           
           '=== SECTION 2 ==================================================
           
           'Add a new section containing three pages where the first page in 
           'the section has different headers and footers than the other two
           'pages
           .Range(oSec.Range.End - 1).InsertBreak wdSectionBreakNextPage
           Set oSec = .Sections(2)
           oSec.PageSetup.DifferentFirstPageHeaderFooter = True
           oSec.Range.InsertAfter "Text on Page 3 (Section 2)"
           .Range(oSec.Range.End - 1).InsertBreak wdPageBreak
           oSec.Range.InsertAfter "Text on Page 4 (Section 2)"
           .Range(oSec.Range.End - 1).InsertBreak wdPageBreak
           oSec.Range.InsertAfter "Text on Page 5 (Section 2)"
   
           'Add the headers/footers for the second section (that contains
           'three pages) -- notice that the second and third pages in this 
           'section will contain the primary header/footer
           oSec.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
           oSec.Headers(wdHeaderFooterFirstPage).Range.Text = _
                 "Page3 -- Section 2 First Page Header"
           oSec.Headers(wdHeaderFooterPrimary).LinkToPrevious = False
           oSec.Headers(wdHeaderFooterPrimary).Range.Text = _
                 "Page4and5 -- Section 2 Primary Header"
           oSec.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
           oSec.Footers(wdHeaderFooterFirstPage).Range.Text = _
                 "Page3 -- Section 2 First Page Footer"
           oSec.Footers(wdHeaderFooterPrimary).LinkToPrevious = False
           oSec.Footers(wdHeaderFooterPrimary).Range.Text = _
                 "Page4and5 -- Section 2 Primary Footer"
           
           '=== SECTION 3 ==================================================
   
           'Add a new section containing two pages that all have the same
           'header/footer
           .Range(oSec.Range.End - 1).InsertBreak wdSectionBreakNextPage
           Set oSec = .Sections(3)
           oSec.PageSetup.DifferentFirstPageHeaderFooter = False
           oSec.Range.InsertAfter "Text on Page 6 (Section 3)"
           .Range(oSec.Range.End - 1).InsertBreak wdPageBreak
           oSec.Range.InsertAfter "Text on Page 7 (Section 3)"
   
           'Add the headers/footers for the third section (that contains
           ' two pages) 
           oSec.Headers(wdHeaderFooterPrimary).LinkToPrevious = False
           oSec.Headers(wdHeaderFooterPrimary).Range.Text = _
                 "Page6and7 -- Section 3 Primary Header Only"
           oSec.Footers(wdHeaderFooterPrimary).LinkToPrevious = False
           oSec.Footers(wdHeaderFooterPrimary).Range.Text = _
                 "Page6and7 -- Section 3 Primary Footer Only"
            
           'Save the document
           .SaveAs App.Path & "\mydoc.doc"
           
       End With
       
       'Make Word visible to examine the document
       oApp.Visible = True
           
   End Sub
   
   Sub GetHeadersFooters(sFile As String)
   
       Dim oApp As Word.Application
       Dim oDoc As Word.Document
       Dim oSec As Word.Section
       Dim oPageStart As Word.Range
       Dim iPage As Integer, iTotalPages As Integer, iSection As Integer
       Dim sHeader As String, sFooter As String
       
       'Open the document
       Set oApp = New Word.Application
       Set oDoc = oApp.Documents.Open(sFile)
       iTotalPages = oDoc.ComputeStatistics(wdStatisticPages)
   
          
       'Retrieve the headers and footers on each page
       With oDoc
       
           iSection = 0
           
           For iPage = 1 To iTotalPages
               
               'Go to the page represented by the page number iPage and
               'retrieve its section
               Set oPageStart = oDoc.GoTo(What:=wdGoToPage, _
                                          Which:=wdGoToAbsolute, Count:=iPage)
               Set oSec = oPageStart.Sections(1)
               
               'If this is a different section than the one in the previous 
               'iteration and it has a first page header/.footer, then 
               'retrieve the first page header/footer for this section. 
               'Otherwise, retrieve the primary header/footer for this section
               If (iSection < oSec.Index) And _
                  (oSec.PageSetup.DifferentFirstPageHeaderFooter) Then
                   sHeader = oSec.Headers(wdHeaderFooterFirstPage).Range.Text
                   sFooter = oSec.Footers(wdHeaderFooterFirstPage).Range.Text
               Else
                   sHeader = oSec.Headers(wdHeaderFooterPrimary).Range.Text
                   sFooter = oSec.Footers(wdHeaderFooterPrimary).Range.Text
               End If
               
               iSection = oSec.Index
               
               'Display the results in the debug window
               Debug.Print "Page " & iPage & ", Section " & iSection & _
                           ":" & vbCrLf
               Debug.Print "   Header: " & sHeader
               Debug.Print "   Footer: " & sFooter
               
           Next
           
       End With
       
       'Make Word visible to compare the document with the results in the 
       'debug window
       oApp.Visible = True
       
   End Sub
   					

5. Programý çalýþtýrmak için F5 tuþuna basýn.
6. Form üzerinde Belge Oluþtur'u týklatýn ve Visual Basic istemci, Word'Ü baþlatýr ve yeni bir belge oluþturur. Bu iþlem tamamlandýðýnda, belgeyi görülebilir. Belgeyi inceleyin ve farklý üstbilgiler ve altbilgiler, belge boyunca unutmayýn.
7. Yeni belgeyi kapatýn ve sonra da Word'nden çýkýn.
8. Form üzerinde Üstbilgi/altbilgi Al'ý týklatýn. Visual Basic istemci, Word'Ü baþlatýr ve belgedeki her sayfanýn üstbilgi/altbilgi metnini alýr. Sonuçlarý, hata ayýklama penceresinde görüntülenir; bu belge sonuçlarý karþýlaþtýrýn.

Üste