请教一下如何把用户选择框改为路径

饭饭99

代码如下
Sub 每行插入表格n个图()
    On Error Resume Next
    Application.ScreenUpdating = False
Dim D As FileDialog, a, P As InlineShape, t As Table
If Selection.Information(wdWithInTable) = True Then MsgBox "请将光标置于表格之外！": Exit Sub
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "请选择..."
        If .Show = -1 Then
        n = 1
        M = .SelectedItems.Count
        Debug.Print "共有" & M & "个图片"; M
   h = IIf(M / n = Int(M / n), 2 * M / n, 2 * (Int(M / n) + 1))
   Set t = ActiveDocument.Tables.Add(Selection.Range, h, n)
        t.Borders.Enable = True
t.Borders.OutsideLineStyle = wdLineStyleDouble
            For Each a In .SelectedItems
                B = Split(a, "\")(UBound(Split(a, "\")))
                C = Split(B, ".")(0)
                Set P = Selection.InlineShapes.AddPicture(FileName:=a, SaveWithDocument:=True)
                With P
                    w = .Width
                    .Width = Int(220 / n)
                    .Height = .Width * .Height / w
                End With
                i = i + 1
                Selection.MoveLeft wdCharacter, 1
                Selection.MoveDown wdLine, 1
                Selection.TypeText C
Selection.Cells(1).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '决定了首行居中
Selection.HomeKey
Selection.MoveDown wdLine, -1
                Selection.MoveRight wdCharacter, 2
                Debug.Print i, n
                If i = Val(n) Then
                    Selection.MoveRight wdCharacter, 1
                    Selection.Cells(1).Select
                    Selection.EndKey
                    Selection.MoveDown wdLine, 1
                    i = 0
                End If
            Next
        End If
    End With
    Application.ScreenUpdating = True
End Sub

饭饭99

代码的作用是新建表格 并且再表格里面插入一个文件夹内所有的图片，运行的时候选择文件夹；把选择文件夹改为和文件名同名的文件夹下所有的照片。例如：文件名是ABC，就把ABC文件夹内所有的图片导入。由于要执行很多word所有只能选择引用文件名

饭饭99

求大神

wdpfox

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）