Šiame straipsnyje džiaugiamės galėdami parodyti 3 veiksmingus būdus, kaip naršyti pagal teksto laukelį „Word“ dokumente.
„Word“ yra komanda „Pasirinkti naršyti objektą“, leidžiančią naršyti tik pasirinktus objektus. Pavyzdžiui, galite pasirinkti naršyti pagal lentelę arba puslapį. Deja, nėra integruotos naršymo pagal teksto laukelį funkcijos. Todėl mes jums pateiksime 3 būdus, kaip tai padaryti.
1 būdas: naudokite „Tab“ klavišą
- Pirmiausia paspauskite „Ctrl“ + „Home“, kad grįžtumėte į dokumento pradžią.
- Tada suraskite ir spustelėkite pirmąjį teksto laukelį.
- Tada paspauskite „Tab“, kad pereitumėte į kitą teksto laukelį.
Beje, tokiu būdu dokumente taip pat rasite figūrų ir vaizdų.
2 būdas: paleiskite makrokomandą, kad pereitumėte iš vieno teksto laukelio į kitą
- Visų pirma, paspauskite „Alt + F11“, kad paleistumėte VBA redaktorių programoje „Word“.
- Tada spustelėkite „Normalus“.
- Tada spustelėkite „Įterpti“ ir išskleidžiamajame meniu pasirinkite „Modulis“.
- Atidarykite naują modulį dukart spustelėdami.
- Dabar kodavimo srityje įklijuokite šiuos kodus:
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
- Spustelėkite mygtuką „Vykdyti“ meniu juostoje arba paspauskite „F5“, kad paleistumėte kodus.
Kai paleisite makrokomandą, pasirodys iššokantis pranešimų langas, panašus į toliau pateiktą:
Laukelyje rodomas dabartinio pasirinkto teksto laukelio turinys. Galite spustelėti „Taip“, kad sustabdytumėte jį, jei tai jūsų norimas teksto laukelis. Kitu atveju spustelėkite „Ne“, kad pereitumėte į kitą teksto laukelį.
3 būdas: raskite konkretų teksto laukelį
Jei dokumente nustatote teksto laukelio pavadinimą, galite naudoti jį kartu su toliau pateikta makrokomandą, kad nedelsdami jį rastumėte.
- Pirmiausia, norėdami įdiegti ir paleisti makrokomandą, žr. 2 metodo veiksmus.
- Tada nepamirškite pakeisti makrokomandos šia:
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
- Toliau atsidariusiame įvesties lauke įveskite norimo teksto lauko pavadinimą ir spustelėkite „Gerai“, kad tęstumėte. Pasirinktą teksto laukelį rasite pasirinkimų sąraše.
Susidoroti su duomenų praradimu
Atsižvelgiant į tai, kad „Word“ yra viena iš dažniausiai naudojamų programų, būtina žinoti keletą gudrybių, kai „Word“ nustoja reaguoti. Svarbiausiems... korumpuotas doc, jūsų vienintelis pasirinkimas yra jį atkurti. Ir norėdami tai padaryti, turite atidžiai pasirinkti trečiosios šalies įrankį, kuriuo galite pasitikėti.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com



