Word Belgenizdeki Birden Fazla Yer İmini Toplu Silmenin 2 Hızlı Yolu

Bu makalede, Word belgenizdeki birden çok yer işaretini toplu olarak silmenin iki hızlı yolunu sağlamak istiyoruz.

Normalde herhangi bir engel olmadan Word belgesine tek bir yer imi ekleyebilir veya silebilirsiniz. Ancak, birden fazla yer imi söz konusu olduğunda, ellerinizin bağlı olduğunu hissedebilirsiniz.

Neyse ki, Word'de VBA düzenleyicisi olan güçlü bir araç var. Bu nedenle, bir belgedeki birden çok yer işaretini toplu olarak kaldırmanıza yardımcı olması için makrolar kullanacağız.

Yöntem 1: Bir Belgedeki Tüm Yer İmlerini Toplu Silme

1. Öncelikle, "Alt + F11" tuşlarına basarak Word'de VBA düzenleyicisini açın.
2. Soldaki “Proje” panelinde, “Normal” üzerine tıklayın.
3. Ardından “Ekle” sekmesine tıklayın ve menüsünden “Modül” seçeneğini seçin.
4. Modülü açmak için çift tıklayın.
5. Şimdi oraya aşağıdaki kodları yapıştırın:

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

6. Ardından “Çalıştır” düğmesine tıklayın.
7. Ardından bir soru kutusu alacaksınız. Ve mevcut belgedeki toplam yer imlerinin sayısını görebilirsiniz. Hepsini silmek için “Evet”e, makrodan çıkmak için “Hayır”a tıklayın.
8. “Evet” seçeneğini seçerseniz, aşağıdaki gibi bir mesaj alacaksınız:

Yöntem 2: Bir Seçimdeki Tüm Yer İşaretlerini Toplu Olarak Sil

Kuşkusuz, birkaç yer imini kaldırmanız, ancak bazılarını olduğu gibi tutmanız gereken zamanlar da vardır. Benzer şekilde, işi bitirmek için bir seçim üzerinde bir makro çalıştıracağız.

1. Öncelikle, makroyu yüklemek ve çalıştırmak için yukarıdaki adımları tekrarlayın.
2. Makroyu bununla değiştirmeyi unutmayın:

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

3. Makroyu çalıştırmadan önce bir dizi içerik üzerinden seçim yapmalısınız.
4. Ve kodları yürütme sürecinde, yöntem 2'de gösterilen aynı 1 mesaj kutusunu alacaksınız.

Sonuç olarak, yalnızca kaldırılan seçimdeki yer imleriniz olacaktır.

Belge Bozulmasına Hazır Olun

Veri kaybı her an herkesin başına gelebilir. Ve öngörülemezliği, kötü şansla karşılaşmamamız için bir şans vermemizi sağlıyor. Konu hakkında konuşurken onarım docx, önceden verimli bir onarım aracı seçmeyi asla kaçıramazsınız.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls onarımı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com