kapalı word dosyalarında alt bilgi değişiklik yapma

[1903emre34@gmail.com]

Merhabalar,

Aşağıdaki kod aracılığıyla, Word dosyaların alt bilgi kısmında yer alan bilgileri değiştiyorum, ama tek seçenek sunuyor, Userform hazırladım kodlarda nasıl değişklik yapabiliriz?

Sub WD_Altbilgi()
    eskibilgi = Application.InputBox("ESKİ BİLGİ veri girişi yapınız.", "eskibilgi", ActiveSheet.Range("f1").Value)
    If eskibilgi = False Then Exit Sub
    yenibilgi = Application.InputBox("YENİ BİLGİ için veri girişi yapınız.", "yenibilgi", ActiveSheet.Range("f2").Value)
    If yenibilgi = False Then Exit Sub
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count > 0 Then
            yol = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    dosya = Dir(yol & "\*.doc*")
    Set WD = CreateObject("word.Application")
    WD.Visible = True
    Do While dosya <> ""
        WD.Application.Documents.Open yol & "\" & dosya
        WD.Selection.Find.ClearFormatting
        WD.Selection.Find.Replacement.ClearFormatting
        WD.ActiveWindow.ActivePane.View.SeekView = 10
        WD.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = False
        With WD.Selection.Find
            .Text = eskibilgi
            .Replacement.Text = yenibilgi
            .Forward = True
            .Wrap = 1
        End With
        WD.Selection.Find.Execute Replace:=2
        WD.ActiveDocument.Close True
        dosya = Dir
    Loop
    WD.Quit
    MsgBox "İşlem tamamlanmıştır.", vbInformation, "--"
End Sub