Страница 1 из 1
Как узнать, что достигнут конец документа в Word...
Добавлено: 14 дек 2010, 17:28
Busine2009
С помощью Selection двигаюсь вниз со строки на строку
Как узнать, что курсор дошёл до последней строки в документе?
Re: Как узнать, что достигнут конец документа в Word...
Добавлено: 14 дек 2010, 18:55
AlexEL
Код: Выделить всё
If Selection.MoveDown(Unit:=wdLine, Count:=1) <> 1 Then ' конец
Re: Как узнать, что достигнут конец документа в Word...
Добавлено: 14 дек 2010, 19:12
Busine2009
AlexEL
спасибо. Никогда бы не догадался.
Re: Как узнать, что достигнут конец документа в Word...
Добавлено: 15 дек 2010, 09:02
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
Re: Как узнать, что достигнут конец документа в Word...
Добавлено: 15 дек 2010, 14:58
Busine2009
Вот такое в интернете нашёл:
Код: Выделить всё
Sub m_3()
If Selection.Start = ActiveDocument.Content.End - 1 Then
Debug.Print "The end of a document"
End If
End Sub
Re: Как узнать, что достигнут конец документа в Word...
Добавлено: 29 дек 2010, 05:34
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
Она универсальна, т.е. определяет конец не только главной части документа, но и колонтитулов, сносок, надписей и т.д.