Microsoft Word VBA - Wählen Sie Tabelle, wenn Zelle enthält, angegebenen Zeichenfolge

Ich habe Probleme beim erstellen eines Microsoft-Word-makro. Hier ist das makro, das ich auf Arbeit bin. Erfolgreich wählt jede einzelne Tabelle in ein word-Dokument.

Sub FindSpecificTables()
    Selection.WholeStory

    Dim iResponse As Integer
    Dim tTable As Table

    'If any tables exist, loop through each table in collection.
    For Each tTable In ActiveDocument.Tables
        tTable.Select
        If response = vbNo Then Exit For 'User chose to leave search.
    Next
    MsgBox prompt:="Search Complete.", buttons:=vbInformation
End Sub

Jedoch, ich müssen nur wählen Sie eine Tabelle, wenn die Tabelle mit einem bestimmten string. Dies sollte einfach genug sein, aber ich kann ' T es herausfinden. Wie kann ich die Suche eine Tabelle nach einem bestimmten string?

Ich habe versucht, die Anpassung der code mit der folgenden bedingten Anweisung:

If tTable.Cell(1, 1) = "Adjusted:" Then tTable.Select; siehe Beispiel unten.

Sub FindSpecificTables()
    Selection.WholeStory

    Dim iResponse As Integer
    Dim tTable As Table
    'If any tables exist, loop through each table in collection.
    For Each tTable In ActiveDocument.Tables
        If tTable.Cell(1, 1) = "MySpecifiedString:" Then tTable.Select
        If response = vbNo Then Exit For 'User chose to leave search.
    Next
    MsgBox prompt:="Search Complete.", buttons:=vbInformation
End Sub

Leider funktioniert das nicht. Ist meine syntax falsch? Habt Ihr irgendwelche Vorschläge oder Empfehlungen?

InformationsquelleAutor bluefox | 2015-07-27
  1. 2

    Versuchen mit anderen Ansatz... anstatt einer Schleife jede Tabelle loop search (find) Methode und prüfen Sie, ob text innerhalb der Tabelle. hier ist die Lösung einfach:

    Sub Find_Text_in_table()

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "donec"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    Do While Selection.Find.Execute

        If Selection.Information(wdWithInTable) Then

            Stop
            'now you are in table with text you searched
            'be careful with changing Selection Object
            'do what you need here
        End If
    Loop
End Sub
    • Es scheint zu funktionieren. Vielen Dank für Ihre Hilfe!
    • Stellen Sie sicher, dass call .Find.Replacement.ClearFormatting als gut, da .Replacement hat eine .ClearFormatting getrennt vom .ClearFormatting von .Find. Aus msdn.microsoft.com/en-us/library/f1f367bx.aspx
    InformationsquelleAutor Kazimierz Jawor
Schreibe einen Kommentar