0
취소
투표
Word 문서에서 텍스트를 선택한 다음 Kutools 탭 아래의 북마크 삽입 아이콘을 클릭할 때 공백이 자동으로 밑줄로 바뀌지 않는 특별한 이유가 있습니까? 이는 Kutools가 즉시 구현할 수 있고 구현해야 하는 완전히 논리적이고 시간을 절약해 주는 기능처럼 보입니다. 나는 소프트웨어를 구입할 때 그러한 기능을 기대했을 것이며 이에 대한 다른 사람의 의견 및/또는 생각을 환영합니다.
안녕하세요, laxerlager 님,
나도 같은 문제/성가심을 가지고 있습니다. 따라서 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
적절한 참조를 추가하기만 하면 됩니다. 그것이 무엇인지 정확히 이해할 필요는 없습니다. 다음을 수행하십시오.
- VBA 편집기로 이동합니다(즉, ALT+F11을 누릅니다)[/*]빈 사용자 양식을 생성합니다(첨부된 스크린샷 참조. 왼쪽 창에서 마우스 오른쪽 버튼을 클릭하고 삽입을 선택한 다음 사용자 양식을 선택합니다.) [/*]메뉴 표시줄에서 도구를 클릭하세요[/*]참조[/*]를 클릭하세요.Microsoft Forms 2.0 개체 라이브러리까지 아래로 스크롤[/*]확인란이 선택되어 있는지 확인하세요[/*]확인[/*]을 클릭하세요.
- 페이지 :
- 1
이 게시물에 대한 답변이 없습니다.