Сделать на VBA до завтра помогите

[rawas]

Средствами VBA требуется:

1. Диаграмме назначить формат-> стили фигур -> "сильный эффект акцент 4"

Export в Word
1.Создать документ с 10-20 страницами, количество может меняться
2. Во всем документе (кроме первой) вставить номера страниц по шаблону Worda с названием "Толстая линия" считать начиная со второй
3. На первой странице вставить шаблон Worda титульного листа с названием "Головоломка"
4. На второй странице вставить шаблон Worda оглавление авто собираемое
5. 1 страница landscape, 3,7,9 portrait
6. на каждую страницу из шаблона добавить надпись, уменьшить её до W= 10cm H=15cm и переместить на 3 см ниже
7. Из Excel взять Range ( с названиями столбцов и строк типа Headings ) и вставить его со связью , скажем на 4-ю страницу и отцентрировать. (очень важно чтобы были Headingi )
8. Вставить текст из ячейки excel на 5 страницу в надпись которую создали в 6 пункте, оформить стилем "Заголовок"
9. Сделать подложку прозрачную на всех листах из jpg файла (не обязательно)
10. обновить авто оглавление
11. Перейти к первому листу

Вроде просто но в хелпах и на форумах ничего не нашел, кроме как создать документ.

[doober]

Сообщение от rawas

Вроде просто но в хелпах и на форумах ничего не нашел, кроме как создать документ.

Как минимум на Кандидатскую тянет

[IgorGO]

запустите рекордер, выполняйте пункты по очереди вручную. вот вам и ВБА.
Успехов!

[rawas]

Сообщение от IgorGO

запустите рекордер, выполняйте пункты по очереди вручную. вот вам и ВБА.
Успехов!

Типо с острил? где взять макро рекордер который это запишет? Давно бы сделал.

[Володька]

Ребята! Здорова! Помогите, ведь вы знаете! Я проигрываю макрос, после этого я делаю изменения в разных ячейках, НО, когда я нажимаю опять проиграть макрос, мне необходимо, что бы курсор встал на последнюю пустую ячейку первого столбца! (неважно, где он находился до этого.) Помогите, прошу Вас!

[EducatedFool]

Сообщение от rawas

Типо с острил? где взять макро рекордер который это запишет? Давно бы сделал.

Где-где... В Word-e и в Excel-е имеется встроенный макрорекордер.
Жмём "записать макрос", и выполняем нужные действия.

Правда, на все 100% в данном случае код не запишется (поскольку необходимо взаимодействие между 2 приложениями), но бОльшую часть работы макрорекордер за Вас сделает.

[EducatedFool]

Сообщение от Володька

мне необходимо, что бы курсор встал на последнюю пустую ячейку первого столбца! (неважно, где он находился до этого.)

Если надо поставить курсор на ПЕРВУЮ пустую ячейку, то добавьте последней строкой в макрос это:

 Range("A" & Rows.Count).End(xlUp).Offset(1).Select

Если всё же надо поставить курсор на ПОСЛЕДНЮЮ пустую ячейку (обычно это последняя строка на листе - с номером 65536), то последняя строка макроса должна выглядеть так:

 Range("A" & Rows.Count).Select

[rawas]

Макрос не записывает описанные мною действия, по крайней мере то что он записывает не работает при повторе, выдает ошибку, здесь кто нибудь без лишних идей может это сделать или нет? Выкладывать запись макросов нету времени, да и сами должны знать что макрорекордер не работает с объектами и диаграммами

[rawas]

Вообщем самое главное 7 пункт остальное руками сделаю раз вы не знаете как это осуществить

[Володька]

Сообщение от EducatedFool

Если надо поставить курсор на ПЕРВУЮ пустую ячейку, то добавьте последней строкой в макрос это:

 Range("A" & Rows.Count).End(xlUp).Offset(1).Select

Если всё же надо поставить курсор на ПОСЛЕДНЮЮ пустую ячейку (обычно это последняя строка на листе - с номером 65536), то последняя строка макроса должна выглядеть так:

 Range("A" & Rows.Count).Select

Имеется ввиду, то, что несколько ячеек уже заполнены некой информацией, дак надо на пустую ячейку, которая после последней заполненой.
Заранее Спасибо!