2 способа быстро перейти к определенному абзацу в документе Word

В этой статье мы с удовольствием покажем вам 2 способа быстро перейти к определенному абзацу в вашем документе Word.

В Word есть функция «Перейти», с помощью которой мы можем быстро перейти к определенной странице, разделу, закладке и т. д. Но очень жаль, что встроенная функция не может привести нас к назначенному абзацу одним щелчком мыши. При этом мы чувствуем себя обязанными представить вам некоторые обходные пути.

Способ 1: перейти к определенному абзацу в документе без номеров абзацев

1. В первую очередь, нажмите «Alt + F11», чтобы открыть редактор VBA в Word.
2. Затем нажмите «Обычный» в левой колонке.
3. Затем нажмите «Вставить» и выберите «Модуль» в раскрывающемся меню.
4. Теперь дважды щелкните новый модуль, чтобы открыть его. Вставьте туда следующие коды:

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. Нажмите «Выполнить».
6. Запустите макрос несколько раз, пока не появится следующее окно сообщения.

Затем нажмите «ОК». Причина, по которой мы нажимаем кнопку «Выполнить» несколько раз, заключается в том, чтобы удалить все пустые абзацы в документе. По умолчанию Word считает их обычным абзацем. Таким образом, окончательный результат может оказаться не тем абзацем, к которому мы хотим перейти.

7. Затем в следующем открытом поле введите число, обозначающее абзац, который вам нужно посетить.
8. И нажмите «ОК».

Вы увидите, что целевой абзац выделен.

Способ 2: перейти к определенному абзацу в документе с номерами абзацев

1. Во-первых, нажмите «Ctrl + A», чтобы выделить все тексты в документе.
2. Затем нажмите «Нумерация» на вкладке «Главная».
3. Затем выполните те же действия, что и в способе 1, чтобы установить и запустить макрос.
4. Только на этот раз замените макрос на ревущий:

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. Затем нажмите «Выполнить» или нажмите «F5».
6. В ящике открытом, введите номер абзаца после точки в текстовом поле.
7. Нажмите «ОК», чтобы продолжить.

Аналогичным образом, целевой абзац к этому моменту уже должен находиться в процессе выбора.

Ремонт поврежденных документов

Как только вы обнаружите, что ваш документ поврежден, вы не могли не испытать удачу в надежде, что он вернется в следующий раз, когда вы его откроете. Вместо этого вы должны воспользоваться временем, чтобы получить выдающийся инструмент для документ повреждения ремонт, ведь в процессе ремонта дорога каждая минута.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com