怎样一次性把多张图片插到WORD文档中

零距离

如题.

生如夏花29

好象不行吧,我之试过一张张的插入,希望有办法可以实现,我也需要.

顶哦!

守柔

以下是引用零距离在2005-5-20 13:30:00的发言： 顶

TO 楼主:

简单地方法:

插入/图片/来自文件:在出现的插入图片对话框中,用SHIFT或者CTRL或者CTRL+A,选中你需要插入的图片,点击插入即可.

你可以在WORDD文档中移动和调整各个图片.

如果需要特殊要求的,可以使用编程解决.

零距离

我用的是WORD2000,守兄说的方法不让用的.只能一张一张插.

守柔

以下是引用零距离在2005-5-23 13:14:00的发言： 我用的是WORD2000,守兄说的方法不让用的.只能一张一张插.

你至少有两个方法：

一是升级版本；

二是接纳VBA。

13907933959

Sub 把照片_图片批量插入Word文档内()

   DimmyShape As Shape, myp As InlineShape

   Z =InputBox("请输入插入图片的宽度：", "单位厘米", 10) * 28.35

   Setmyfile = Application.FileDialog(msoFileDialogFilePicker)

       With myfile

            .InitialFileName = "C:\"

                If .Show = -1 Then

                For Each fn In .SelectedItems

                Set mypic =Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)

     pw1 = mypic.Width

     ph1 = mypic.Height

     mypic.Width = Z

     mypic.Height = ph1 * Z / pw1

   Next

End If

End With

End Sub