使用 Selection.InlineShapes.AddPicture 的变量插入图像时出错

Question

我正在尝试浏览一个 word 文档，并将现有的图像路径字符串替换为实际图像。当我输入硬编码的地址时，它起作用了。但是如果我把相同的代码放在一个变量中，我会得到一个错误

错误：

Run-time error '5152':

This is not a valid file name.
Try one or more of the following:
* Check the path to make sure it was typed correctly,
* Select a file from the list of files and folders.

代码：

Sub InsertJPGs()
    For Each singleLine In ActiveDocument.Paragraphs
        Dim Value As Variant
        Dim imageName As String
        Options.DefaultFilePath(wdDocumentsPath) = "d:\Downloads\ReportImages\"
        originalLineText = singleLine.Range.Text
        lineText = singleLine.Range.Text
        If InStr(lineText, ".jpg") <> 0 Then
            singleLine.Range.Select
            rangeText = singleLine.Range.Text
            imageName = rangeText
            imageName = "D:\Downloads\ReportImages\" & rangeText
            'imageName = "D:\Downloads\ReportImages\PictureImportTest_ATTICSkylight#1#_img2.jpg"
            Selection.InlineShapes.AddPicture FileName:= _
                imageName, LinkToFile:=True, SaveWithDocument:=True
        End If
        If InStr(lineText, "[[[IMAGE LIST]]]") <> 0 Then
            Exit For
        End If
    Next singleLine
End Sub

Answer 1

尝试：

Sub Demo()
Application.ScreenUpdating = False
Dim FlNm As String: Const StrPath As String = "d:\Downloads\ReportImages\"
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "<[! ^t^l^13]@.[Jj][Pp][Gg]>"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    FlNm = .Duplicate.Text
    .Text = vbNullString
    .InlineShapes.AddPicture StrPath & FlNm, False, True, .Duplicate
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

如果要保留文档中的文件名，请删除或注释掉：

.Text = vbNullString

使用 Selection.InlineShapes.AddPicture 的变量插入图像时出错

Error when inserting image using variable for Selection.InlineShapes.AddPicture

vba

ms-word

image

insert

inline-images