TechWhirl (TECHWR-L) is a resource for technical writing and technical communications professionals of all experience levels and in all industries to share their experiences and acquire information.
For two decades, technical communicators have turned to TechWhirl to ask and answer questions about the always-changing world of technical communications, such as tools, skills, career paths, methodologies, and emerging industries. The TechWhirl Archives and magazine, created for, by and about technical writers, offer a wealth of knowledge to everyone with an interest in any aspect of technical communications.
I like Brian's macro idea so much. I wrote one. To add this macro to your
document (or your Normal.dotm, preferred):
1. In Word, press ALT + F11 to open the VBA editor.
2. Right click Normal and select Insert > Module
3. Copy and paste this text into the window:
' Code snippet -- BEGIN
Sub TableSetup()
Dim tblTable As Table, iCount As Integer
For Each tblTable In ActiveDocument.Tables
With tblTable
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
.Columns.PreferredWidthType = wdPreferredWidthPercent
.Columns(1).PreferredWidth = 17
.Columns(2).PreferredWidth = 83
.Rows(1).HeadingFormat = True
End With
iCount = iCount + 1
Next
MsgBox iCount & " tables updated"
End Sub
' Code snippet -- END
4. Open the document where the tables need to be adjusted.
5. With this document highlighted, press ALT + F8 to open the Macros dialog.
6. Select TableSetup and press Run. All the tables will be set the same.
You can add other properties to this macro to automate even more things. I
love VBA.
-Tony
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>From our sponsor Doc-to-Help: Want to see a Doc-To-Help web-based Help sample with DISQUS for user commenting?
