Add Multiple Pics & Captions to a Document

macropod · #11 02-14-2021, 04:12 AM

Change this:

Code:

        'Insert the Caption on the row below the picture
        With oTbl.Cell(r + 1, c).Range
            .Text = StrTxt
            If .Characters.Last.Previous.Information(wdVerticalPositionRelativeToPage) <> _
              .Characters.First.Information(wdVerticalPositionRelativeToPage) Then
              .FitTextWidth = ColWdth - CentimetersToPoints(0.3)
            End If
        End With

to this:

Code:

        'Insert the Caption on the row below the picture
        With oTbl.Cell(r + 1, c)
          .LeftPadding = CentimetersToPoints(0.15)
          .RightPadding = CentimetersToPoints(0.15)
          With .Range
            .Text = StrTxt
            If .Characters.Last.Previous.Information(wdVerticalPositionRelativeToPage) <> _
              .Characters.First.Information(wdVerticalPositionRelativeToPage) Then
              .FitTextWidth = ColWdth - CentimetersToPoints(0.3)
            End If
          End With
        End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for Inserting Multiple Photos from Excel List into Word	henhelm	Word VBA	15	02-07-2023 05:35 PM
Macro for Inserting Multiple Photos into Word but retrieving Captions from Excel Sheet	macaronipasta	Word VBA	2	06-27-2021 06:28 PM
I need a macro to automatically insert 4 pics per page in a word document with "Photograph No 1, 2,"	NewbieLearning	Word VBA	15	11-14-2017 05:03 AM
Captions: Changing captions in Appendix update all captions	carnestw	Word	3	10-27-2015 12:34 PM
How do I type on multiple pics?	TimHudson	Drawing and Graphics	0	07-28-2011 10:28 AM