Макрос - сохранение в определенной папке c автонумерацией

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Макрос - сохранение в определенной папке c автонумерацией (Word)

Safarid

Дата: Среда, 17.09.2014, 10:09 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток.
Проконсультируйте,пожалуйста,как сделать макрос,который бы сохранял копию страницы в определенной папке, в формате pdf под именем вида Имя(I)[I-переменная;I=1,2,...n]. Если такое имя уже существует,то сохраняет под именем Имя(max(I)+1),где max(I)-максимальная из переменных I,содержащихся в именах файлов,сохраненных в папке.
Сейчас у меня макрос вида
[vba]

Код

Private Sub CommandButton1_Click()
   ActiveDocument.ExportAsFixedFormat OutputFileName:="\\REZ-SERV\User\Semenov M.S\документ.pdf" _
          , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
          wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=2, To:=2, Item:= _
          wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
          CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
          BitmapMissingFonts:=True, UseISO19005_1:=False
      ChangeFileOpenDirectory "\\REZ-SERV\User\Semenov M.S\"
End Sub

[/vba]
но каждый раз переименовывать файл в папке очень неудобно. Решение из excel адаптировать под word не получается
Заранее благодарен за любую помощь.

Ответить

Страница 1 из 1
1