Word Belgenizdeki Belirli Bir Paragrafa Hızlıca Gitmenin 2 Yolu

Bu p'deost, size Word belgenizdeki belirli bir paragrafa hızlı bir şekilde gitmenin 2 yolunu göstermekten mutluluk duyuyoruz.

Word'de belirli bir sayfaya, bölüme, yer imine vb. Bununla birlikte, size bazı geçici çözümler sunmak zorunda hissediyoruz.

Yöntem 1: Belgede Paragraf Numaraları Olmadan Belirli Bir Paragrafa Git

1. İlk ve önost, Word'de VBA düzenleyicisini çağırmak için "Alt + F11" tuşlarına basın.
2. Ardından sol sütundaki "Normal"i tıklayın.
3. Daha sonra “Ekle”ye tıklayın ve açılır menüsünden “Modül”ü seçin.
4. Şimdi açmak için yeni modüle çift tıklayın. Aşağıdaki kodları oraya yapıştırın:

Sub RemoveBlankParagraphs()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^p^p"
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
  If Selection.Find.Found = False Then
    MsgBox ("There is no blank paragraph in the document.")
    Call GoToASpecificParagraph
  End If
End Sub

Sub GoToASpecificParagraph()
  Dim strParaNum As String
  Dim objDoc As Document
  Dim nParaNum As Integer
 
  Set objDoc = ActiveDocument
  strParaNum = InputBox("Enter a number representing the paragraph you need to go to: ", "Paragraph Number")
 
  nParaNum = objDoc.ComputeStatistics(wdStatisticParagraphs)
 
  If strParaNum <= "0" Or strParaNum > nParaNum Then
    MsgBox ("This is not a valid number. Please enter a number between 1 and " & nParaNum & ".")
  End If
 
  objDoc.Paragraphs(strParaNum).Range.Select
 
End Sub

5. Çalıştıra tıkla".
6. Aşağıdaki ileti kutusunu alana kadar makroyu birkaç kez çalıştırın.

Ardından “Tamam”a tıklayın. “Çalıştır” düğmesine birden çok kez basmamızın nedeni, belgedeki tüm boş paragrafları kaldırmaktır. Varsayılan olarak, Word bunları normal paragraf olarak kabul eder. Dolayısıyla nihai sonuç, tam olarak gitmek istediğimiz paragraf olmayabilir.

7. Sonra bir sonraki açık kutuya, ziyaret etmeniz gereken paragrafı temsil eden bir sayı girin.
8. Ve "Tamam" ı tıklayın.

Göreceksin tarparagraf al seçimde.

Yöntem 2: Paragraf Numaralı Bir Belgede Belirli Bir Paragrafa Git

1. İlk olarak, belgedeki tüm metinleri seçmek için “Ctrl+A” tuşlarına basın.
2. Ardından, "Giriş" sekmesi altındaki "Numaralandırma" yı tıklayın.
3. Ardından, bir makro yüklemek ve çalıştırmak için yöntem 1'deki aynı adımları izleyin.
4. Ancak bu sefer makroyu aşağıdaki ile değiştirin:

Sub GoTOParaInDocWithParaNum()
  Dim strParaNum As String
  Dim objPara As Paragraph
  Dim objDoc As Document
  Dim nParaNum As Integer
 
  Set objDoc = ActiveDocument
 
  strParaNum = InputBox("Enter a paragraph number following with a period:", "Paragraph Number")
 
  nParaNum = objDoc.ComputeStatistics(wdStatisticParagraphs)
 
  If strParaNum <= "0" Or strParaNum > nParaNum Then
    MsgBox ("This is not a valid number. Please enter a number between 1 and " & nParaNum & ".")
  End If
 
  For Each objPara In objDoc.Paragraphs
    If strParaNum = objPara.Range.ListFormat.ListString Then
      objPara.Range.Select
    End If
  Next
End Sub

5. Sonra "Çalıştır"a tıklayın veya "F5"e basın.
6. Açılan kutuda, nokta ile devam eden bir paragraf numarası girin metin kutusuna.
7. Devam etmek için “Tamam”a tıklayın.

Benzer şekilde, target paragrafı şimdiye kadar seçimde olacaktır.

Hasarlı Belgeleri Onarın

Belgenizi bozuk bulduğunuzda, bir sonraki açışınızda geri geleceği umuduyla şansınızı zorlamazsınız. Bunun yerine, üstün bir araç elde etmek için zaman ayırmalısınız. doktor hasarı onarım, onarım sürecindeki her dakika önemlidir.

Yazar Tanıtımı:

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