Makro ile Word e üst bilgi ekleme

[mrwarrior]

Makro ile bilgiler sayfasındaki B2 hücresinde bilgiyi Word dosyası oluşturup sadece 1. Sayfada görünecek gibi üst bilgi eklemek istiyorum. Burada bulduğum komutlar genelde tüm sayfaları aynı yapıyor. Şimdiden teşekkürler.

 

[mrwarrior]

Sanırım buldum. Leumruk hocama teşekkürler. Onun kodlarını kullanarak yaptım.

    wrddoc.ActiveWindow.ActivePane.View.SeekView = 9 'wdSeekCurrentPageHeader
            If Sheets("bilgiler").Cells(6, 2).Value <> 1 Then

    wrddoc.PageSetup.DifferentFirstPageHeaderFooter = False
    wrdapp.Selection.TypeText Text:="" & kitapci & " GRUBU" & ""
    End If
          ''''Hizala''''
    wrdapp.Selection.WholeStory
    wrdapp.Selection.ParagraphFormat.Alignment = 1 'wdAlignParagraphCenter
    wrdapp.Selection.Font.Bold = 9999998 'wdToggle
    wrdapp.Selection.Font.Size = 12
        '''''''''''''''''
    wrddoc.PageSetup.DifferentFirstPageHeaderFooter = True
    wrdapp.Selection.ParagraphFormat.Alignment = 1 'wdAlignParagraphCenter
    wrdapp.Selection.Font.Bold = 9999998 'wdToggle
    wrdapp.Selection.Font.Size = 16

    wrdapp.Selection.TypeText Text:=Sheets("Bilgiler").Cells(1, 2).Value
    
    wrdapp.Selection.TypeParagraph
    wrdapp.Selection.TypeText Text:="AD SOYAD:                                            NO:                             SINIF:"
    wrdapp.Selection.ParagraphFormat.Alignment = 0
    

    wrddoc.ActiveWindow.ActivePane.View.SeekView = 0 'wdSeekMainDocument 'Çıkış