Using portions of a filename for a caption.

mathemagician44 · #3 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to uninstall portions of Office Pro 2016	Moondoggy	Office	1	07-10-2020 04:10 AM
filename field not displaying correct filename when that name starts with #	plrsmith	Word	1	07-06-2018 03:10 AM
Filename	UnlimitedPower	Word VBA	1	08-19-2016 12:22 AM
Showing or hiding portions of contract based on selected services.	BlackrazorNZ	Word	1	05-30-2014 05:43 AM
Error! Filename not Specified	mark.lacey	Outlook	0	10-12-2011 03:02 AM