üst bilgi değişimi

[sametumur]

arkadaşlar merhaba,

elimde 100 sayfalık bir döküman var. bu dökümanın örn: ilk 10 sayfasının üst bilgisinde (sağ üst) ek-a yazsın, ikinci 3 sayfasında (yani 11-13) ek-b yazsın, yine devamında 14-19 arasında ek-b lahika-1 yazsın. gibi bi şey istiyorum.

mümkünatı var mıdır?

 

[Erdem Akdemir]

Merhaba,

Bildiğim kadarı ile sayfa görünümünde bu dediğinizi yapamazsınız ama çıktı alırken farklı üst bilgiler getirilebilir.
Gerçek çalışmanızı bilmediğimden aşağıdaki kodu kendi dosyanıza uyarlayınız.

Sub denenem()

For Each syf In Sayfa1.HPageBreaks
x = x + 1
Select Case x

Case 1 To 10
Sayfa1.PageSetup.RightHeader = "123456"
Case 11 To 13
Sayfa1.PageSetup.RightHeader = "456789"
Case Else
Sayfa1.PageSetup.RightHeader = "diğer"
End Select

Sayfa1.PrintOut x, x
Sayfa1.PageSetup.RightHeader = ""
Next

End Sub

 

[sametumur]

Bu kodu word dökümanıma uyarlayıp dopdf ile yazdırabilirsem işim görülmüş olur. Denicem
Ancak kodun

For Each syf In Sayfa1.HPageBreaks
x = x + 1

Kısmını anlayamadım

 

[Erdem Akdemir]

Çok pardon siz soruyu word bölümüne sormuşsunuz.
Kodlar word'da çalışmayacaktır.

 

[sametumur]

word için kod yazılabilir mi bu konuyla ilgili?

 

[alicimri]

Sayın sametumur
Manuel olarak örneğinize göre;
1) Sayfa 1'de Üst Bilgi ve Alt Bilgi iletişim Kutusu açın, Sağa yanaşık biçimde ek-a yazın
2) Sayfa 10'gelin Ekle/Kesme/Bölüm sonu türlerinde sonraki sayfa yı işaretleyin.
3) Sayfa 11'e gelin Üst Bilgi ve Alt Bilgi iletişim Kutusu açın öncekine bağlan kutusundaki seçimi kaldırın ek-a silin, ek-b yazın.
Aynı şekilde diğer durumlar içinde 2 ve 3'ü tekrarlayın.

 

[sametumur]

alicimri teşekkür ederim, tam istediğim gibi bi çözüm olmuş.