Word dosyasına isim ve sayfa numarasını bilgi olarak ekleme

[Sinan2618]

Merhaba,

Ben word dosyasına dosyasına dosyanın adını ve dosyanın toplam sayfa sayılarını eklemek istiyorum.

Örnek olarak ekteki dosya'nın adının deneme olduğunu ve toplamda 5 sayfa olduğunu varsayarsak sayfaların en alt sağ köşesine aşağıdaki şekilde bilgi eklemek istiyorum.

1. Sayfa - Denene 1/5
2. Sayfa - Denene 2/5
3. Sayfa - Denene 3/5
4. Sayfa - Denene 4/5
5. Sayfa - Denene 5/5

Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Makro kaydet ile oluşturulan kodlar aşağıdadır.

İlgili word belgesinde yeni bir modül ekleyin ve oraya yapıştırın. Sonra Çalıştırın.

Sub SayfaNoEkle()

    With Selection.Sections(1).Headers(1).PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = True
        .StartingNumber = 1
    End With
    
    Selection.TypeText Text:=vbTab
    Selection.ParagraphFormat.TabStops(CentimetersToPoints(8)).Position = _
        CentimetersToPoints(16)
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "PAGE  \* Arabic ", PreserveFormatting:=True
    Selection.TypeText Text:=". Sayfa - " & Split(ThisDocument.Name, ".")(0) & " "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "PAGE  \* Arabic ", PreserveFormatting:=True
    Selection.TypeText Text:="/"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "NUMPAGES  \* Arabic ", PreserveFormatting:=True
    
End Sub

 

[Sinan2618]

Merhaba,

Makro kaydet ile oluşturulan kodlar aşağıdadır.

İlgili word belgesinde yeni bir modül ekleyin ve oraya yapıştırın. Sonra Çalıştırın.

Sub SayfaNoEkle()

    With Selection.Sections(1).Headers(1).PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = True
        .StartingNumber = 1
    End With
    
    Selection.TypeText Text:=vbTab
    Selection.ParagraphFormat.TabStops(CentimetersToPoints(8)).Position = _
        CentimetersToPoints(16)
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "PAGE  \* Arabic ", PreserveFormatting:=True
    Selection.TypeText Text:=". Sayfa - " & ThisDocument.Name & " "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "PAGE  \* Arabic ", PreserveFormatting:=True
    Selection.TypeText Text:="/"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "NUMPAGES  \* Arabic ", PreserveFormatting:=True
    
End Sub

Malesef istediğim gibi olmadı. Deneme.docx şeklinde çıkıyor ayrıca sadece 1. sayfaya ekledi.

 

[Necdet]

Sayfa numaraları farklı mı? yani birinci sayfa farklı diğer sayfalar farklı vs.

Dosya uzuntısını kaldırmak kolay o sorun değil de.

Benim denemelerimde tüm sayfalara uygulamıştı.

 

[Sinan2618]

Sayfa numaraları farklı mı? yani birinci sayfa farklı diğer sayfalar farklı vs.

Dosya uzuntısını kaldırmak kolay o sorun değil de.

Benim denemelerimde tüm sayfalara uygulamıştı.

Evet sayfalarda aşağıdaki şekilde dosya adının yanında sayfaların numaraları yazsın istiyorum. Ayrıca dolu bir word dosyasında denediniz mi ben deneyinde üstte alakasız bir yerde verdi sonucu.
Deneme 1/5
Deneme 2/5
Deneme 3/5
Deneme 4/5
Deneme 5/5

 

[Necdet]

Ayrıca dolu bir word dosyasında denediniz mi

Dolu word dosyasını nereden bulayım?

bir kaç kelimelik sayfalar oluşturdum ve orada denedim oldu.

Siz örnek dosyanızı ekleyin hep birlikte bakalım.

 

[Sinan2618]

Dosya eklenmiştir.

 

[Necdet]

Merhaba,

Alt bilgiye geçtikten sonra kodlar doğru çalıştı. En son sadece dosya adını uzantısız olarak düzenlenmiş halini ilk kodlarda düzelttim.

Word makroları konusunda fazla bilgim olmadığı için anca bu kadar oldu, kodları kısaltmak tabii ki olası.