Как узнать, что достигнут конец документа в Word...

[Busine2009]

С помощью Selection двигаюсь вниз со строки на строку

Код: Выделить всё

Selection.MoveDown Unit:=wdLine, Count:=1

Как узнать, что курсор дошёл до последней строки в документе?

[AlexEL]

Код: Выделить всё

If Selection.MoveDown(Unit:=wdLine, Count:=1) <> 1 Then ' конец

[Busine2009]

AlexEL
спасибо. Никогда бы не догадался.

[Busine2009]

А если курсор никуда не двигать, как узнать, что курсор находится в конце документа?

Я вот такое решение придумал, если у кого есть ещё какие мысли, то пишите:

Код: Выделить всё

Sub m_4()
Dim oRange As Range
Set oRange = ActiveDocument.Range(Start:=ActiveDocument.Range.End - 1, End:=ActiveDocument.Range.End - 1)
If Selection.InRange(oRange) = True Then
    Debug.Print "End of document"
End If
End Sub

[Busine2009]

Вот такое в интернете нашёл:

Код: Выделить всё

Sub m_3()
If Selection.Start = ActiveDocument.Content.End - 1 Then
    Debug.Print "The end of a document"
End If
End Sub

[AlexEL]

Я ползуюсь такой функцией:

Код: Выделить всё

Public Function Range_IsStoryEnd(ByRef seRange As Word.Range) As Boolean
' возвращает True, если область seRange в конце части

    Range_IsStoryEnd = False
    If seRange Is Nothing Then
    ElseIf seRange.End >= seRange.StoryLength - 1 Then
        Range_IsStoryEnd = True
    End If
        
End Function

Она универсальна, т.е. определяет конец не только главной части документа, но и колонтитулов, сносок, надписей и т.д.