VB怎么实现多选图片，新建多个word文档

Question

我在一个word模版里，想用VB实现如下功能：
   用户在打开图片的时候，可以实现图片的多选，然后模版里能够根据用户选择的图片个数，生成多个word文档（图片依次插入在特定位置，即每个文档一个图片）
目前不太清楚VB下怎么实现多选后，保存选择的结果，有大虾给个思路么？

Answer 1

多选非嵌入式图片的方法：ActiveDocument.Shapes.Range(Array("Rectangle 16", "Line 18","Rectangle 17")).Select 
'对应的xxx16，xxx17，xxx18是方框和线条，可以换成图片，如果不懂可以换成数字 

Answer 2

就是我有一个word模版文件，里面提供按钮，在特定位置插入用户选择的图片（选择过程类时word的打开文件过程）。我现在要做的是：在用户选择图片时，如果用户选择多个图片，那我就要生成多个word文档，然后依次在指定位置插入用户选择的图片.

Answer 3

http://download.csdn.net/source/1627134

Answer 4

还没解决！怎么保存内置对话框返回的用户选择的图片?    Selection.GoTo What:=wdGoToBook, Name:="picture2"
    With ActiveDocument.Books
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    
    Dialogs(wdDialogInsertPicture).Show   // 这里用户选择的图片怎么获取？

Answer 5

SavePicture Dialogs.FileName "C:\1.bmp"

Answer 6

Dialogs.FileName 里面放着他选择的文件的路径和名称

Answer 7

Dialogs无FileName属性！
只能自己设计一个对话框，利用Commondialog.ShowOpen选择文件（支持多选），然后：
1、新建文档：Documents.Add "你的模板文件"
2、插入图片到每个新的文件：Selection.InlineShapes.AddPicture FileName:="图片文件名", LinkToFile:=False,SaveWithDocument:=True

Answer 8

没找到 commondialog.ShowOpen这个方法...

Answer 9

补充：
1、使用CommonDialog控件需添加部件：Microsoft Common Dialog 6.0
2、Dialogs(wdDialogInsertPicture).Name可返回选择的文件名，但该对话框不支持多选。