3 učinkovita načina za pregledavanje tekstualnog okvira u vašem Word dokumentu

Podijeli sada:

U ovom članku sa zadovoljstvom vam možemo pokazati 3 učinkovita načina za pregledavanje tekstnog okvira u vašem Word dokumentu.

U Wordu postoji naredba “Select Browse Object” koja vam omogućuje da pregledavate samo objekte koje ste odabrali. Na primjer, možete odabrati pregledavanje po tablici ili stranici. Nažalost, ne postoji ugrađena funkcija za pregledavanje po tekstnom okviru. Stoga ćemo vam ponuditi 3 načina da to učinite.Pregledajte po tekstualnom okviru u svom Word dokumentu

Metoda 1: Koristite tipku "Tab".

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

Usput, na ovaj način ćete također pronaći oblike i slike u dokumentu.

Metoda 2: Pokrenite makronaredbu za skok iz jednog tekstnog okvira u drugi

  1. Prvo i najvažnije, pritisnite "Alt + F11" da biste pokrenuli VBA editor u Wordu.
  2. Zatim kliknite "Normalno".
  3. Zatim kliknite "Umetni" i na padajućem izborniku odaberite "Modul".Kliknite "Normalno"->Kliknite "Umetni"->Kliknite "Modul"
  4. Otvorite novi modul duplim 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 gumb "Pokreni" na traci izbornika ili pritisnite "F5" za izvršenje kodova.Zalijepite kodove->Kliknite "Pokreni"

Nakon što pokrenete makro, pojavit će se prozor s porukom, kao što je prikazano ispod:Kliknite “Ne” za skok na željeni tekstualni okvir

Okvir prikazuje sadržaj u trenutno odabranom tekstualnom okviru. Možete kliknuti "Da" da biste se zaustavili na njemu ako je to željeni tekstni okvir. U suprotnom, kliknite "Ne" za prelazak na sljedeći tekstni okvir.

Metoda 3: Pronađite određeni tekstni okvir

Ako postavite naslov za tekstualni okvir u dokumentu, možete ga koristiti u kombinaciji s makronaredbom ispod da biste ga odmah locirali.

  1. Prije svega, pogledajte korake u metodi 2 za instaliranje i pokretanje makronaredbe.
  2. Zatim ne zaboravite zamijeniti makronaredbu 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 tekstnog okvira koji želite pronaći i kliknite "U redu" za nastavak. Ciljani tekstni okvir bit će odabran.Unesite naslov tekstualnog okvira->Kliknite "U redu"

Nosite se s gubitkom podataka

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

Uvod za autora:

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

Podijeli sada:

Komentari su zatvoreni.