ამ სტატიაში ჩვენ გვინდა მოგაწოდოთ ორი სწრაფი გზა, რათა ჯგუფურად წაშალოთ მრავალი სანიშნე თქვენს Word დოკუმენტში.
ჩვეულებრივ, თქვენ შეგიძლიათ დაამატოთ ან წაშალოთ ერთი სანიშნე Word დოკუმენტში ყოველგვარი დაბრკოლების გარეშე. თუმცა, როდესაც საქმე ეხება რამდენიმე სანიშნეს, შეიძლება იგრძნოთ, რომ ხელები შეკრულია.
საბედნიეროდ, Word-ში არის ძლიერი ინსტრუმენტი, რომელიც არის VBA რედაქტორი. ამიტომ, ჩვენ გამოვიყენებთ მაკროებს, რათა დაგეხმაროთ დოკუმენტში მრავალი სანიშნეების ჯგუფურად ამოღებაში.
მეთოდი 1: ჯგუფური წაშლა ყველა სანიშნე დოკუმენტში
- პირველ რიგში, გამოიძახეთ VBA რედაქტორი Word-ში 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. ერთად