| Вопрос: Использование шаблонов Word | Добавлено: 01.07.08 13:38 |
Автор вопроса:  nat-z
|
| Ответы | Всего ответов: 27 |
|
Номер ответа: 16 Автор ответа: nat-z Вопросов: 13 Ответов: 85 |
Профиль | | #16 | Добавлено: 08.07.08 15:27 |
|
Да не про то!
Тут по сохранению документа под другим именем в ссылке: http://www.vbnet.ru/forum/show.aspx?id=168346 звучит такой текст: В проекте шаблона добавь модуль класса Public WithEvents app As Word.Application Private Sub app_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean) MsgBox "НЕ БУДУ СОХРАНЯТЬ!" Cancel = True End Sub В модуле объекта ThisDocument (тоже в шаблоне) Dim cls As New Class1 Private Sub Document_New() Set cls.app = Me.Application End Sub ' или так, в зависимости от того, что именно нужно Private Sub Document_Open() Set cls.app = Me.Application End Sub а я все это не поняла и не знаю - куда и как мне его втиснуть! Тем более что на 'Private Sub app_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean) у меня выдает неопред класс Document, куда и как все это ставить????????
|
||
|
Номер ответа: 17 Автор ответа:  Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #17 | Добавлено: 08.07.08 16:00 |
|
Проверь почту. |
||
|
Номер ответа: 18 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #18 | Добавлено: 09.07.08 00:01 |
|
Там какой-то дурной вордовский файл и все, без кода!
Я уже написала тебе! |
||
|
Номер ответа: 19 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #19 | Добавлено: 09.07.08 00:02 |
|
Проверь почту.
Там какой-то дурной вордовский файл, я тебе сразу написала! |
||
|
Номер ответа: 20 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #20 | Добавлено: 09.07.08 08:37 |
|
Я ответил, прикрепил пару скриншотов чтобы показать код, если в документе кода действительно нет значит его срезал антивир. |
||
|
Номер ответа: 21 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #21 | Добавлено: 10.07.08 14:08 |
|
Все теперь поняла.
Теперь почти все радости осознала, и пока работает! |
||
|
Номер ответа: 22 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #22 | Добавлено: 14.07.08 10:21 |
|
А вот еще одну радость хочу испытать:
Как можно в таблицу в вордовском файле добавить или удалить строки? Если можно - код! |
||
|
Номер ответа: 23 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #23 | Добавлено: 14.07.08 10:38 |
|
ActiveDocument.Tables(1).Rows(4).Select 'выделить в таблице нужную строку Selection.Rows.Delete 'удалить Selection.InsertRowsAbove 1 'вставить строку выше Selection.InsertRowsBelow 1 'вставить строку ниже |
||
|
Номер ответа: 24 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #24 | Добавлено: 14.07.08 16:28 |
| Спасибочки! | ||
|
Номер ответа: 25 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #25 | Добавлено: 14.07.08 16:51 |
|
А еще: как можно узнать количество строк в таблице ActiveDocument.Tables(1).Select?
И при наличии лишних удалить сразу все начиная с № N? |
||
|
Номер ответа: 26 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #26 | Добавлено: 15.07.08 09:35 |
|
Dim RowIndex As Integer If ActiveDocument.Tables(1).Rows.Count > N Then For RowIndex=ActiveDocument.Tables(1).Rows.Count To N Step -1 ActiveDocument.Tables(1).Rows(RowIndex).Delete Next End If |
||
|
Номер ответа: 27 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #27 | Добавлено: 16.07.08 07:49 |
| Спасибо. | ||