İmi eklemek
Bu Word makrosu bir yer imi ekleyecektir:
Sub AddBookmark() ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub
Yer İşaretini Sil
Bu VBA makrosu bir yer işaretini siler:
Sub DeleteBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Sonra 'ActiveDocument.Bookmarks(Index:="easyexcel_net_01").Delete End If End Sub
Yer İşaretine Git
Bu basit makro bir yer işaretine gidecek:
Sub GoToBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Sonra 'aktif doküman Selection'da "easyexcel_net_01" adlı yer iminin olup olmadığını kontrol etmemiz gerekiyor.GoTo What:=wdGoToBookmark, Name:="easyexcel_net_01" End If End Sub
Yer İşaretini Değiştir
Bu makro, bir yer iminin içeriğini değiştirir:
Alt ModifyBookmarkContent() ' yer imi içeriğini değiştir ' daha karmaşık, çünkü yer imi aralığı içeriğini değiştirmek yer imini silecektir Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Sonra '"easyexcel_net_01" adlı yer iminin etkin olup olmadığını kontrol etmemiz gerekiyor doc 'Geçerli Yer İşareti aralığını tanımlayın ve metin ekleyin Set oRangeBKM = ActiveDocument.Bookmarks("easyexcel_net_01").Range oRangeBKM.Text = "easyexcel.net" 'ActiveDocument.Bookmarks'ı yeniden yapın. "easyexcel_net_01" ekleyin, oRangeBKM End If
Bu, bir yer imi değiştirme işlevidir:
Sub UpdateBookmarkContent(strBookMarkName As String, strNewText As String) ' Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists(strBookMarkName) eklemek için "kullanılabilir" yordamı Sonra '"easyexcel_net_01" adlı yer iminin aktif doc 'Identify'da olup olmadığını kontrol etmemiz gerekiyor geçerli Yer imi aralığı ve metin ekle Set oRangeBKM = ActiveDocument.Bookmarks(strBookMarkName).Range oRangeBKM.Text = strNewText 'Yer imi ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub
Yer imi adını ve yeni metni bağımsız değişken olarak ekleyerek işlevi çağırabilirsiniz:
Sub CallBookmarkFunction() UpdateBookmarkContent("easyexcel_net_01", "easyexcel.net") Çağrı End Sub