3 metodi rapidi per trovare il testo solo nelle tue tabelle di parole

In questo articolo, siamo lieti di mostrarti 3 modi rapidi per trovare testo specifico solo nelle tabelle di Word.

Utilizzando "Trova e sostituisci", una funzione integrata in Word, puoi cercare e trovare un testo specifico in un documento lungo. Come vedi, questo si basa sull'intero documento. Che ne dici di limitare l'intervallo di ricerca solo alle tabelle di Word? Continua a leggere per vedere i dettagli.

Metodo 1: trova il testo nella selezione

1. Prima di tutto, seleziona manualmente una o più tabelle nel documento.
2. Quindi fare clic sul pulsante a discesa accanto al comando "Trova" nella scheda "Home".
3. Scegli "Ricerca avanzata" per aprire la finestra di dialogo "Trova e sostituisci".
4. Immettere il testo di ricerca nella casella di testo "Trova cosa".
5. Fare clic sulla scheda "Trova in" e scegliere "Selezione corrente".  

Word troverà il testo solo nella tua selezione.

Metodo 2: trova il testo in una tabella

Oltre al solito modo, puoi scegliere di eseguire macro per eseguire attività più personalizzate.

1. Prima di tutto, posiziona il cursore all'interno di una tabella in cui vuoi trovare il testo.
2. Quindi premere "Alt + F11" per aprire l'editor VBA.
3. Fai clic su "Normale" nella colonna di sinistra.
4. Quindi fare clic su "Inserisci" e scegliere "Modulo".
5. Quindi fai doppio clic sul modulo per aprirlo.
6. Incolla i seguenti codici nel modulo:

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

7. Infine, fai clic su "Esegui". Immettere un testo all'interno della casella di input e fare clic su "OK" per procedere.

Metodo 3: trova il testo in tutte le tabelle di un documento

1. Prima e primaost, ripetere i passaggi del metodo 2 per installare ed eseguire una macro.
2. Quindi sostituisci quella macro con questa:

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. Allo stesso modo, digita il testo di ricerca all'interno della casella di input. E fare clic su "OK" per procedere.

Salva i tuoi dati in tempo

Una volta ottenuti i dati compromessi, tieni presente che sono recuperabili. Quindi non mollare mai prima di provare. In tali circostanze, è necessario controllare l'ultimo backup, se presente. C'è una buona possibilità di riavere alcuni dei tuoi dati. Inoltre, puoi sempre ricorrere a correzione del documento strumento per recuperare i dati.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui XL danneggiato e pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com