In dit artikel laten we u graag 3 effectieve manieren zien om op tekstvak in uw Word-document te bladeren.
Er is de opdracht "Selecteer door object bladeren" in Word waarmee u alleen door de geselecteerde objecten kunt bladeren. U kunt er bijvoorbeeld voor kiezen om per tabel of pagina te bladeren. Helaas is er geen ingebouwde functie om per tekstvak te bladeren. Daarom bieden we u drie manieren om dit te doen.
Methode 1: Gebruik de “Tab” -toets
- Druk allereerst op "Ctrl+Home" om naar het begin van een document te gaan.
- Zoek en klik vervolgens op het eerste tekstvak.
- Druk vervolgens op "Tab" om naar het volgende tekstvak te gaan.
Op deze manier vindt u trouwens ook vormen en afbeeldingen in het document.
Methode 2: Macro uitvoeren om van het ene tekstvak naar het andere te springen
- Druk allereerst op "Alt+F11" om de VBA-editor in Word te openen.
- Klik vervolgens op "Normaal".
- Klik vervolgens op "Invoegen" en selecteer "Module" in het vervolgkeuzemenu.
- Open de nieuwe module door te dubbelklikken.
- Plak nu in het coderingsgebied de volgende codes:
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
- Klik op de knop "Uitvoeren" in de menubalk of druk op "F5" om de codes uit te voeren.
Zodra je de macro start, verschijnt er een berichtvenster, zoals hieronder:
Op het vak wordt de inhoud van het huidige geselecteerde tekstvak weergegeven. U kunt op "Ja" klikken om ermee te stoppen als dit het door u gewenste tekstvak is. Klik anders op "Nee" om naar het volgende tekstvak te gaan.
Methode 3: Zoek een specifiek tekstvak
Als u een titel voor een tekstvak in een document instelt, kunt u deze in combinatie met de brullende macro gebruiken om deze onmiddellijk te lokaliseren.
- Raadpleeg allereerst de stappen in methode 2 om een macro te installeren en uit te voeren.
- Vergeet dan niet om de macro te vervangen door deze:
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
- Voer vervolgens in het invoerveld dat verschijnt de titel van het te zoeken tekstvak in en klik op "OK" om verder te gaan. Het geselecteerde tekstvak wordt nu weergegeven.
Omgaan met gegevensverlies
Aangezien Word een van de meest gebruikte softwareprogramma's is, is het handig om een aantal trucjes te kennen voor het geval Word niet meer reageert. Voor belangrijke corrupte doc, uw enige keuze is om het te herstellen. En om dit te doen, moet u zorgvuldig een tool van derden kiezen die u kunt vertrouwen.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte xlsx en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com



