Macro for Inserting Multiple Photos from Excel List into Word

macropod · #8 02-14-2020, 12:23 AM

Quote:

Originally Posted by henhelm

Can you help me change the captions to read "Photograph X: Caption", in Times New Roman with size 10 font, and 5 spaces between the colon and caption?

Change:
CaptionLabels.Add Name:="Picture"
to:
CaptionLabels.Add Name:="Photograph"
Change:
Label:="Picture"
to:
Label:="Photograph"
Insert:

Code:

  With .Styles("Caption")
    With .Font
      .Name = "Times New Roman"
      .Size = 10
    End With
    .ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(2.5), Alignment:=wdAlignTabLeft
  End With

before:
'Add a 2-row by NumCols-column table to take the images

Note: Word doesn't work with spaces the way I expect you want. Using a tab-stop should give a comparable result.

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for Inserting Multiple Photos into Word but retrieving Captions from Excel Sheet	macaronipasta	Word VBA	2	06-27-2021 06:28 PM
Macro to access info from Excel spreadsheet and populate Word doc with text, photos, and captions	henhelm	Word VBA	4	06-27-2019 08:49 PM
Inserting multiple photos at a specific size	Mr M	Drawing and Graphics	2	06-20-2018 08:07 PM
Inserting and formatting photos in word 2013	tha_slughy	Word VBA	5	07-13-2014 04:39 PM
Inserting / formatting multiple photos into Word doc.	Jeremiahts	Drawing and Graphics	1	03-23-2011 07:33 PM