3 efikasna načina pregledavanja po tekstualnom polju u vašem Word dokumentu

Podijeli sada:

U ovom članku drago nam je da vam pokažemo 3 efikasna načina za pregledavanje po tekstualnom polju u vašem Word dokumentu.

U Wordu postoji naredba „Odaberite objekt za pretragu“ koja vam omogućava da pregledate samo objekte koje ste odabrali. Na primjer, možete odabrati da pretražujete po tabeli ili stranici. Nažalost, ne postoji ugrađena funkcija za pretraživanje po tekstualnom okviru. Stoga ćemo vam ponuditi 3 načina da to učinite.Pretražujte po tekstualnom polju u vašem Word dokumentu

Metoda 1: Koristite taster „Tab“.

  1. Prvo, pritisnite "Ctrl + Home" da biste se vratili na početak dokumenta.
  2. Zatim pronađite i kliknite na prvi okvir za tekst.
  3. Zatim pritisnite “Tab” da skočite na sljedeći okvir za tekst.

Inače, na ovaj način ćete pronaći i oblike i slike u dokumentu.

Metoda 2: Pokrenite makro za prelazak s jednog okvira za tekst u drugi

  1. Prvo i najvažnije, pritisnite "Alt+F11" da biste pokrenuli VBA editor u Wordu.
  2. Zatim kliknite na “Normalno”.
  3. Zatim kliknite na “Insert” i odaberite “Module” na njegovom padajućem izborniku.Kliknite "Normalno"->Kliknite "Umetni"->Kliknite "Modul"
  4. Otvorite novi modul dvostrukim klikom.
  5. Sada u području kodiranja zalijepite sljedeće kodove:
Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub
  1. Kliknite na dugme “Run” na traci menija ili pritisnite “F5” da izvršite kodove.Zalijepi kodove->Klikni na "Pokreni"

Nakon što pokrenete makro, pojavit će se prozor s porukom, kao što je prikazano ispod:Kliknite na „Ne“ da biste prešli na željeni okvir za tekst

U okviru se prikazuje sadržaj u trenutno odabranom tekstualnom polju. Možete kliknuti na “Da” da se zaustavite na njemu ako je to vaš željeni okvir za tekst. U suprotnom, kliknite na “Ne” da biste prešli na sljedeći okvir za tekst.

Metoda 3: Pronađite određeni okvir za tekst

Ako postavite naslov za tekstualni okvir u dokumentu, možete ga koristiti u kombinaciji sa sljedećim makroom da biste ga odmah locirali.

  1. Prije svega, pogledajte korake u metodi 2 da biste instalirali i pokrenuli makro.
  2. Zatim ne zaboravite da zamenite makro sa ovim:
Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub
  1. Zatim u polje za unos koje se pojavi unesite naslov tekstualnog polja koje želite pronaći i kliknite na "U redu" da biste nastavili. Ciljano tekstualno polje će biti odabrano.Unesite naslov okvira za tekst->Kliknite "OK"

Nosite se s gubitkom podataka

S obzirom na činjenicu da je Word jedan od najčešće korištenih programa, potrebno je znati neke trikove kada Word prestane reagirati. Za važne... korumpirani doc, vaš jedini izbor je da ga povratite. A da biste to učinili, morate pažljivo odabrati alat treće strane kojem možete vjerovati.

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 corrupt xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.