0
membuka
Suara
Apakah ada alasan tertentu mengapa spasi tidak secara otomatis diganti dengan garis bawah saat memilih teks dalam Dokumen Word, dan kemudian mengklik ikon Sisipkan Bookmark di bawah tab Kutools? Ini tampak seperti fitur yang sepenuhnya logis dan hemat waktu yang Kutools dapat, dan harus, terapkan segera. Saya mengharapkan fitur seperti itu ketika membeli perangkat lunak, dan menyambut komentar dan/atau pemikiran orang lain tentang hal yang sama.
Halo Laxerlager,
Saya memiliki masalah/gangguan yang sama. Jadi alih-alih menggunakan Kutools untuk membuat bookmark, saya menggunakan makro berikut. Saya akan sangat senang jika orang lain dapat mengambil manfaat dari pekerjaan saya!
Anda tahu cara menggunakan makro?
Saya memiliki masalah/gangguan yang sama. Jadi alih-alih menggunakan Kutools untuk membuat bookmark, saya menggunakan makro berikut. Saya akan sangat senang jika orang lain dapat mengambil manfaat dari pekerjaan saya!
Anda tahu cara menggunakan makro?
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
Hei yang disana.
Kupikir aku tidak akan pernah mendapat balasan, apalagi dengan Macro! Terima kasih banyak.
Sayangnya, Makro tidak berfungsi untuk saya. Saat memilih teks dan menjalankan makro, saya terus mendapatkan Kesalahan VBA "Tidak dapat mengeksekusi kode dalam mode istirahat".
Ada pemikiran atau koreksi?
Terima kasih lagi!
Kupikir aku tidak akan pernah mendapat balasan, apalagi dengan Macro! Terima kasih banyak.
Sayangnya, Makro tidak berfungsi untuk saya. Saat memilih teks dan menjalankan makro, saya terus mendapatkan Kesalahan VBA "Tidak dapat mengeksekusi kode dalam mode istirahat".
Ada pemikiran atau koreksi?
Terima kasih lagi!
Anda hanya perlu menambahkan referensi yang tepat. Tidak perlu mengerti persis apa itu, lakukan saja hal berikut:
- Buka editor VBA (yaitu, tekan ALT+F11)[/*]Buat formulir pengguna kosong (lihat tangkapan layar terlampir. Anda klik kanan di panel kiri, pilih sisipkan, lalu Formulir Pengguna.) [/*]Klik Alat pada bilah menu[/*]Klik Referensi[/*]Gulir ke bawah ke Perpustakaan Objek Microsoft Forms 2.0[/*]Pastikan kotak dicentang[/*]Klik Oke[/*]
- halaman:
- 1
Tidak ada balasan yang dibuat untuk posting ini.