求助把图片插入到word文档里

liuym

求助把图片插入到word文档里。问题在附件里面。






                                 请附件： 问题.zip (146.82 KB, 下载次数: 36)

2017-4-26 19:44 上传

点击文件名下载附件

kqbt

供参考：

1. Sub InsPics()
   
2.     Dim wtab As Table, wnum As Integer
   
3.     On Error Resume Next
   
4.     For Each wtab In ThisDocument.Tables
   
5.         wnum = Val(wtab.Cell(1, 1).Range)
   
6.         If wnum > 0 Then
   
7.             wtab.Cell(1, 1).Select
   
8.             With Selection
   
9.                 .MoveDown Unit:=wdLine, Count:=1
   
10.                 .InlineShapes.AddPicture FileName:=ThisDocument.Path & "\图片" & wnum & ".jpg", _
    
11.                 LinkToFile:=False, SaveWithDocument:=True
    
12.             End With
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

liuym

kqbt 发表于 2017-4-27 14:05
供参考：

版主：您好！

我把代码拷到word文档宏里面，不知什么原因好象没有图片插入到word 文档里面。请发给我一个附件。谢谢！

小花鹿

liuym 发表于 2017-4-27 20:14
版主：您好！

我把代码拷到word文档宏里面，不知什么原因好象没有图片插入到word 文档里面。请发给我 ...

Sub InsPics()
    Dim wtab As Table, wnum As Integer
    For Each wtab In ThisDocument.Tables
        wnum = Val(wtab.Cell(1, 1).Range)
        If wnum > 0 Then
            With wtab.Range
                .Collapse wdCollapseEnd
                .InlineShapes.AddPicture FileName:=ThisDocument.Path & "\图片\" & wnum & ".jpg", _
                LinkToFile:=False, SaveWithDocument:=True
            End With
        End If
    Next
End Sub

小花鹿

kqbt 发表于 2017-4-27 14:05
供参考：

如果表格大于1行就不对了

kqbt

小花鹿 发表于 2017-4-28 00:38
如果表格大于1行就不对了

供参考：

1. Sub InsPics()
   
2.     Dim wtab As Table, wnum As Integer
   
3.     On Error Resume Next
   
4.     For Each wtab In ThisDocument.Tables
   
5.         wnum = Val(wtab.Cell(1, 1).Range)
   
6.         If wnum > 0 Then
   
7.             wtab.Cell(1, 1).Select
   
8.             With Selection
   
9.                 .MoveEnd wdTable, 1
   
10.                 .Collapse wdCollapseEnd
    
11.                 .InlineShapes.AddPicture FileName:=ThisDocument.Path & "\图片" & wnum & ".jpg", _
    
12.                 LinkToFile:=False, SaveWithDocument:=True
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End Sub

复制代码

liuym

kqbt 发表于 2017-4-29 21:40
供参考：

版主：您好！我不知道如何使用。请您给我上一个我的附件例子。谢谢！

kqbt

liuym 发表于 2017-4-30 07:06
版主：您好！我不知道如何使用。请您给我上一个我的附件例子。谢谢！

1、确保你的文档和“图片”文件夹在同一个目录下。
2、不知道怎么用宏？可以网络上搜索一下。
打开文档 > Alt + F11 > 将代码粘贴到 ThisDocument 标准模块里面 > 。。。

kqbt

为何"\图片\"后面的\显示不出来？而进入“编辑”界面又显示。

kqbt

为何"\图片\"后面的\显示不出来？而进入“编辑”界面又显示。