Oyger
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Pravoved90
Цитата:| Кстати, еще простой, но назойливый вопросик: Можно ли отогнать назад результат проведенного макроса? |
Сделай копию файла, перед запуском макроса /улыбается/
Добавлено:
q1wed
Цитата:| можно маленький пример (с кодом) |
Можно. Только прошу за оффтоп не считать.
Предположим у тебя в Ворде есть таблица с 2 столбцами (слева - вопрос, справа - ответ). И с 10 строками (10 вопросов).
Задача и так ясна.
Пишем макрос в ворде:
Dim Ma(1 To 10, 1 To 2) As String 'Создаем массив 10х2
for q=1 to 10'Ставим цыкл для заполнения массива
ActiveDocument.Tables(1).Cell(q, 1).Select 'Выбираем первую ячейку таблицы в q-строке (запись cells - как в экселе)
Ma(q,1)=Selection.Text 'Заносим в 1х1 (а далее 2х1, 3х1...) вопросы - все, что содержится в ячейке таблицы
Selection.MoveRight Unit:=wdCell 'Выделяем следующую ячейку - кнопка "таб"
Ma(q,2)=Selection.Text 'Заносим в 1х2 (а далее 2х2, 3х2...) ответы - все, что содержится в ячейке таблицы
next
А далше запускай цикл на случайную выборку и заполняй таблицу по аналогии.
Но учти, что когда копируешь значение ячейки в массив, заносится только значение, а не формат (список, выделение и пр.). Ну, как в экселе, в общем. |
Всего записей: 122 | Зарегистр. 22-03-2007 | Отправлено: 14:28 25-09-2008 | Исправлено: Oyger, 18:04 25-09-2008 |
|
Он выше на несколько сообщений, про изменение знака "/"... 
