Как выбрать между открытыми документами?

Question

У меня есть макрос, который будет перемещать данные из «исходного» документа в документ «назначения». Я хочу, чтобы пользователь мог выбрать, какой из уже открытых документов должен быть источником, и каким должно быть место назначения.

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

Любые идеи, как это сделать?

Answer 1

Панкай, когда я увидел свой комментарий и подумал о перекручивание через открытые документы для заполнения USERBOX, я понял, что я мог бы заполнить InputBox со списком документов и есть пользователь может выбрать их по номеру:

' Make list of open Documents 
For i = 1 To Documents.Count 
    s = s & vbCr & i & " " & Documents(i).Name 
Next i 

Set SourceDoc = Documents(Val(InputBox("Choose Source Document: " & s))) ' User enters number of desired doc 
Set DestinationDoc = Documents(Val(InputBox("Choose Destination Document: " & s))) ' User enters number of desired doc 

Спасибо!