Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 11-15-2020, 12:49 PM
Alexandarale Alexandarale is offline Changing Caption Position on Whole Document at once Windows 7 64bit Changing Caption Position on Whole Document at once Office 2010
Novice
Changing Caption Position on Whole Document at once
 
Join Date: Nov 2020
Posts: 1
Alexandarale is on a distinguished road
Default 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?
Reply With Quote
  #2  
Old 11-15-2020, 06:56 PM
Guessed's Avatar
Guessed Guessed is offline Changing Caption Position on Whole Document at once Windows 10 Changing Caption Position on Whole Document at once Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
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
Reply

Thread Tools
Display Modes


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 Position on Whole Document at once 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 Caption Position on Whole Document at once Changing style of caption heading NicholaB Word 6 12-20-2012 04:28 PM
Changing Caption Position on Whole Document at once Changing Caption Numbers RunningPirate Word 2 09-03-2011 07:42 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 03:19 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft