Thread: Changing Caption Position on Whole Document at once
View Single Post
 
Old 11-15-2020, 06:56 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,977
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
Make a copy of the document and try this macro
Code:
Sub RelocateCaptions()
  Dim aTbl As Table
  For Each aTbl In ActiveDocument.Tables
    If aTbl.Range.Paragraphs.Last.Next.Style = "Caption" Then
      aTbl.Range.Relocate Direction:=wdRelocateDown
    End If
  Next aTbl
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote