1 Тема от mikkelle

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

Тема: Сохранение файла под новым именем

Команда 

ActiveDocument.SaveAs FileName:=myName, FileFormat:=wdFormatXMLDocument

сохраняет файл.
Каким образом реализовать возможность автоматического сохранения файла под другим именем, например "myName" & Index (последовательно возрастающее число), при наличии уже в папке назначения файла с имеющимся именем?

С уважением

2 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: Сохранение файла под новым именем

Примерно та же тема
подскажите, пожалуйста, в следующем, можно ли и как при помощи ВБА активный файл переименовать, если делать нужно через сохранить как ...
Тогда как удалить старый файл?? Ваше решение верно и для Ворд 2003 и для Ворд 2007??? Уточняю его нужно только переименовать место нахождения старого файла и нового одно и тоже.
Проблема в том, что старый файл просто не успевает закрыться до того, как начинает выполняться kill. Как обойти эту проблему????????

3 Ответ от mikkelle

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

Re: Сохранение файла под новым именем

Сам нашел ответ на внешняя ссылка

Проверка наличия файла
Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  If FSO.FileExists("C:\1.doc") Then
    'Что делать, если файл существует.
    
  Else
    'Что делать, если файла нет.
  End If
  Set FSO = Nothing

4 Ответ от mikkelle

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

Re: Сохранение файла под новым именем

К стати, вот еще одно решение:

Dir ("C:\1.doc")

Если файл присутствуент значение функции Dir будет "1.doc", в противном случае пустое значение - ""