Sexta-feira, 14 2020 fevereiro
  5 Respostas
  5.3 mil visitas
0
Votos
desfazer
Existe um motivo específico pelo qual os espaços não são substituídos automaticamente por sublinhados ao selecionar texto em um documento do Word e, em seguida, clicar no ícone Inserir marcador na guia Kutools? Isso parece ser um recurso totalmente lógico e de economia de tempo que o Kutools pode e deve implementar prontamente. Eu esperava tal recurso ao comprar o software e gostaria de receber comentários e/ou pensamentos de outras pessoas sobre o mesmo.

Kutools_Insert_Bookmark_ScreenShot.png
anos 3 atrás
·
#2077
0
Votos
desfazer
Olá Laxerlager,
Estou com o mesmo problema/incomodo. Então, em vez de usar Kutools para criar o marcador, eu uso a seguinte macro. Ficaria muito feliz se mais alguém pudesse se beneficiar do meu trabalho! 
Você sabe 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
anos 3 atrás
·
#2078
0
Votos
desfazer
Olá.

Pensei que nunca receberia uma resposta, muito menos uma com uma Macro! Muito obrigado.

Infelizmente, o Macro não funciona para mim. Ao selecionar o texto e executar a macro, continuo recebendo um erro VBA "Não é possível executar o código no modo de interrupção".

Alguma ideia ou correção?

Thanks again.
anos 3 atrás
·
#2079
0
Votos
desfazer
esqueci de mencionar que às vezes também recebo o erro "Erro de compilação: tipo definido pelo usuário não definido"
anos 3 atrás
·
#2080
0
Votos
desfazer
Oh uau, todas aquelas letras e dígitos não deveriam estar lá. Vamos tentar colocar essa captura de tela novamente.
anos 3 atrás
·
#2081
0
Votos
desfazer
Você só precisa adicionar a referência adequada. Não há necessidade de entender exatamente o que é, basta fazer o seguinte: 
  1. Vá para o editor VBA (ou seja, pressione ALT+F11)[/*]
  2. Crie um formulário de usuário vazio (veja a captura de tela anexada. Clique com o botão direito no painel esquerdo, selecione inserir e, em seguida, formulário de usuário.) [/*]
  3. Clique em Ferramentas na barra de menu[/*]
  4. Clique em Referências[/*]
  5. Role para baixo até a Biblioteca de Objetos do Microsoft Forms 2.0[/*]
  6. Verifique se a caixa está marcada[/*]
  7. Clique OK[/*]
Tente a macro novamente.
  • Página :
  • 1
Ainda não há respostas para esta postagem.