Viernes, 14 2020 febrero
  5 Respuestas
  5.3K visitas
0
Votos
deshacer
¿Hay alguna razón particular por la que los espacios no se reemplazan automáticamente con guiones bajos al seleccionar texto en un documento de Word y luego hacer clic en el icono Insertar marcador en la pestaña Kutools? Esto parece una característica completamente lógica que ahorra tiempo y que Kutools puede y debe implementar de inmediato. Hubiera esperado tal característica al comprar el software, y agradezco los comentarios y/o pensamientos de otros sobre el mismo.

Kutools_Insert_Bookmark_ScreenShot.png
Hace años 3
·
#2077
0
Votos
deshacer
Hola laxerlager,
Tengo el mismo problema/molestia. Entonces, en lugar de usar Kutools para crear el marcador, uso la siguiente macro. ¡Me haría muy feliz si alguien más pudiera beneficiarse de mi trabajo! 
¿Sabes usar macros?

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
Hace años 3
·
#2078
0
Votos
deshacer
Hola.

¡Pensé que nunca obtendría una respuesta, y mucho menos una con una Macro! Muchas gracias.

Desafortunadamente, la Macro no funciona para mí. Al seleccionar texto y ejecutar la macro, sigo recibiendo un error de VBA "No se puede ejecutar el código en modo de interrupción".

¿Alguna idea o corrección?

Gracias de nuevo!
Hace años 3
·
#2079
0
Votos
deshacer
olvidé mencionar que a veces también recibo el error "Error de compilación: tipo definido por el usuario no definido"
Hace años 3
·
#2080
0
Votos
deshacer
Vaya, todas esas letras y dígitos no deberían estar ahí. Intentemos poner esa captura de pantalla nuevamente.
Hace años 3
·
#2081
0
Votos
deshacer
Solo necesita agregar la referencia adecuada. No es necesario entender exactamente qué es, simplemente haga lo siguiente: 
  1. Vaya al editor de VBA (es decir, presione ALT+F11)[/*]
  2. Cree un formulario de usuario vacío (vea la captura de pantalla adjunta. Haga clic con el botón derecho en el panel izquierdo, seleccione Insertar, luego Formulario de usuario). [/*]
  3. Haga clic en Herramientas en la barra de menú[/*]
  4. Haga clic en Referencias[/*]
  5. Desplácese hacia abajo hasta Biblioteca de objetos de Microsoft Forms 2.0[/*]
  6. Asegúrate de que la casilla esté marcada[/*]
  7. Haga clic en Aceptar[/*]
Intente la macro de nuevo.
  • De la página:
  • 1
Aún no hay respuestas para esta publicación.