Question

我有一个宏，可以将数据从“源”文档移动到“目标”文档中。我希望用户能够选择哪些已经打开的文档应该是源，哪些应该是目的地。

如果我为每个阶段使用了InputBox，则用户必须准确输入文件的名称，有时这些名称很长。我更喜欢显示打开文档的对话框或列表，让用户选择一个作为源，然后显示另一个对话框以选择目标。

任何想法如何做到这一点？

Answer 1

Pankaj，当我看到你的评论并考虑循环打开文档以填充用户框时，我意识到我可以用文档列表填充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

谢谢！

如何在打开文件之间进行选择？

1 个答案: