Thứ sáu, tháng hai 14 2020
  5 Trả lời
  5.5 nghìn lượt truy cập
0
Bình chọn
Undo
Có lý do cụ thể nào khiến khoảng trắng không được tự động thay thế bằng dấu gạch dưới khi chọn văn bản trong Tài liệu Word, sau đó nhấp vào biểu tượng Chèn Dấu trang trong tab Kutools không? Đây có vẻ như là một tính năng hoàn toàn hợp lý, tiết kiệm thời gian mà Kutools có thể và nên triển khai kịp thời. Tôi đã mong đợi một tính năng như vậy khi mua phần mềm và hoan nghênh mọi nhận xét và / hoặc suy nghĩ của người khác về vấn đề tương tự.

Kutools_Insert_Bookmark_ScreenShot.png
năm 3 trước
·
#2077
0
Bình chọn
Undo
Xin chào laxerlager,
Tôi có cùng một vấn đề / khó chịu. Vì vậy, thay vì sử dụng Kutools để tạo dấu trang, tôi sử dụng macro sau. Tôi sẽ rất hạnh phúc nếu ai đó khác có thể được hưởng lợi từ công việc của tôi! 
Bạn biết cách sử dụng macro?

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
năm 3 trước
·
#2078
0
Bình chọn
Undo
Hey ở đó.

Tôi đã nghĩ rằng mình sẽ không bao giờ nhận được câu trả lời, chứ đừng nói đến một câu trả lời với Macro! Cám ơn rất nhiều.

Thật không may, Macro không hoạt động đối với tôi. Khi chọn văn bản và chạy macro, tôi tiếp tục nhận được Lỗi VBA "Không thể thực thi mã ở chế độ ngắt".

Bất kỳ suy nghĩ hoặc sửa chữa?

Cảm ơn một lần nữa!
năm 3 trước
·
#2079
0
Bình chọn
Undo
quên đề cập rằng đôi khi tôi cũng gặp lỗi "Lỗi biên dịch: Loại do người dùng xác định không được xác định"
năm 3 trước
·
#2080
0
Bình chọn
Undo
Ồ, tất cả các chữ cái và chữ số đó không được phép có ở đó. Hãy thử đặt lại ảnh chụp màn hình đó.
Tệp đính kèm (1)
năm 3 trước
·
#2081
0
Bình chọn
Undo
Bạn chỉ cần thêm tài liệu tham khảo thích hợp. Không cần phải hiểu chính xác nó là gì, chỉ cần làm như sau: 
  1. Đi tới trình chỉnh sửa VBA (nghĩa là nhấn ALT + F11) [/ *]
  2. Tạo một biểu mẫu người dùng trống (xem ảnh chụp màn hình đính kèm. Bạn nhấp chuột phải vào ngăn bên trái, chọn chèn, sau đó chọn Biểu mẫu người dùng.) [/ *]
  3. Nhấp vào Công cụ trên thanh menu [/ *]
  4. Nhấp vào Tham khảo [/ *]
  5. Cuộn xuống Thư viện đối tượng Microsoft Forms 2.0 [/ *]
  6. Đảm bảo rằng hộp được chọn [/ *]
  7. Bấm OK [/ *]
Thử lại macro.
Tệp đính kèm (1)
  • Trang :
  • 1
Không có câu trả lời cho bài viết này.