<div>
Please give this a try...<br />
<br />
<br />

<pre><code class="code-10 nolinks" id="code-20-42361290-1"><span>Sub FormatTableRow()</span>
<span>Dim doc As Document</span>
<span>Dim tbl As Table</span>
<span></span>
<span>Set doc = ActiveDocument</span>
<span>For Each tbl In doc.Tables</span>
<span>    With tbl.Rows(1).Range.Font</span>
<span>        .Bold = True</span>
<span>        .Size = 16</span>
<span>        .Name = &quot;Arial&quot;</span>
<span>    End With</span>
<span>Next tbl</span>
<span>MsgBox &quot;Done!&quot;, vbInformation</span>
<span>End Sub</span>
</code></pre>
</div>


<div>
Hi Neeraj:<br />
The macro is fine but I would like to see each table as it is being processed.
</div>


<div>
<blockquote>
The macro is fine but I would like to see each table as it is being processed.
</blockquote>
What do you mean by that? You cannot see the progress of the macro as it will complete the task in almost milliseconds.
</div>


<div>
Hi Sudobh:<br />
I'm running the macro using f8 I'd like to see each table.<br />
Currently my screen remains on page 1. Where the first table is positioned.
</div>


<div>
FLAWLESS!!! &nbsp;Perfect!!!!<br />
Thank you.
</div>


<div>
You're welcome!<br />
Thanks for the feedback.
</div>


<div>
<div class="content wysiwyg-content">
Hi All:<br />
I have 40 or so tables in a document which need to be modified.<br />
I need a macro to <br />
1) Find a Table, <br />
2) select the first row in that table,<br />
3) Change the font size of that table's first row to 16 pt and the font to Arial Bold<br />
4) Repeat Step 1 2 and 3 until the end of the &nbsp;document is reached.<br />
5) Generate a message box saying &quot;Done.&quot;.
</div>
</div>


Hi All:
I have 40 or so tables in a document which need to be modified.
I need a macro to 
1) Find a Table, 
2) select the first row in that table,
3) Change the font size of that table's first row to 16 pt and the font to Arial Bold
4) Repeat Step 1 2 and 3 until the end of the  document is reached.
5) Generate a message box saying "Done.".

word  2013 VBA - Macro Needed to 1) Find Table, 2) select first row, 3) Change font size of first row to 16 pt and font to Arial Bold

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

A font is a particular size, weight and style of a typeface. Each font is a matched set of type, one piece (called a "sort") for each glyph, and a typeface consists of a range of fonts that share an overall design. With the advent of digital typography, font is frequently synonymous with typeface, although the two terms do not necessarily mean the same thing. In particular, the use of "vector" or "outline" fonts means that different sizes of a typeface can be dynamically generated from one design. Each style may still be in a separate "font file" -- for instance, the typeface "Futura" may include the fonts "Futura roman", "Futura italic", "Futura bold" and "Futura extended" —- but the term "font" might be applied either to one of these alone or to the whole typeface.

Fonts Typography

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.