#1
|
|||
|
|||
Changing Caption Position on Whole Document at once
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? |
#2
|
||||
|
||||
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 |
|
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 |