1 Тема от Slamzor

  • Slamzor
  • сержант
  • Неактивен
  • Зарегистрирован: 13.12.2012
  • Сообщений: 32

Тема: Макрос сохранения файла в определенную папку

Здравствуйте!
Пытался макрорекодить и этот макрос редактировать, но как то не вышло.
Не получилось окошко сохранения вывести через .show, да и имя файла оставить без изменения.

Нужен макрос, который бы открывал окно "Сохранить как"  в ворд 2010, при этом сразу бы в определенной заданной папке, дабы не выбирать путь. Имя файла оставить прежним, а вот формат при сохранении docx (FileFormat:= wdFormatXMLDocument).

2 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2
  • За сообщение: 1

Re: Макрос сохранения файла в определенную папку

а поиск никто не отменял 

Sub CustomFilter()
    'Declare a variable for the FileDialog object and one for the selectedItems
    Dim fd As FileDialog, vSelectedItem As Variant

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    'With the FileDialog
    With fd
        .Filters.Clear                              'Clear current filters
        .Filters.Add "Photoshop Files", "*.psd", 1  'Add a filter that has Photoshop Files.

        If .Show = -1 Then
            'Step through each String in the FileDialogSelectedItems collection.
            For Each vSelectedItem In .SelectedItems
                'Do whatever you want here
            Next vSelectedItem
        Else
            'The user pressed Cancel.
        End If
    End With

    Set fd = Nothing
End Sub

post: внешняя ссылка