Автоматическое сохранение + Печать. Продолжение темы "Перенос данных из Excel в Word"

[The_Andrei]

Здравствуйте.
Создал эту тему в продолжении темы «Перенос данных из Excel в Word»
Посмотрел ваш пример в архиве «письма.rar», то что мне нужно, но возникло несколько вопросов :
1) Почему у меня не подхватывается значение {оклад} - ?

2) Как вставить 2 одинаковых значения в документ, т.е. мне нужно, чтобы адрес отправления напечатался в документе 2 раза в разных местах.

3) Как реализовать, чтобы каждый лист сохранялся как отдельный документ и название бралось из строки таблицы «Название фирмы»? (на этот случай у меня есть макрос (файл 1.txt), но в нем не могу разобраться, что то напутано с синтаксем )

4) Как сделать, чтобы при сохранении автоматом отправлялось все на печать?

[EducatedFool]

Вы бы хоть сслыку на тему тему привели...

Как реализовать, чтобы каждый лист сохранялся как отдельный документ и название бралось из строки таблицы «Название фирмы»?

Я как-то делал такой макрос, который на основании шаблона создаёт не один многостраничный документ, а множество файлов с различными названиями.
Вам остаётся только поискать на форуме.
Впрочем, можно и этот макрос переделать - там изменить-то совсем немного.

Как сделать, чтобы при сохранении автоматом отправлялось все на печать?

При сохранении чего?
Что "всё" должно отправляться на печать?
А если по-новой нажать кнопку Сохранить, должно печататься ещё раз?

[The_Andrei]

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

Вы бы хоть сслыку на тему тему привели...

Тема тут: http://programmersforum.ru/showthread.php?t=28058

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

Я как-то делал такой макрос, который на основании шаблона создаёт не один многостраничный документ, а множество файлов с различными названиями.

Вам остаётся только поискать на форуме.

Спасибо поищу

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

Впрочем, можно и этот макрос переделать - там изменить-то совсем немного.

А что там неправильно с синтаксом?

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

При сохранении чего?
Что "всё" должно отправляться на печать?
А если по-новой нажать кнопку Сохранить, должно печататься ещё раз?

Про сохранение вопрос снят
Самый главный вопрос почему в шаблоне не подтягивается {оклад}-?

[EducatedFool]

Спасибо поищу

Мне самому не удалось найти
Но пример в личных архивах сохранился...

Извлеките оба файла из вложения в одну папку, откройте файл Excel, и нажмите желтую кнопочку.

Возможно, такой Вариант Вас устроит.

[The_Andrei]

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

Мне самому не удалось найти
Но пример в личных архивах сохранился...

Извлеките оба файла из вложения в одну папку, откройте файл Excel, и нажмите желтую кнопочку.

Возможно, такой Вариант Вас устроит.

Спасибо за этот архив, но я учусь vba и хочу понимать , что да как.
Посмотрите этот макрос. (1.txt)
'Имя файла берем из ячейки пятой строки второго столбца
sFileName = Trim(Right(oRng.Tables(1).Cell(3, 2).Range.Text, Len(oRng.Tables(1).Cell(3, 2).Range.Text) - 2))
sFileName = Trim(Right(oRng.Tables(1).Cell(3, 1).Range.Text, Len(oRng.Tables(1).Cell(3, 1).Range.Text) - 2)) & amp & sFileName
Мне нужно сделать, чтобы макрос имя документа брал из строки (Название фирмы). Как это реализовать. И если можно поясните команды в этой части макроса.
У меня ошибка

[EducatedFool]

Замените Right на Left

Sub test()
    txt = Tables(1).Cell(3, 2).Range.Text
    txt = Left(txt, Len(txt) - 2)
    ActiveDocument.SaveAs "c:\" & txt & ".doc"
End Sub

Вообще, это не лучший способ.
Надо проверять текст в ячейке на наличие запрещённых символов, в том числе отсекать непечатаемые символы в конце ячейки (зря Вы так уверены, что их всегда 2 - может быть и больше...)

[viter.alex]

Удалить непечатаемые символы в конце ячейки таблицы (это символы с кодами 7 и 13) можно так:

txt = Replace(CleanString (Tables(1).Cell(3, 2).Range.Text), ChrW(13), "")

[The_Andrei]

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

Замените Right на Left

Sub test()
    txt = Tables(1).Cell(3, 2).Range.Text
    txt = Left(txt, Len(txt) - 2)
    ActiveDocument.SaveAs "c:\" & txt & ".doc"
End Sub

Вообще, это не лучший способ.
Надо проверять текст в ячейке на наличие запрещённых символов, в том числе отсекать непечатаемые символы в конце ячейки (зря Вы так уверены, что их всегда 2 - может быть и больше...)

С сохранением документа кое как разобрался.
Интересует такой вопрос почему не подтягивается значения {оклад} в моем варианте?

[EducatedFool]

Интересует такой вопрос почему не подтягивается значения {оклад} в моем варианте?

Потому что макрос так написан... скажем так, не лучшим образом.

Всё будет работать, если расположить строки в нужном порядке:

            .Find.Execute "{оклад}", False, , , , , , , , Cells(i, 2), True
            .EndKey Unit:=wdStory, Extend:=wdExtend

            .Find.Execute "{должность}", False, , , , , , , , Cells(i, 3), True
            .EndKey Unit:=wdStory, Extend:=wdExtend

            .Find.Execute "{отделение}", False, , , , , , , , Cells(i, 2), True
            .EndKey Unit:=wdStory, Extend:=wdExtend

А чем Вас не устроил вариант с созданием множества файлов?

[The_Andrei]

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

Потому что макрос так написан... скажем так, не лучшим образом.

Всё будет работать, если расположить строки в нужном порядке:

            .Find.Execute "{оклад}", False, , , , , , , , Cells(i, 2), True
            .EndKey Unit:=wdStory, Extend:=wdExtend

            .Find.Execute "{должность}", False, , , , , , , , Cells(i, 3), True
            .EndKey Unit:=wdStory, Extend:=wdExtend

            .Find.Execute "{отделение}", False, , , , , , , , Cells(i, 2), True
            .EndKey Unit:=wdStory, Extend:=wdExtend

А чем Вас не устроил вариант с созданием множества файлов?

Спасибо!!!
Для создания окончательно моего документа осталась только.
Рассчитать контрольную сумму CRC и вставить её в документ.
Скажите пожалуйста можно как нибудь средствами VBA посчитать контрольную сумму и вставить её например в Excel?
Если это невозможно, то программа Total Commander позволяет рассчитать CRC сумму и сохраняет её в файле с расширением .sfvю можно средствами VBA открыть этот файл и скопировать его содержимое в определенную ячейку в Excel?