Herkese merhaba
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?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