Word Belgedeki Sayfaları Farklı Belge Olarak Kaydetme ve Yeniden Adlandırma

Katılım
9 Mart 2021
Mesajlar
1
Excel Vers. ve Dili
Office 365 2102, Türkçe
Herkese merhaba
Merhaba,
Örnek dosyayı rardan çıkarıp deneyiniz. Dosya hangi klasördeyse sayfaları orada oluşturur. Makronun çalışması için word dosyanızın makro güvenlik seviyesinin düşük olması gerekli. Güvenlik seviyesini düşürmek için:
ARAÇLAR>MAKRO>GÜVENLİK>DÜŞÜK seviyesini seçip dosyanızı kapatıp açınız.
Makroyu kendi word dosyanızda çalıştırmak için Araçlar>Makro>Makrolar kısmından makroyu seçip çalıştır butonuna tıklamanız yeterli. Tabi öncesinde eklediğim makroyu word dosyanızın Thisdocument kısmına kopyalamalısınız.
Ekte 5 sayfalık bir örnek ekledim. Kodlar içinde...
Kod:
Sub Makro1()
Dim docC As Document
Dim docN As Document
Dim i As Integer
Dim k As Integer
Selection.HomeKey Unit:=wdStory
Set docC = ActiveDocument
k = ActiveDocument.Content.Information(wdActiveEndPageNumber)
Application.Browser.Target = wdBrowsePage
For i = 1 To k
docC.Bookmarks("\page").Range.Copy
Set docN = Documents.Add
Selection.Paste
Selection.TypeBackspace
docN.SaveAs ThisDocument.Path & "\Sayfa" & i & ".doc"
docN.Close SaveChanges:=wdDoNotSaveChanges
Application.Browser.Next
Next i
MsgBox "Sayfalar başarıyla kaydedildi.", vbInformation, "DURUM"
End Sub
Buradaki makroyu kullanarak word dosyamdaki sayfaları ayrı belge olarak kaydedeceğim fakat dosyaların isimlerinin de belgede yazan yazıyla adlandırılmasını istiyorum. Şu anki belgemde Mektup birleştirme ile hazırlanmış katılım belgeleri var. Bu belgelerin hepsinde de sadece kişilerin adı ve soy adı yazı olarak bulunuyor. Bu istediğimi nasıl gerçekleştirebilirim?
 
Üst