Wie erkennen Sie die Spaltennummer des ausgewählten Textes in einem MSWord-Array?

Question

Ich muss einen Bericht basierend auf der Farbe des Textes zusammenfassen. Wenn ich blauen Text finde, schreibe ich ihn in ein anderes Dokument. Ich möchte etwas von diesem Text hervorheben, der basierend auf seiner Position in dem Word-Array, das ich gefunden habe, gefunden wurde.

Auf meiner Seite habe ich eine einfache Tabelle wie unten, mit 2 oder 3 Spalten. Ich kann den blauen Text in einem anderen Dokument bereits finden und kopieren (siehe Find all text formatted with given color).

ich unter vba den nächsten Punkt zu finden:

With Selection.Find 
    .ClearFormatting 
    .Font.Color = wdColorBlue 
    .Text = "" 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindStop 
    .Format = True 
    .Execute 
    End With 

und Ergebnis der Suche in Selection.Text zur Verfügung steht.

Nun, was ich wissen muss, ist, sobald der Text ausgewählt ist, ist es möglich, die Spalte Nummer zu kennen, in der es sich befindet?

Answer 1

Wenn Selection.Find erfolgreich ist, sollte der gefundene Text ausgewählt werden. Dann sollte dies Ihnen den Index der Spalte geben:

Selection.Information(wdEndOfRangeColumnNumber) 

Hoffe, dass hilft.