在word文档中每段的最后一个字符和回车符之间插入一张极小的图片

xingruyubb

各位大神，我想在word文档中每一段的最后一个字符和回车符之间插入一张极小的图片，试着写了一段VBA代码，没有达到效果，图片插到了每段开头

1. Sub addImage()
   
2. Dim objPic As InlineShape
   
3. Dim objDoc As Document
   
4. Set objDoc = ActiveDocument
   
5. For Each Para In objDoc.Paragraphs
   
6.     Set objPic = Para.Range.InlineShapes.AddPicture("C:\Users\L\Desktop\20.png")
   
7.     objPic.LockAspectRatio = msoTrue
   
8. Next
   
9. End Sub

复制代码

这是运行结果





请各位指点一下，如何将图片插入到每段最后一个字符和回车符之间？
新建 Microsoft Word 文档.rar (10.36 KB, 下载次数: 3)

2023-3-12 09:57 上传

点击文件名下载附件

gwjkkkkk

Sub addImage()
Dim objPic As InlineShape
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each para In objDoc.Paragraphs
    Set myrange = para.Range
    With myrange
        .Collapse Direction:=wdCollapseEnd
        .MoveEnd Unit:=wdCharacter, Count:=-1
        Set pic = .InlineShapes.AddPicture("C:\Users\L\Desktop\20.png", , True) '在选择范围进行插入
    End With
Next
End Sub

xingruyubb

gwjkkkkk 发表于 2023-3-12 20:11
Sub addImage()
Dim objPic As InlineShape
Dim objDoc As Document

非常感谢

mmwwdd

Sub InsertTinyPic()
    Dim i As Integer
    Dim paraCount As Integer
    Dim para As Paragraph
    Dim rng As Range
    Dim pic As InlineShape
    For Each para In ActiveDocument.Paragraphs
        paraCount = para.Range.Characters.Count
        Set rng = para.Range.Characters(paraCount - 1).Duplicate
        rng.Collapse wdCollapseEnd
        Set pic = para.Range.InlineShapes.AddPicture("C:\path\to\your\image.jpg", False, True, rng)
        pic.Height = 1
        pic.Width = 1
    Next para
End Sub