如何从word文档中获取段落号?

Question

我正在努力实现以下要求，但我不是很精通word文档。

我需要得到的是特定术语出现的段落号和页码。这些数据应该在Excel中做成表格。

我想知道是否有可能从Excel VBA的word文档中获得para#。

Answer 1

假设您正在搜索单词" text ";这就是单词部分。

With Selection.Find
.Execute FindText:="text"
End With
'paragraph number
parag = Selection.Range.Information(wdFirstCharacterLineNumber)
'page number
pg = Selection.Range.Information(wdActiveEndPageNumber)

为了将这些数据存储在新的excel工作簿中。

Set wb = Excel.Application.Workbooks.Add
wb.Sheets(1).Cells(1,1).Value = parag
wb.Sheets(1).Cells(1,2).Value = pg
Excel.Application.Visible = True

在word中，你必须设置一个引用到Microsoft Excel 16.0对象库。