#1
|
|||
|
|||
Help with Header/Footer Autosizing
Hi peoples,
Just need a hand on the following code, it formats all tables within a doc to adjust their width to the preset width (in the case below, 17.03 cm's). However, this code does not auto size the header and footer. Can someone give a hand? Note: I use Different First Page for the coverpage of my word docs. Thanks peoples " Sub ConsistensifyTables() Dim t As Table 'Show No markup With ActiveWindow.View.RevisionsFilter .Markup = wdRevisionsMarkupNone .View = wdRevisionsViewFinal End With For Each t In ActiveDocument.Tables With t With .Rows .Alignment = wdAlignRowCenter .LeftIndent = CentimetersToPoints(0) End With .AutoFitBehavior (wdAutoFitFixed) .PreferredWidthType = wdPreferredWidthPoints .PreferredWidth = CentimetersToPoints(17.03) End With Next t End Sub " |
#2
|
||||
|
||||
You need to process all the story ranges separately e.g.
Code:
Option Explicit Sub ConsistensifyTables() Dim oStory As Range Dim oTable As Table 'Show No markup With ActiveWindow.View.RevisionsFilter .Markup = wdRevisionsMarkupNone .View = wdRevisionsViewFinal End With For Each oStory In ActiveDocument.StoryRanges For Each oTable In oStory.Tables With oTable With .Rows .Alignment = wdAlignRowCenter .LeftIndent = CentimetersToPoints(0) End With .AutoFitBehavior (wdAutoFitFixed) .PreferredWidthType = wdPreferredWidthPoints .PreferredWidth = CentimetersToPoints(17.03) End With Next oTable If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange For Each oTable In oStory.Tables With oTable With .Rows .Alignment = wdAlignRowCenter .LeftIndent = CentimetersToPoints(0) End With .AutoFitBehavior (wdAutoFitFixed) .PreferredWidthType = wdPreferredWidthPoints .PreferredWidth = CentimetersToPoints(17.03) End With Next oTable Wend End If Next oStory lbl_Exit: Set oStory = Nothing Set oTable = Nothing Exit Sub End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Thank heaps Graham, your code legit saves me like 5 minutes per document.
Solid answer and code. Really appreciate it bud, you take care and keep up the good work. Last edited by Musab; 11-18-2017 at 03:28 AM. Reason: Minor spelling error correction |
Tags |
header and footer, tables scaling sizing |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Header and Footer | Diablodvs7 | Word | 1 | 07-28-2015 07:54 PM |
Header and footer aligned in the footer area | ashiqghfr | Word | 2 | 07-23-2015 01:14 AM |
header footer | Pierre-Hugues | Word VBA | 1 | 08-30-2013 06:06 AM |
header & footer | avi_sai | Word | 1 | 12-03-2011 10:52 AM |
Different Header but same Footer | Karthick | Word | 1 | 11-12-2010 09:08 AM |