|
本帖最后由 zhanglei1371 于 2014-7-14 13:27 编辑
对二楼代码稍作修改,测试成功:- Sub 批量插入图片()
- Dim MyDialog As FileDialog, GetStr(1 To 100) As String '100是工作时最多的文档数,可以修改
- Dim s As Shape, mypic As InlineShape
- On Error Resume Next
- Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
- With MyDialog
- .Filters.Clear
- .Filters.Add "所有WORD文件", "*.doc", 1
- .AllowMultiSelect = True
- i = 1
- If .Show = -1 Then
- For Each stiSelectedItem In .SelectedItems
- GetStr(i) = stiSelectedItem
- i = i + 1
- Next
- i = i - 1
- End If
- For j = 1 To i Step 1
- Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
- Windows(GetStr(j)).Activate
- '===================
- Application.ScreenUpdating = False
- For Each s In ActiveDocument.Shapes
- If s.Type = msoPicture Then
- s.Anchor.Paragraphs(1).Range.Select
- l = s.Left
- t = s.Top
复制代码 |
评分
-
1
查看全部评分
-
|