Remove variable from text

jameson · #1 08-30-2022, 02:27 AM

Dear people of msofficeforums,

I have a VBA script, sourced from this forum (https://www.msofficeforums.com/word-...html#post47919), which works wonders.
It looks like this:

I want it to look like this (i want to remove the numbering from the image)

This is the code:

Code:

    CaptionLabels.Add Name:="Step"
    For i = 1 To .SelectedItems.Count Step NumCols
      r = ((i - 1) / NumCols + 1) * 2 - 1
      'Format the rows
      Call FormatRows(oTbl, r, RwHght)
      For c = 1 To NumCols
        j = j + 1
        'Insert the Picture
        Set iShp = ActiveDocument.InlineShapes.AddPicture( _
          FileName:=.SelectedItems(j), LinkToFile:=False, _
          SaveWithDocument:=True, Range:=oTbl.Cell(r + 1, c).Range)
        With iShp
          .LockAspectRatio = True
          If (.Width < ColWdth) And (.Height < RwHght) Then
            .Width = ColWdth
            If .Height > RwHght Then .Height = RwHght
          End If
        End With
        StrTxt = ""
        With oTbl.Cell(r, c + 1).Range
          .Paragraphs.Alignment = wdAlignParagraphCenter
          .InsertBefore vbCr
          .Characters.First.InsertCaption _
          Label:="Step", Title:=StrTxt, _
          Position:=wdCaptionPositionBelow, ExcludeLabel:=False
          .Characters.First = vbNullString
          .Characters.Last.Previous = vbNullString
        End With
        
     'Insert the Caption on the row below the picture
     CaptionLabels.Add Name:="Image"
     'Get the image filename
        StrTxt = Split(.SelectedItems(j), "\")(UBound(Split(.SelectedItems(j), "\")))
        StrTxt = ": " & Split(StrTxt, ".")(0)
      With oTbl.Cell(r, c).Range
        .InsertBefore vbCr
        .Characters.First.InsertCaption _
        Label:="Image", Title:=StrTxt, _
        Position:=wdCaptionPositionBelow, ExcludeLabel:=False
        .Characters.First = vbNullString
        .Characters.Last.Previous = vbNullString
      End With
         'Exit when we're done

rollis13 · #2 08-30-2022, 09:28 AM

Follow what suggested in post #10 of the thread you linked.
That means you could apply these changes to this part of the macro:

Code:

'...
'Get the Image name for the Caption
StrTxt = Split(.SelectedItems(j), "\")(UBound(Split(.SelectedItems(j), "\")))
StrTxt = "Image " & Split(StrTxt, ".")(0) '<- changed
oTbl.Cell(r + 1, c).Range.Text = StrTxt '<- added
'-------------- do not use ----------------------------------------
'Insert the Caption on the row below the picture
'With oTbl.Cell(r + 1, c).Range
'    .InsertBefore vbCr
'.Characters.First.InsertCaption Label:="Picture", Title:=StrTxt, _
'           Position:=wdCaptionPositionBelow, ExcludeLabel:=False
'    .Characters.First = vbNullString
'    .Characters.Last.Previous = vbNullString
'End With
'------------------------------------------------------------------
'Exit when we're done
'...

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to replace a repeated single variable with variable from a list	Edit4Fun	Word VBA	13	08-31-2022 10:56 AM
I want to create a bar chart of multiple variable. Then I need to draw trend lin of those variable	shimulsiddiquee	Excel	1	05-16-2017 07:39 AM
ord vba replace the variable text with variable images to make offer products with images	tanzinim	Word VBA	4	12-30-2015 01:40 PM
Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge	Berryblue	Mail Merge	1	11-13-2014 05:36 PM
Run-time error 91 object variable or with block variable not set	JUST ME	Word VBA	4	03-25-2014 06:56 AM