有多个word文档需要插入图片

whuihui

我的b站有这个教程，可惜这里不能附上链接

ytmpgght

whuihui 发表于 2024-4-3 14:38
我的b站有这个教程，可惜这里不能附上链接

谢谢您。我们一起摸索吧，总会有办法的。

ytmpgght

whuihui 发表于 2024-4-3 14:38
我的b站有这个教程，可惜这里不能附上链接

谢谢您。我们一起摸索吧，总会有办法的。

whuihui

B站搜  早教也有趣

ytmpgght

闻启学 发表于 2024-4-3 10:08
http://t.csdnimg.cn/VEvpX  参考这个帖子

领悟能力不够，看后上不了手。

wcj6376tcp

ytmpgght 发表于 2024-4-3 16:35
领悟能力不够，看后上不了手。

好像有个批量按姓名插入人事档案图片的应该比较适合这个，一下找不到了，论坛搜索一下

ytmpgght

wcj6376tcp 发表于 2024-4-3 16:50
好像有个批量按姓名插入人事档案图片的应该比较适合这个，一下找不到了，论坛搜索一下

谢谢您 。放假后我去翻翻视频或者在HE买来的那几本书。我想应该能解决“插入图片位置不固定的问题”

lisongmei

现学现卖写了个，，，格式默认是嵌入型，不知道怎么改，哈哈。将就参考一下

Sub test()
Dim sr As String
Dim wb As Document
Application.ScreenUpdating = False
Application.Visible = False
sr = Dir("C:\Users\lison\Desktop\新建文件夹\*.*docx")
Do While sr <> ""
    Set wb = Documents.Open(sr)
    wb.Range(0, 0).Select
    With Selection.Find
        .Text = "签字（盖章）"
    End With
        With Selection.Find
            If .Execute Then
                Selection.Collapse 0
                Set s = Selection.InlineShapes.AddPicture("C:\Users\lison\Desktop\汇宝.png")
                s.Height = 30
                s.Width = 30
            Else
                Debug.Print wb.Name & "中未找到需要插入章的地方"
            End If
        End With
    wb.Close True
    sr = Dir
Loop
Application.ScreenUpdating = True
Application.Visible = True
End Sub

wanghan519

lisongmei 发表于 2024-4-3 17:41
现学现卖写了个，，，格式默认是嵌入型，不知道怎么改，哈哈。将就参考一下

Sub test()

InlineShapes没有环绕这个属性，不如直接用shapes添加图片，就可以指定衬与文字下方

lisongmei

wanghan519 发表于 2024-4-3 17:48
InlineShapes没有环绕这个属性，不如直接用shapes添加图片，就可以指定衬与文字下方

哈哈。我是用录的宏来改的。由于楼主的word文档我打不开，就自己随便建的个表格来练习的。。