Вождь
Дата регистрации: 2010-01-04 14:43:18
Ник: Вождь
Комментариев: 3
Сайт:
Редактировать персональные данные
Его последние комментарии:
- Как определить нахождение курсора ввода в ячейке таблицы
2010-01-04 15:18:18
Эй! А куда делить неравенства из кода макроса?
Кокин научи правильно код в комментарии вставлять.
- Массовое форматирование документов
2010-01-04 15:06:50
Ответ на сообщение: 2010-01-02 в 10:00:56 | Антон Кокин
Насмехаться не собирался. Советовать люблю, но сдержал себя и отправил всего два сообщения :)
Рекламой я не занимался, а одну ссылку дал исключительно по делу.
- Как определить нахождение курсора ввода в ячейке таблицы
2010-01-04 14:43:18
Разочарую автора функции PointIntoTable. Его функция будет правильно сообщать, как пишет автор, «находится ли курсор ввода в таблице или нет» только когда Selection.Range целиком находится в таблице.
Для справки: функция Information(wdWithInTable) выдает True, когда область целиком находится в таблице.
Т.е. Selection.Information(wdWithInTable)=True и когда Selecion содержит несколько ячеек, и когда Selecion находится в конце строки таблицы, а это уже вообще не ячейка.
Вопрос был о нахождении в ячейке. Для ячейки я написал и пользуюсь макросом:
Public Function Range_InCell(ByRef icRange As Word.Range) As Boolean ' возвращает True, если область icRange целиком находится в ячейке Range_InCell = False On Error Resume Next If icRange.Information(wdWithInTable) <> True Then ElseIf icRange.Cells.Count <> 1 Then Else Range_InCell = True End If End Function