0
復原
投票
在 Word 文檔中選擇文本，然後單擊 Kutools 選項卡下的插入書籤圖標時，空格不會自動替換為下劃線是否有特殊原因？ 這似乎是一個完全合乎邏輯、省時的功能，Kutools 可以而且應該迅速實施。 在購買該軟件時，我會期待這樣的功能，並歡迎任何其他人對此發表評論和/或想法。
你好拉克塞爾拉格，
我有同樣的問題/煩惱。 因此，我沒有使用 Kutools 創建書籤，而是使用以下宏。 如果其他人能從我的工作中受益，我會非常高興！
你知道如何使用宏嗎？
我有同樣的問題/煩惱。 因此，我沒有使用 Kutools 創建書籤，而是使用以下宏。 如果其他人能從我的工作中受益，我會非常高興！
你知道如何使用宏嗎？
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
- 頁：
- 1
有沒有為這個職位尚未作出回复。