Section Changed:
Code:
With .Styles("TblPic").ParagraphFormat
.Alignment = wdAlignParagraphCenter
.KeepWithNext = False
CaptionLabels.Add Name:="Picture"
.Styles("Caption").ParagraphFormat.KeepWithNext = True
.SpaceAfter = 0
.SpaceBefore = 0
End With
-----------------------------------------
.Styles("Caption").ParagraphFormat.KeepWithNext = True
I'm trying to put the Caption at the Top of the Image hoping that will change the existing problem. The routine as it is now, without changes and new error, always puts the Caption into its own cell below the Image. I want the caption with the image in the same cell, not a separate cell. Maybe this will work if I fix the error.