Using portions of a filename for a caption.

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

gmayor · #2 03-07-2022, 09:52 PM

Quote:

Originally Posted by mathemagician44

I have tried this and 58 different variations trying to figure this out.

There was nothing to figure out. The function I posted provided the caption gets the text in the filename (sname) without the extension or the number at the beginning, from the examples that you provided.

You can call the function where you want to use the caption in your larger macro e.g.

Code:

Sub TestCaption()
Const fName1 As String = "1 Dog is brown. Dog is big.jpg"
Const fName2 As String = "1.2 Cat is black. Cat is little.jpg"
Const fName3 As String = "2 Pencil is a yellow. Pencils are great.jpg"
Dim sCaption As String
    sCaption = GetCaption(fName1)
    MsgBox sCaption
    sCaption = GetCaption(fName2)
    MsgBox sCaption
    sCaption = GetCaption(fName3)
    MsgBox sCaption
End Sub

Function GetCaption(sName As String)
Dim sCaption As String
Dim iPos As Integer
    If IsNumeric(Left(sName, 1)) = True Then
        iPos = InStr(1, sName, " ")
        sCaption = Mid(sName, iPos + 1)
    Else
        sCaption = sName
    End If
    sCaption = Left(sCaption, InStrRev(sCaption, "."))
    GetCaption = sCaption
End Function

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