Sub wd()
Dim AppWord As Word.Application
Dim oRng As Word.Range
Dim yol As String
 
yol = "c:\Docume~1\Alluse~1\Desktop\Yaz1.rtf"
Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True
AppWord.Documents.Open yol
Set oRng = AppWord.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
 
 
With AppWord.ActiveDocument.Fields
    .Add oRng, wdFieldPage
    With oRng
    .End = .Paragraphs(1).Range.End
    .Paragraphs(1).Alignment = wdAlignParagraphLeft
    .InsertBefore Me.AltBilgi & "                                       sayfa "
    .Collapse wdCollapseEnd
    End With
End With
With AppWord.ActiveDocument.PageSetup
        .FooterDistance = 0    'altbilgi aralığını 0 yapar
        .HeaderDistance = 0    'üstbilgi aralığını 0 yapar
        .TopMargin = InchesToPoints(0.5)     'sayfa üst aralığı
        .BottomMargin = InchesToPoints(0.5)   'sayfa alt aralığı
End With