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.
Metoda 1: Koristite taster „Tab“.
- Prvo, pritisnite "Ctrl + Home" da biste se vratili na početak dokumenta.
- Zatim pronađite i kliknite na prvi okvir za tekst.
- 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
- Prvo i najvažnije, pritisnite "Alt+F11" da biste pokrenuli VBA editor u Wordu.
- Zatim kliknite na “Normalno”.
- Zatim kliknite na “Insert” i odaberite “Module” na njegovom padajućem izborniku.
- Otvorite novi modul dvostrukim klikom.
- 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
- Kliknite na dugme “Run” na traci menija ili pritisnite “F5” da izvršite kodove.
Nakon što pokrenete makro, pojavit će se prozor s porukom, kao što je prikazano ispod:
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.
- Prije svega, pogledajte korake u metodi 2 da biste instalirali i pokrenuli makro.
- 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
- 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.
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



