VBA code document filedialog.saveas

Question

Я новичок в написании кода в Access 2010-VBA и был бы благодарен за вашу помощь. Я использовал библиотеку объектов MO 14.0. . Я хочу: -щелкнуть по кнопке открыть файл filedialog.save, где пользователь может выбрать направление сохранения словарного документа. Чем открыть документ и записать данные из базы данных доступа. На моем пути я узнал, как открыть, заполнить данные и как открыть filedialog ... проблема в том, что выбранный файл данных не сохраняется в том месте, где он должен быть. Что не хватает, где ошибка?

`

Private Sub Befehl44_Click() 
Dim objWord As Object 
Set objWord = CreateObject("Word.Application") 
    With objWord 
    .Visible = True 
    .Documents.Open (CurrentProject.Path & "\template.docx") 'template for word document 
    .activedocument.Bookmarks("email").Select 
    .Selection.Text = Me!email 
    .activedocument.Bookmarks("name").Select 
    .Selection.Text = Me!name 
    .Application.FileDialog(msoFileDialogSaveAs).Show 
    strPath = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1) 
    End With 
Set objWord = Nothing 
End Sub 

`

Answer 1

ли strPath вернуть правильный путь_к_файл выбранный для сохранения пользователя?

Если это произойдет, вам просто нужно вызвать метод SaveAs непосредственно из Слова

После

strPath = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)

Вставка линий
If strPath <> "" Then .ActiveWorkbook.SaveAs strPath End If

Или - просто замените его одним l ine

ActiveWorkbook.SaveAs filename:=Application.GetSaveAsFilename