2 načina da brzo pređete na određeni paragraf u vašem Word dokumentu

U ovoj strost, sa zadovoljstvom vam možemo pokazati 2 načina da brzo pređete na određeni pasus u vašem Word dokumentu.

Postoji funkcija „Idi na“ u Wordu, pomoću koje možemo brzo skočiti na određenu stranicu, odjeljak, oznaku itd. Ali velika je šteta što nas ugrađena funkcija ne može jednim klikom odvesti do određenog paragrafa. Imajući to u vidu, osjećamo obavezu da vam predstavimo neka rješenja.

Metoda 1: Idite na određeni paragraf u dokumentu bez brojeva paragrafa

1. Prvo i osnovnoost, pritisnite “Alt+ F11” da biste pozvali VBA editor u Wordu.
2. Zatim kliknite na "Normalno" u lijevoj koloni.
3. Zatim kliknite na “Insert” i odaberite “Module” na njegovom padajućem izborniku.
4. Sada dvaput kliknite na novi modul da biste ga otvorili. Tamo zalijepite sljedeće kodove:

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. Kliknite na “Run”.
6. Pokrenite makro nekoliko puta dok ne dobijete sljedeću poruku.

Zatim kliknite na “OK”. Razlog zašto kliknemo na dugme „Pokreni“ više puta je uklanjanje svih praznih pasusa u dokumentu. Word ih podrazumevano smatra normalnim paragrafom. Dakle, konačni rezultat možda neće biti tačan paragraf na koji želimo ići.

7. Zatim u sljedećem otvorenom polju unesite broj koji predstavlja paragraf koji trebate posjetiti.
8. I kliknite na “OK”.

Vidjet ćete target paragraf je u odabiru.

Metoda 2: Idite na određeni paragraf u dokumentu sa brojevima pasusa

1. Prvo pritisnite “Ctrl+ A” da odaberete sve tekstove u dokumentu.
2. Zatim kliknite na "Numeriranje" na kartici "Početna".
3. Zatim slijedite iste korake u metodi 1 da biste instalirali i pokrenuli makro.
4. Samo ovaj put zamenite makro sa sledećim:

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. Zatim kliknite na “Run” ili pritisnite “F5”.
6. U kutiji otvorenoj, unesite broj pasusa koji slijedi s tačkom u okviru za tekst.
7. Kliknite na “OK” da nastavite.

Slično tome, target paragraf će biti u selekciji do sada.

Popravite oštećene dokumente

Jednom kada otkrijete da je vaš dokument oštećen, niste mogli ne pritisnuti svoju sreću u nadi da će se vratiti sljedeći put kada ga otvorite. Umjesto toga, morate iskoristiti vrijeme da nabavite vrhunski alat doc oštećenja popravka, jer je svaka minuta bitna u procesu popravke.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com