1903emre34@gmail.com
Altın Üye
- Katılım
- 29 Mayıs 2016
- Mesajlar
- 900
- Excel Vers. ve Dili
- Microsoft Excel 2013 Türkçe
- Altın Üyelik Bitiş Tarihi
- 06-06-2027
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?
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?
Kod:
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
Son düzenleme: