Microsoft Office Forums - View Single Post - [Solved] Add Multiple Pics & Captions to a Document

macropod · 06-02-2025, 04:21 PM

You insert:

Code:

      .Rows.Alignment = wdAlignRowCenter

after the first:

Code:

    With oTbl

The caption truncation is cause by your use of extra periods in the filename (not a good practice). This can be overcome by replacing:

Code:

        StrTxt = Split(.SelectedItems(j), "")(UBound(Split(.SelectedItems(j), "")))
        StrTxt = Split(Split(StrTxt, "")(UBound(Split(StrTxt, ""))), ".")(0)

(which is wrong anyway) with:

Code:

        StrTxt = Split(.SelectedItems(j), "\")(UBound(Split(.SelectedItems(j), "\")))
        StrTxt = ": " & Left(StrTxt, InStrRev(StrTxt, "."))

The other code changes I suggested will already allow for the line wrapping.