Changing Caption Position on Whole Document at once

Alexandarale · #1 11-15-2020, 12:49 PM

Hello everyone!!!

I have a word document with about 200 pages and about 140 tables. I recently was informed that table captions should be above the table and I have it below it now. Is there any chance to change this position for all tables at once?

Guessed · #2 11-15-2020, 06:56 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Changing figures' caption from bottom to above	datdude	Word	3	05-12-2018 05:57 PM
Changing caption number format	dpashley	Word	1	05-02-2017 03:53 PM
changing cursor position	anand	Word VBA	2	06-19-2015 05:18 AM
Changing style of caption heading	NicholaB	Word	6	12-20-2012 04:28 PM
Changing Caption Numbers	RunningPirate	Word	2	09-03-2011 07:42 AM