Word из VBA: как узнать № раздела, в котором стоит курсор?

[DBEER]

..чтобы затем весь его выделить и "грохнуть".

[shanemac51]

попробуйте и конечно на копии

Sub a__sect()
Dim j1
j1 = Selection.Range.Information(wdActiveEndSectionNumber)
Word.ActiveDocument.Sections(j1).Range.Select
Word.ActiveDocument.Sections(j1).Range.Delete
End Sub

[DBEER]

Selection.Sections.Item(1).Index

[DBEER]

А вот эти "гады" (константы) типа "wdActiveEndSectionNumber"
где кроме MS-сайта описаны по-человечески?

[DBEER]

.. в хелпе VBA : "Information Property"

[viter.alex]

Всё гораздо проще:

Selection.Sections.First.Range.Delete

[DBEER]

Благодарени участникам!! Мир спасут аннексии и контрибуции!!