Microsoft Office Forums - View Single Post - [Solved] Using portions of a filename for a caption.

mathemagician44 · 03-07-2022, 06:54 PM

I have tried this and 58 different variations trying to figure this out. Thus far, I have just been going back and deleting the beginning number of the caption after the macro has ran. But this is tedious for numerous photos multiple times per week.

Trying to incorporate what you said to my program, I now have below, but the "isnumeric" is not working

Code:

'Get the Image name for the Caption
        StrTxt = Split(.SelectedItems(j), "")(UBound(Split(.SelectedItems(j), "")))
        StrTxt = "." & Split(StrTxt, ".JPG")(0)
        Dim iPos As Integer
        Dim sCaption As String
        If IsNumeric(Left(StrTxt, 1)) = True Then
        iPos = InStr(1, StrTxt, " ")
        sCaption = Mid(StrTxt, iPos + 1)
        Else
        sCaption = StrTxt
        End If
        'Insert the Caption on the row below the picture
        With oTbl.Cell(r + 1, c).Range
        .InsertBefore vbCr
        .Characters.First.InsertCaption _
        Label:="Photograph", Title:=StrTxt, _
        Position:=wdCaptionPositionBelow, ExcludeLabel:=False
        .Characters.First = vbNullString
        .Characters.Last.Previous = vbNullString
        End With