Синтаксис Word VBA InsertFile

Question

Я пытаюсь вставить один файл слова в другой файл слова, и важно, чтобы была также ссылка ... Поэтому я нашел вариант ниже

selection.InsertFile(FileName, Range, ConfirmConversions, Link, Attachment)

Но моя проблема в том, что мне нужно добавить несколько файлов (следовательно, используя макрос), и я хочу каждый раз выбирать файл (не добавлять каталог в код). Это как-то возможно? Я не знаком с синтаксисом VBA.

Я также мог бы просто использовать Dialogs(wdDialogInsertFile).Show Но там я не смог найти место, где включить опцию ссылки.

Надеюсь, sb поможет мне.

Спасибо!

Answer 1

Вы можете использовать поле ввода (http://www.functionx.com/vb/functions/inputbox.htm)

 FileName = InputBox ("Enter file name")

Или даже FileDialog (http://msdn.microsoft.com/en-us/library/aa163948(v=office.10).aspx)

With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .InitialFileName = ""
    .Title = "File Location"
    .AllowMultiSelect = False
    .Filters.Add "Word", "*.doc*, 1
    .Filters.Add "All Files", "*.*", 2

    .Show

    If .SelectedItems.Count > 0 Then
        FileName = .SelectedItems(1)
    End If
End With