Sayfa üstbilgisi otomatik oluşturulabilir mi?

[assenucler]

Değerli dostlar merhabalar;


Sayın uzmanamele ve yurttas'ın soruma verdiği yanıt ile sorunum için çözüm önerisi sundular.

http://www.excel.web.tr/f51/sayfa-ust-bilgisinde-sayfa-toplam-sayfa-gozuksun-t101897.html#post554962

Ancak, her Word sayfası açıldığında üstbilgi'de herhangi bir seçim yapmadan, sayfa numaralaması "Sayfa: 1/4 gibi sayfa/toplam sayfa" şeklinde, sanki bir şablon dosyası gibi otomatik gelsin istiyorum. Bu mümkün mü? Nasıl?

Teşekkürler..

 

[assenucler]

Değerli dostlar değerli düşünce ve çözümlerinizi bekliyorum.

 

[leumruk]

Değerli dostlar değerli düşünce ve çözümlerinizi bekliyorum.

Merhaba,
Makro kodları ile çözüme ulaşabilirsiniz. Aşağıdaki kodları bilgisayarınızda bulunan herhangi bir word dosyanızın "NewMacros" bölümüne kopyalayın ve dosyayı kaydedin. Bu işlemden sonra kodlar tüm word dosyalarınızda çalışacaktır.

Sub autoopen()
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
    With Selection
        .WholeStory
        .Delete
        .TypeText Text:="Sayfa: "
        .Fields.Add Range:=Selection.Range, Type:=wdFieldPage
        .TypeText Text:="/"
        .Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
        .ParagraphFormat.Alignment = wdAlignParagraphRight
    End With
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

 

[assenucler]

Hata iletisi nedeni ne olabilir?

Sayın leumruk,

İyi geceler..

İlginiz ve yanıtınız için teşekkürler.

Ekli resimlerden de görüleceği gibi, makro kodunu değinilen yere kaydedip, word dosyası açtığımda hata iletisi alıyorum.

Nedeni nedir ve nasıl çözüme oluşabilirim?

 

[leumruk]

Sol üst köşede makro güvenlik seçeneği var. O kısımdan makroları etkinleştirmeniz gerekli.

 

[modalı]

Sayın assenucler,

Kodlarda hata olmayabilir. Wordun ayarlarını öncelikle değiştirin.
Word Seçeneklerinden > Güven Merkezi > Güven Merkezi Ayarları ndan makroları etkinleştirmeniz gerekir.

İyi çalışmalar

 

[assenucler]

Sayın leumruk,

Değerli desteğiniz için en içten teşekkürlerimi sunarım. Her şey gönlünüzce olsun. Sağ olun var olun.

Sevgi ve saygılar.

 

[assenucler]

Sayın modalı,

İnceliğiniz ve yanıtınız için size de teşekkürler...

Sevgi ve saygılar...

 

[leumruk]

Sayın leumruk,

Değerli desteğiniz için en içten teşekkürlerimi sunarım. Her şey gönlünüzce olsun. Sağ olun var olun.

Sevgi ve saygılar.

Rica ederim. İyi çalışmalar...