Այս հոդվածում մենք ուրախ ենք ցույց տալ ձեր Word փաստաթղթում տեքստային տուփով թերթելու 3 արդյունավետ եղանակ:
Word- ում կա «Ընտրել դիտել օբյեկտը» հրամանը, որը հնարավորություն է տալիս թերթել միայն ձեր ընտրած օբյեկտները: Օրինակ, կարող եք ընտրել թերթել ըստ սեղանի կամ էջի: Unfortunatelyավոք, տեքստային տուփով զննելու ներկառուցված գործառույթ գոյություն չունի: Հետեւաբար, մենք ձեզ կտրամադրենք դա իրականացնելու 3 եղանակ:
Մեթոդ 1. Օգտագործեք «Տաբ» բանալին
- Նախ, սեղմեք «Ctrl+Home»՝ փաստաթղթի սկիզբ անցնելու համար։
- Դրանից հետո գտեք և կտտացրեք առաջին տեքստի տուփին:
- Հաջորդը սեղմեք «Tab» ՝ հաջորդ տեքստի տուփ անցնելու համար:
Ի դեպ, այս ճանապարհը ձեզ կգտնի նաև փաստաթղթում առկա ձևեր և պատկերներ:
Մեթոդ 2. Գործարկել մակրոը ՝ մեկ տեքստային տուփից մյուսը անցնելու համար
- Նախևառաջ, սեղմեք «Alt+F11»՝ Word-ում VBA խմբագրիչը գործարկելու համար։
- Հաջորդը կտտացրեք «Նորմալ» կետին:
- Դրանից հետո կտտացրեք «Տեղադրել» -ին և իր բացվող ընտրացանկում ընտրել «Մոդուլ»:
- Կրկնակի սեղմումով բացեք նոր մոդուլը:
- Այժմ կոդավորման տարածքում տեղադրեք հետևյալ կոդերը.
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
- Կոդերը կատարելու համար կտտացրեք ընտրացանկի «Գործարկել» կոճակին կամ սեղմեք «F5»:
Մակրոն գործարկելուց հետո կհայտնվի հաղորդագրության պատուհան, ինչպես ստորև նշվածը.
Տուփի վրա ցույց է տրվում բովանդակությունը ընթացիկ ընտրված տեքստի վանդակում: Կարող եք սեղմել «Այո» ՝ դրա վրա կանգ առնելու համար, եթե դա ցանկալի տեքստի տուփ է: Հակառակ դեպքում կտտացրեք «Ոչ» -ին `հաջորդ տեքստի տուփին անցնելու համար:
Մեթոդ 3. Գտեք հատուկ տեքստային տուփ
Եթե փաստաթղթում տեքստի տուփի համար վերնագիր եք դրել, ապա այն անմիջապես գտնելու համար կարող եք օգտագործել այն ստորև նշված մակրոի հետ համատեղ:
- Նախեւառաջ, դիմեք 2-րդ մեթոդի քայլերին `մակրո տեղադրելու և գործարկելու համար:
- Հետո հիշեք, որ մակրո-ն փոխարինեք այսով.
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
- Հաջորդը, բացվող մուտքագրման դաշտում, մուտքագրեք գտնվող տեքստային դաշտի վերնագիրը և սեղմեք «Լավ»՝ շարունակելու համար: Ընտրության մեջ կգտնեք նպատակային տեքստային դաշտը:
Հաղթահարել տվյալների կորուստը
Հաշվի առնելով այն փաստը, որ Word-ը ամենաշատ օգտագործվող ծրագրերից մեկն է, անհրաժեշտ է իմանալ որոշ հնարքներ, երբ Word-ը դադարում է արձագանքել։ Կարևորի համար կոռումպացված դոկտ, ձեր միակ ընտրությունն այն վերականգնելն է: Եվ դա անելու համար հարկավոր է զգուշորեն ընտրել երրորդ կողմի գործիք, որին կարող եք վստահել:
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված xlsx և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com