Word VBA Save As Dialog с настраиваемым фильтром?

Question

Есть ли способ (код) для диалога «Сохранить как» в Word VBA с фильтрами клиентов? Например: «.ttt»

Answer 1

Я думаю, вы, вероятно, захотите использовать Application.FileDialog, так как это позволяет настраивать фильтры файлов. Как указывает KazJaw, вы не можете сохранить файл Photoshop в Word, поэтому я предполагаю, что он разрешит некоторые другие манипуляции с файлом psd.

Ниже показано, как его использовать (см. http://msdn.microsoft.com/en-us/library/aa219843%28office.11%29.aspx). Обратите внимание, что это позволит пользователю выбирать несколько файлов.

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