3 maneiras eficazes de navegar por caixa de texto em seu documento do Word

Neste artigo, temos o prazer de mostrar 3 maneiras eficazes de navegar por caixa de texto em seu documento do Word.

Existe o comando “Selecionar objeto de pesquisa” no Word, permitindo que você navegue apenas pelos objetos selecionados. Por exemplo, você pode optar por navegar por tabela ou página. Infelizmente, não há função interna para navegação por caixa de texto. Portanto, forneceremos 3 maneiras de fazer isso.

Método 1: Use a tecla “Tab”

1. Primeiramente, pressione “Ctrl + Home” para ir ao início de um documento.
2. Em seguida, localize e clique na primeira caixa de texto.
3. Em seguida, pressione “Tab” para pular para a próxima caixa de texto.

A propósito, desta forma você também encontrará formas e imagens no documento.

Método 2: Executar macro para pular de uma caixa de texto para outra

1. Em primeiro lugar, pressione “Alt + F11” para abrir o editor VBA no Word.
2. Em seguida, clique em “Normal”.
3. Em seguida, clique em “Inserir” e selecione “Módulo” no menu suspenso.
4. Abra o novo módulo clicando duas vezes.
5. Agora na área de codificação, cole os seguintes códigos:

Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub

6. Clique no botão “Executar” na barra de menu ou pressione “F5” para executar os códigos.

Assim que você iniciar a execução da macro, uma caixa de mensagem será exibida, como a abaixo:

Na caixa mostra o conteúdo da caixa de texto selecionada no momento. Você pode clicar em “Sim” para parar nela se for a caixa de texto desejada. Caso contrário, clique em “Não” para ir para a próxima caixa de texto.

Método 3: Encontre uma caixa de texto específica

Se você definir o título da caixa de texto no documento, poderá usá-lo em combinação com a macro abaixo para localizá-lo imediatamente.

1. Em primeiro lugar, consulte as etapas do método 2 para instalar e executar uma macro.
2. Lembre-se de substituir a macro por esta:

Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub

3. Em seguida, na caixa de entrada que aparecer, digite o título da caixa de texto desejada e clique em "OK" para prosseguir. A caixa de texto selecionada será exibida.

Lide com a perda de dados

Considerando que o Word é um dos softwares mais utilizados, é necessário conhecer alguns truques para quando o programa para de responder. Para informações importantes... documento corrompido, sua única opção é recuperá-lo. E para fazer isso, você precisa escolher cuidadosamente uma ferramenta de terceiros em que possa confiar.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo xlsx corrompido e pdf reparar produtos de software. Para mais informações visite www.datanumen.com