MSWord配列で選択したテキストの列番号を検出する方法は？

Question

私はテキストの色に基づいてレポートを集計する必要があります。青いテキストが見つかったら、別のドキュメントに書きます。私はそれを見つけたワード配列内の位置に基づいて見つかったこのテキストの一部を強調したいと思います。

私のページには、以下のような2列または3列の単純な表があります。私はすでに他の文書の青いテキストをすべて見つけてコピーすることができます（Find all text formatted with given color参照）。

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

と、検索の結果Selection.Textで提供されています：

は、私は次の項目を見つけるためにvbaの下に使用しています。

ここで私が知る必要があるのは、一度テキストが選択されたら、はそれが入っている列番号を知ることができますか？

Answer 1

Selection.Findが成功した場合、見つかったテキストが選択されたままになります。次に、これはあなたに列のインデックスを与える必要があります：

Selection.Information(wdEndOfRangeColumnNumber) 

希望に役立ちます。