Is there a particular reason why spaces aren't automatically replaced with underscores when selecting text in a Word Document, and then clicking on the Insert Bookmark icon under the Kutools tab? This seems like an entirely logical, time-saving feature that Kutools can, and should, implement promptly. I would've expected such a feature when purchasing the software, and welcome any others' comments and/or thoughts on the same.<br /> <br /> <img src="https://www.extendoffice.com/index.php?option=com_easydiscuss&controller=attachment&task=download&tmpl=component&id=316" alt="Kutools_Insert_Bookmark_ScreenShot.png" />

yeni

Yer İşaretleri Özelliği Ekle

Kutools for Word

gevşek

Cuma, 14 Şubat 2020

5 Cevaplar

5.6K Ziyaret

geri al

Bir Word Belgesinde metin seçerken boşlukların otomatik olarak alt çizgi ile değiştirilmemesinin ve ardından Kutools sekmesi altındaki Yer İşareti Ekle simgesine tıklamanın özel bir nedeni var mı? Bu, Kutools'un derhal uygulayabileceği ve yapması gereken tamamen mantıklı, zaman kazandıran bir özellik gibi görünüyor. Yazılımı satın alırken böyle bir özellik beklerdim ve diğerlerinin de aynı konudaki yorumlarını ve/veya düşüncelerini memnuniyetle karşılardım.

efsane

3 yıl önce

#2077

geri al

Merhaba laxerlager,
Bende de aynı sorun/rahatsızlık var. Bu yüzden yer imini oluşturmak için Kutools kullanmak yerine aşağıdaki makroyu kullanıyorum. Çalışmamdan başka birinin faydalanması beni çok mutlu eder!
Makro kullanmayı biliyor musun?

Sub InsertNewBookmark()

    Dim MyData As DataObject

    Dim strClip As String

    Dim bkName As String

    

    If Selection.Type = wdSelectionNormal Then

     Selection.Copy

    End If

    Set MyData = New DataObject

    MyData.GetFromClipboard

    strClip = MyData.GetText

    strClip = Trim(strClip)

    strClip = Replace(strClip, "   ", " ")

    strClip = Replace(strClip, "  ", " ")

    strClip = Replace(strClip, " ", "_")

    bkName = InputBox("Insert new bookmark name.", "Hello there.", strClip)

 

    On Error GoTo Oops

If (StrPtr(bkName) = 0) Then

'    MsgBox "You pressed cancel or [X]."

    Exit Sub

       

ElseIf (bkName = "") Then

    MsgBox "You have to name the bookmark. Try again."

    Call InsertNewBookmark

    

Else

     ActiveDocument.Bookmarks.Add _

     Name:=bkName, Range:=Selection.Range

    Exit Sub

End If

Oops:

    MsgBox ("The bookmark could not be created. Remember to follow these guidelines :" & vbNewLine & vbNewLine & "• Names must begin with a letter of the alphabet." _

    & vbNewLine & "• Names can contain only letters, numbers, and the underscore." & vbNewLine & "• Names cannot contain spaces or punctuation marks." & vbNewLine _

    & vbNewLine & "Let's try it again. Ready?")

    Call InsertNewBookmark

    

End Sub

gevşek

3 yıl önce

#2078

geri al

Selam.

Bırakın makroyu, bir cevap bile alamayacağımı düşündüm! Çok teşekkürler.

Ne yazık ki, Makro benim için çalışmıyor. Metin seçip makroyu çalıştırırken, "Kod kesme modunda çalıştırılamıyor" VBA Hatası almaya devam ediyorum.

Herhangi bir düşünce veya düzeltme var mı?

Tekrar teşekkürler!