1

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

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

2

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
Лучше день потерять — потом за пять минут долететь!

3

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

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

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

4

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

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

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

5

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

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