请教！word指定字符下插入同名图片问题

风之惑

请教各位大佬，想实现在word中，能够根据指定的字符，批量自动插入同文件下同名图片，自己摸索写了代码，但在插入图片的路径位置报错，请大佬指正。

1. Sub A214指定字符下插入图片()
   
2. 
   
3.     Application.ScreenUpdating = False
   
4.    
   
5.     Dim rng As Range
   
6.     Dim i As Variant
   
7.     For n = 1 To ActiveDocument.Paragraphs.Count
   
8.         Set oneP = ActiveDocument.Paragraphs(n)
   
9.         Set rng = oneP.Range
   
10. 
    
11.         If rng.Text Like "【*" Then
    
12.             
    
13.             With Word.Application
    
14.                 .Selection.HomeKey Unit:=wdStory
    
15.                 If .Selection.Find.Execute(rng.Text) Then '查找到指定字符串
    
16.                     .Selection.EndKey Unit:=wdLine '移动光标至行尾
    
17.                     .Selection.TypeParagraph '添加空段落
    
18.                     .Selection.ClearFormatting '清除格式
    
19.                     .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '段落居中
    
20.                     ChangeFileOpenDirectory ActiveDocument.Path '同文件夹下
    
21.                     Set pic = .Selection.InlineShapes.AddPicture(FileName:="rng.Text", LinkToFile:=False, SaveWithDocument:=True)
    
22.                     pic.LockAspectRatio = msoTrue
    
23.                     C = 14 '宽度设置
    
24.                     pic.Width = 28.345 * C
    
25.                 End If
    
26.             End With
    
27.             
    
28.         End If
    
29.     Next
    
30.    
    
31.     Application.ScreenUpdating = True
    
32. End Sub

复制代码