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.
Metoda 1: Koristite tipku "Tab".
- Prvo, pritisnite "Ctrl + Home" da biste se vratili na početak dokumenta.
- Zatim pronađite i kliknite na prvi tekstualni okvir.
- 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
- Prvo i najvažnije, pritisnite "Alt + F11" da biste pokrenuli VBA editor u Wordu.
- Zatim kliknite "Normalno".
- Zatim kliknite "Umetni" i na padajućem izborniku odaberite "Modul".
- Otvorite novi modul duplim 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 gumb "Pokreni" na traci izbornika ili pritisnite "F5" za izvršenje kodova.
Nakon što pokrenete makro, pojavit će se prozor s porukom, kao što je prikazano ispod:
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.
- Prije svega, pogledajte korake u metodi 2 za instaliranje i pokretanje makronaredbe.
- 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
- 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.
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



