Выделение ячеек программно - Microsoft Office Word

Елена Гох · 31.01.2011, 21:07

Подскажите, пожалуйста, как сделать в VBA .Select над несколькими ячейками таблицы:
к C = T.Cell(j, i) добавить ещё 1-2 сбоку. Это мне надо, чтобы дальше сработал нужный мне метод над выделенным диапазоном. Всё бьюсь с программным расщеплением, осталось взять последнюю высоту. Вслучае удачи код выложу, чтоб другие не мучались, слишком поздно наткнулась на статью http://citforum.ru/programming/vb/vba_word/8.shtml, а то бы не взялась, но сейчас уже поздно бросать, слишком много сил потрачено.

Sasha_Smirnov · 31.01.2011, 22:08

Код:

Range("A1,C2,B4,B6").Select

И поскольку аргумент Range — строка, сами понимаете... конструкция весьма гибкая!

Цитата:

Сообщение от Елена Гох

...к C = T.Cell(j, i) добавить ещё 1-2 сбоку

Одна сбоку (справа):

Код:

Sendkeys "+{right}", True

Две сбоку (справа):

Код:

Sendkeys "+{right 2}", True

Сам пока не проверил — а так, по воспоминаниям...

Елена Гох · 01.02.2011, 09:46

помогла только такая конструкция
Set rng = ActiveDocument.Range(Start:=otable. Cell(i, j).Range.Start, End:=otable.Cell(i, j + arck(m) - 1).Range.End)
rng.Select
подсказанная здесь http://citforum.ru/programming/vb/vba_word/11.shtml#1

Sasha_Smirnov · 01.02.2011, 13:30

Код:

Sendkeys "+{right}", True

помогла (и помогает) мне при рисовании японских рисунков. Каждому своё.

В похожих темах (низ этой страницы) тоже есть варианты: http://programmersforum.ru/showthread.php?t=68777.

Елена Гох · 01.02.2011, 13:39

А цветочки очень понравились!

01.02.2011, 13:30	#4
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Код: `Sendkeys "+{right}", True` помогла (и помогает) мне при рисовании японских рисунков. Каждому своё. В похожих темах (низ этой страницы) тоже есть варианты: http://programmersforum.ru/showthread.php?t=68777. Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html Последний раз редактировалось Sasha_Smirnov; 01.02.2011 в 13:33. Причина: ссылка.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
выделение нескольких ячеек в VBA	tohdom	Microsoft Office Excel	22	27.06.2012 05:48
StringGrid, выделение ячеек.	robin39	Помощь студентам	17	27.05.2010 00:14
Выделение группы ячеек	t0xa	Microsoft Office Excel	1	19.09.2009 18:21
Выделение ячеек в опредленном столбце	Busine2009	Microsoft Office Word	2	02.06.2009 21:33
Выделение диапазона программно	Волк	Microsoft Office Excel	3	15.03.2009 14:52

31.01.2011, 21:07	#1
Елена Гох Пользователь Регистрация: 26.06.2010 Сообщений: 36	Выделение ячеек программно Подскажите, пожалуйста, как сделать в VBA .Select над несколькими ячейками таблицы: к C = T.Cell(j, i) добавить ещё 1-2 сбоку. Это мне надо, чтобы дальше сработал нужный мне метод над выделенным диапазоном. Всё бьюсь с программным расщеплением, осталось взять последнюю высоту. Вслучае удачи код выложу, чтоб другие не мучались, слишком поздно наткнулась на статью http://citforum.ru/programming/vb/vba_word/8.shtml, а то бы не взялась, но сейчас уже поздно бросать, слишком много сил потрачено.

01.02.2011, 09:46	#3
Елена Гох Пользователь Регистрация: 26.06.2010 Сообщений: 36	помогла только такая конструкция Set rng = ActiveDocument.Range(Start:=otable. Cell(i, j).Range.Start, End:=otable.Cell(i, j + arck(m) - 1).Range.End) rng.Select подсказанная здесь http://citforum.ru/programming/vb/vba_word/11.shtml#1

01.02.2011, 13:39	#5
Елена Гох Пользователь Регистрация: 26.06.2010 Сообщений: 36	А цветочки очень понравились!