Այս հոդվածում մենք ցանկանում ենք ձեզ տրամադրել երկու արագ եղանակ՝ ձեր Word փաստաթղթում մի քանի էջանիշները խմբաքանակով ջնջելու համար:
Սովորաբար դուք կարող եք ավելացնել կամ ջնջել մեկ էջանիշ Word փաստաթղթում առանց որևէ խոչընդոտի: Այնուամենայնիվ, երբ խոսքը վերաբերում է բազմաթիվ էջանիշներին, դուք կարող եք զգալ, որ ձեր ձեռքերը կապված են:
Բարեբախտաբար, Word-ում կա հզոր գործիք, որը VBA խմբագիրն է: Հետևաբար, մենք կօգտագործենք մակրոներ, որոնք կօգնեն ձեզ խմբաքանակով հեռացնել բազմաթիվ էջանիշներ փաստաթղթում:
Մեթոդ 1. խմբաքանակով ջնջել բոլոր էջանիշները փաստաթղթում
- Նախ և առաջ, Word-ում գործարկեք VBA խմբագրիչը՝ սեղմելով «Alt+F11»:
- Հաջորդը ձախ «Նախագիծ» վահանակի վրա կտտացրեք «Նորմալ»:
- Այնուհետև կտտացրեք «Տեղադրեք» ներդիրը և ընտրեք «Մոդուլ» իր ընտրացանկում:
- Կրկնակի սեղմեք մոդուլը բացելու համար:
- Այժմ այնտեղ տեղադրեք հետևյալ կոդերը.
Sub DeleteAllBookmarksInDoc()
Dim objBookmark As Bookmark
Dim nBookmark As Integer
Dim strButtonValue As String
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nBookmark = objDoc.Bookmarks.Count
If nBookmark > 0 Then
strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
If strButtonValue = vbYes Then
For Each objBookmark In objDoc.Bookmarks
objBookmark.Delete
Next objBookmark
MsgBox ("All bookmarks in this document have been deleted.")
Else
Exit Sub
End If
End If
Application.ScreenUpdating = True
End Sub
- Դրանից հետո կտտացրեք «Գործարկել» կոճակին:
- Հաջորդը դուք կստանաք հարցման տուփ: Եվ դուք կարող եք տեսնել ընթացիկ փաստաթղթում էջանիշների ընդհանուր թիվը: Սեղմեք «Այո»՝ բոլորը ջնջելու համար, կամ «Ոչ»՝ մակրոյից դուրս գալու համար:
- Եթե ընտրեք «Այո», դուք կստանաք հաղորդագրություն, ինչպիսին է ստորև.
Մեթոդ 2. Խմբաքանակով ջնջել բոլոր էջանիշները ընտրվածում
Ճիշտ է, կան նաև դեպքեր, երբ դուք պետք է հեռացնեք մի քանի էջանիշեր, բայց որոշները անփոփոխ պահեք: Նմանապես, մենք կգործարկենք մակրո ընտրության վրա՝ աշխատանքն ավարտելու համար:
- Սկսելու համար կրկնեք վերը նշված քայլերը՝ մակրո տեղադրելու և գործարկելու համար։
- Հիշեք, որ մակրո-ն փոխարինեք այսով.
Sub DeleteAllBookmarksInSelection()
Dim objBookmark As Bookmark
Dim nBookmark As Integer
Dim strButtonValue As String
Application.ScreenUpdating = False
nBookmark = Selection.Bookmarks.Count
If nBookmark > 0 Then
strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
If strButtonValue = vbYes Then
For Each objBookmark In Selection.Bookmarks
objBookmark.Delete
Next objBookmark
MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
Else
Exit Sub
End If
End If
Application.ScreenUpdating = True
End Sub
- Նախքան մակրո գործարկելը, դուք պետք է ընտրություն կատարեք մի շարք բովանդակության վրա:
- Իսկ կոդերի կատարման գործընթացում դուք կստանաք նույն 2 հաղորդագրությունների տուփերը, որոնք ներկայացված են 1-ին մեթոդով:
Արդյունքն այն է, որ ընտրվածից միայն էջանիշները կհեռացվեն:
Պատրաստվեք փաստաթղթերի կոռուպցիային
Տվյալների կորուստը ցանկացած ժամանակ կարող է պատահել ցանկացածի հետ: Եվ դրա անկանխատեսելիությունը ստիպում է մեզ հնարավորություն ընձեռել չբախվելու վատ բախտին: Խոսելով թեմայի մասին վերանորոգման docx, դուք երբեք չեք կարող բաց թողնել նախապես արդյունավետ վերանորոգման գործիք ընտրելը:
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls վերանորոգում և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com