如何检测MSWord数组中所选文本的列号？

Question

我必须根据文本的颜色总结一份报告。如果我找到蓝色文本，我会将其写入另一个文档。我想强调一下根据我在Word数组中的位置找到的一些文本。

在我的页面上，我有一个简单的表格，如下面的2或3列。我已经能够找到并复制另一个文档中的所有蓝色文本（请参阅Find all text formatted with given color）。

我在vba下方使用以查找下一项：

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

，Selection.Text中提供了搜索结果。

现在我需要知道的是，一旦文本被选中，是否可以知道它所在的列号？

Answer 1

如果Selection.Find成功，则应保留所选文本。那么这应该给你列的索引：

Selection.Information(wdEndOfRangeColumnNumber)

希望有所帮助。