Wordde kaydettiğin yerden devam etme

[edward norton]

Merhaba,

100 sayfalık bir word belgesinde, açılırken 50.sayfadan başlamasını nasıl sağlayabilirim? 50. sayfadayken kaydediyorum ama açılırken 1.sayfadan başlıyor.

Teşekkürler.

 

[halit3]

Dosyanın ThisDocument kod bölümüne aşağıdaki kodu ekleyiniz. tabi bu işlemin gerçekleşmesi için makro güvenliğü düşük veya orta olmalı

Private Sub Document_Open()
Selection.GoTo Name:="50"
End Sub

veya

Private Sub Document_Open()
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=50'sayfa sırası
End Sub

 

[edward norton]

Teşekkür ederim Halit Bey.

 

[levo26]

Dosyanın ThisDocument kod bölümüne aşağıdaki kodu ekleyiniz. tabi bu işlemin gerçekleşmesi için makro güvenliğü düşük veya orta olmalı



veya

Merhaba,

53 sayfalık Word dökümanım var. Kodların her ikisinide denedim ama kaydettiğim yerden açılmadı. Kod içindeki 50'yi 53 olarak değiştirdim yine olmadı.

 

[suatbayhan]

Merhaba sayın levo26,
Module bölümüne değil, "ThisDocument " bölümüne kodları yazarsanız olur.
Selamlar...

 

[levo26]

Merhaba sayın levo26,
Module bölümüne değil, "ThisDocument " bölümüne kodları yazarsanız olur.
Selamlar...

Yazdığım yer doğru.

Her ay aylık olarak raporladığım 50-60 sayfa arasında bir dosyam var. Bu dosya içindeki tabloları rakamsal olarak güncelleyip sunumunu yapıyorum. Örneğin Ağustos-2010 raporunu farklı kaydet Eylül-2010 yapıyorum ve başlıyorum içindeki tabloları revize etmeye. 20. sayfaya geldiğinde kayded yapıp tekrar açtığımda 20. sayfada açılmalı.
Bu arada 20. sonra 53.e kadar diğer sayfalar dolu. Yani en son boş sahifeye gitmeyecek. Böyle bir koda ihtiyacım var.

 

[halit3]

Merhaba,

53 sayfalık Word dökümanım var. Kodların her ikisinide denedim ama kaydettiğim yerden açılmadı. Kod içindeki 50'yi 53 olarak değiştirdim yine olmadı.

ekli dosyaya bir bakınız.

 

[leumruk]

Merhaba,
Aiağıdaki kodları Thisdocument bölümüne kopyalayın.
NOT: Wordden çıkarken hangi sayfada iseniz açılışta o sayfa gelir.
Kodların içinde otomatik kaydet satırı var isterseniz onu iptal edebilirsiniz; o satırı iptal ederseniz çıkışta çıkan kaydet sorgusuna evet demeniz gerekir.

Private Sub Document_Close()
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="kayit_sayfasi"
        .DefaultSorting = wdSortByLocation
        .ShowHidden = False
    End With
  [COLOR="Navy"]ActiveDocument.Save[/COLOR]
End Sub
Private Sub Document_Open()
Selection.GoTo What:=wdGoToBookmark, Name:="kayit_sayfasi"
End Sub

 

[levo26]

Arkadaşlar;

Sayın halit3;

Verdiğiniz örnek üzerinden hareketle test ettim nerede kaydedersem kaydedeyim 50. sayfada açıyor. Ekli örnekte 2. sayfada renklendirdim kaydettim maalesef olmadı.

Sayın Leumruk;

Kodlarınız tam istediğim gibi teşekkürler.