определение границ диапазона

[sirius84]

У меня там с шаблонами замучено - создается новый вордовский документ, открывается, туда автоматом вставляется выделенный фрагмент. С Selection.Copy не прокатывает

Но вот беда - работает с Microsoft Word 11 Object Library, а с Microsoft Word 10 Object Library ругается:

MISSING: Microsoft Word 11 Object Library (в меню Tools - > References)

и не работает.

Выдает ошибку: can't execute code in break mode, с подчеркиванием строки:
Dim wapp As New Word.Application

Может, Word.Application в Microsoft Word 10 Object Library по-другому называется? Где собака зарыла?

[KL (XL)]

В MS Office нет обратной совместимости, т.ч. если хотите, чтобы работало в более ранней версии, устанавливайте ссылку на библиотеку самой старой версии из тех, что будут использоваться. Вообще, программируйте в самой старой из этих версий. В данном случае, откройте файл в Word 10, установите ссылку на соответствующую библиотеку, сохраните и затем откройте и запустите код в Word 11.

[sirius84]

KL (XL),
документ word, по сути, создается "на лету" из кода, при помощи шаблонов (Документ 1, Документа 2 и т.д.). А проблема: открываем файл Excel, сделанный на компе с word 11 object library, в ОС с word 10 object library - идем в Tools-> References, а там - MISSING: Microsoft word 11 object library.

[KL (XL)]

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

KL (XL),
документ word, по сути, создается "на лету" из кода, при помощи шаблонов (Документ 1, Документа 2 и т.д.). А проблема: открываем файл Excel, сделанный на компе с word 11 object library, в ОС с word 10 object library - идем в Tools-> References, а там - MISSING: Microsoft word 11 object library.

В таком случае, откройте вашу книгу Excel в предыдущей версии Office, измените ссылку Microsoft Word 11 Object Library на Microsoft Word 10 Object Library, и будет вам счастье.

Кстати,

Dim wapp As New Word.Application

- криминал, нужно делать так:

Dim wapp As Word.Application
Set wapp = New Word.Application

а если вы используете функции GetObject или CreateObject, то New вообще не нужно:

Dim wapp As Word.Application
Set wapp = GetObject(,"Word.Application")

Подробнее здесь: http://www.cpearson.com/excel/DeclaringVariables.aspx

[sirius84]

KL (XL),
большое человеческое спасибо!

разобрались. заплутали в трех соснах: не нашли поначалу 10-й библиотеки word. а то уже в дебри полез: думал, надо код править, под старую версию.

[leech]

Чтото я прочитал, но не разобрался. Мне надо определить верхнюю и нижнюю границу диапазона (для общего развития левую/правую)
Для чего: есть 2 диапазона ячеек. В ходе выполнения макроса они "расползаются". Т.е. между ними появляются пустые строки. Мне надо их (эти строки) удалить. Для чего собственно и нужна нижняя граница диапазона1 и верхняя диапазона2
помогите!

[VictorM]

Так может эти пустые строки и удалить просто как пустые?
Зачем диапазоны-то?
Удаление пустых ячеек из диапазона
Вот еще, была тема на нашем форуме.
Удаление пустых строк

[leech]

не получится. В самих диапазонах есть пустые строки, которые надо оставить. Есть другой вариант как определить именно ненужные пустые строки?

p.s.
1) 2 диапазона, которые я описал - формы документов лицевая и оборотная сторона (это к тому, что внутри есть нужные пустые строки).
2) Они (диапазоны) уже заданы. Так что вроде бы логично использовать их.

[VictorM]

Есть другой вариант как определить именно ненужные пустые строки?

А каков критерий их "ненужности"?

[leech]

хм... ну не получилось по-умному объяснить - буду "на пальцах"

итак есть форма документа. Она занимает некий диапазон, внутри которого не надо ничего менять. Этот диапазон уже с присвоеным именем (диап1 напр). Т.е. чтоб его выделить достаточно GoTo к нему и он выделен.
Есть второй диапазон (тоже с формой). Тоже уже с присвоеным иенем Диап2

Между этими двумя диапазонами есть пустые строки, которые не только не нужны, но и влияют на печать (т.е. 2-я форма начинается не с начала листа, а где-то с середины).

Вот именно эти строки (между нижней границей диап1 и верхней диап2) и надо программным методом найти и удалить. После чего я воткну HPageBreaks и будет мне счастье