Word Belgenizdeki Geçerli Sayfayı Seçmenin 3 Hızlı Yolu

Bu yazımızda, Word belgenizde geçerli sayfayı seçmenin 3 hızlı yolunu sizlere sunmaktan heyecan duyuyoruz.

Zaman zaman, mevcut sayfayı seçip içeriğini kopyalamanız veya çıkarmanız gerekebilir. Normalde, imleci sayfanın başına yerleştirir ve sol fare tuşuna basılı tutarak tüm sayfayı seçeriz. Ancak bu yöntemin her zaman iyi sonuç vermediğini kabul etmelisiniz, çünkü hatalar meydana gelebilir. Bu işi yapmak çok zor olmasa da, daha hızlı yöntemler kullanarak zamandan tasarruf edebilirsiniz.

İşte 3 çözümümüz.

Yöntem 1: Tek Sayfalık Belge için Klavye Kısayolları

Belgede yalnızca bir sayfa olduğunda, yapmanız gereken, ekleme işaretçinizi belgenin içinde herhangi bir yere getirmek ve "Ctrl + A" tuşlarına basmaktır.

Yöntem 2: Çok Sayfalı Belge için Klavye Kısayolları

Şimdi çok sayfalı belgeden bahsetmişken, aşağıdaki adımları uygulayabilirsiniz:

1. Öncelikle, imleci hedef sayfanın başına konumlandırın.
2. Sonra "Shift"e basın.
3. Ardından, o sayfanın en altına gidin ve sayfanın sonuna tıklayın.

Yöntem 3: Word Makrosunu Çalıştır

1. Öncelikle hedef sayfaya tıklayın.
2. Ardından "Geliştirici" sekmesine tıklayın.
3. Daha sonra VBA editörünü açmak için “Visual Basic”e tıklayın. Veya bunu yapmak için "Alt + F11" tuşlarına basın.
4. Şimdi “Normal” projesine ve ardından “Ekle” sekmesine tıklayın.
5. Açılır menüden “Modül” öğesini seçin.
6. Ardından, kodlama alanını açmak için yeni eklenen modüle çift tıklayın.
7. Aşağıdaki kodları oraya yapıştırın:

Sub SelectCurrentPage()
  Dim lCurrentPageStart As Long
  Dim lCurrentPageEnd As Long
  Dim objPageRange As Range
  Dim nCurrentPageNumber As Integer
  Dim nAllPageNumber As Integer
 
  nCurrentPageNumber = Selection.Information(wdActiveEndPageNumber)
  nAllPageNumber = Selection.Information(wdNumberOfPagesInDocument)
  '  Get the start position of current page.
  lCurrentPageStart = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber).Start
 
  '  Get the end position of current page.
  If nCurrentPageNumber = nAllPageNumber Then
    lCurrentPageEnd = ActiveDocument.Content.End
  Else
    lCurrentPageEnd = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=nCurrentPageNumber + 1).Start
  End If
 
  '  Select current page.
  Set objPageRange = ActiveDocument.Range(Start:=lCurrentPageStart, End:=lCurrentPageEnd)
 
  objPageRange.Select
End Sub

8. Son olarak, "Çalıştır"a tıklayın veya "F5"e basın. O sayfadaki tüm metinler şimdi seçimde.

Word Belgelerini Kurtar

Word belgelerinizi bozuk bulmak ve sizi bilgilerinize erişemez hale getirmek çok acı verici olurdu. Elbette kimse sahip olmak istemez bozuk belge. Yine de beklenmedik bir durumla karşılaştığında geriye kalan tek seçenek, yerleşik veya üçüncü taraf bir araçla verileri geri almaktır.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk Excel hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com