1 Тема от admin

  • Как сохранить документ в двух экземплярах?
  • admin
  • Администратор
  • Неактивен
  • Откуда: Земля
  • Зарегистрирован: 15.12.2009
  • Сообщений: 508
  • Поблагодарили: 39

Тема: Как сохранить документ в двух экземплярах?

Вопрос от Андрея:
Как реализовать, чтобы при сохранении Word сохранял в 2 экземплярах. Причем во втором экземпляре нужно поменять 2 строчки (одну удалить, вторую заменить стандартным текстом)?
При сохранение к имени файла надо добавить(например символ "_т") Т.е. Имена файлов должны бвть xxxyyy.doc и xxxyyy_t.doc С помощью чего это можно реализовать?

Сайтadmin

2 Ответ от viter.alex

  • Как сохранить документ в двух экземплярах?
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

Re: Как сохранить документ в двух экземплярах?

Лучше это делать не при сохранении, а отдельной процедурой, которую вызывать, когда будет нужно.

Sub DoubleFileSave()
  Dim sOldFileName As String

  sOldFileName = ActiveDocument.FullName
  
  With ActiveDocument
    'Сохраняем неизменённый документ
    .SaveAs sOldFileName
    
    '…
    'Дальше пишем замену, которую нужно произвести
    '…

    'Сохраняем изменённый документ под новым именем
    .SaveAs Mid(sOldFileName, 1, InStrRev(sOldFileName, ".") - 1) & _
                        "_t" & Mid(sOldFileName, InStrRev(sOldFileName, "."))
    'Закрываем изменённый документ
    .Close
  End With
    'Открываем неизменённый документ
    Documents.Open sOldFileName
End Sub
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от Anechka

  • Anechka
  • рядовой
  • Неактивен
  • Зарегистрирован: 24.12.2009
  • Сообщений: 9
  • Поблагодарили: 1

Re: Как сохранить документ в двух экземплярах?

А не могли Вы написать процедуру, которая бы при сохранении Word сохранял в 2 экземпляра, только во втором добавля опредленные строчик, как реализовать добавление строчек, и изменяда номер экземпляра со 1 на 2?

Отредактировано Anechka (25.12.2009 09:51:21)

4 Ответ от viter.alex

  • Как сохранить документ в двух экземплярах?
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

Re: Как сохранить документ в двух экземплярах?

Куда вставлять строчки? Где изменять номер экземпляра?

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

5 Ответ от Anechka

  • Anechka
  • рядовой
  • Неактивен
  • Зарегистрирован: 24.12.2009
  • Сообщений: 9
  • Поблагодарили: 1

Re: Как сохранить документ в двух экземплярах?

Строчки вставлять в конеце второй страницы, а свержху в шапке стоит номер экземплера: Экз.1, менять на "Экз.2