Word құжатындағы белгілі бір абзацқа жылдам өтудің 2 жолы

Бұл жазбада біз сізге Word құжатындағы белгілі бір абзацқа тез өтудің 2 жолын көрсетуге қуаныштымыз.

Word бағдарламасында «Өту» функциясы бар, оның көмегімен біз белгілі бір бетке, бөлімге, бетбелгіге және т.б. жылдам өтуге болады. Бірақ кіріктірілген мүмкіндік бізді бір басу арқылы белгіленген абзацқа апара алмайтыны өкінішті. Осыған орай, біз сізге кейбір уақытша шешімдерді ұсынуға міндеттіміз.

1-әдіс: абзац нөмірлері жоқ құжаттағы белгілі бір абзацқа өтіңіз

1. Ең алдымен, Word бағдарламасындағы VBA редакторын іске қосу үшін «Alt+F11» пернелер тіркесімін басыңыз.
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. Келесі хабар терезесін алғанша макросты бірнеше рет іске қосыңыз.

Содан кейін «OK» түймесін басыңыз. «Іске қосу» түймесін бірнеше рет басудың себебі - құжаттағы барлық бос абзацтарды жою. Әдепкі бойынша, Word оларды қалыпты абзац ретінде қарастырады. Сондықтан түпкілікті нәтиже біз барғымыз келетін нақты абзац болмауы мүмкін.

7. Содан кейін келесі ашылған жолаққа кіру керек абзацты білдіретін санды енгізіңіз.
8. «OK» батырмасын басыңыз.

Мақсатты абзацтың таңдауда екенін көресіз.

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. Жалғастыру үшін «OK» батырмасын басыңыз.

Сол сияқты, мақсатты абзац қазір таңдалуда болуы керек.

Зақымдалған құжаттарды жөндеу

Құжатыңыздың бүлінгенін байқасаңыз, оны келесі рет ашқанда қайта оралады деп үміттене алмайсыз. Оның орнына, сіз ең жақсы құралды алу үшін уақытты жұмсауыңыз керек doc зақымдануы жөндеу, жөндеу процесінде әрбір минут есептеледі.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com