<div>
When you have the correct cells in a range, use:<br />
<br />

<pre><code id="code-20-40572869-1">.Style = ActiveDocument.Styles(&quot;MyParagraphStyle&quot;)</code></pre>
</div>


When you have the correct cells in a range, use:



.Style = ActiveDocument.Styles("MyParagraphStyle")

<div>
Hi Kimputer, <br />
<br />
thank you very much for your swift help. I am afraid to tell you that I am not able to write a macro code, so your code snippet is regrettably of no use to me. <br />
<br />
I can understand code quite good but am not able to write a full macro. <br />
<br />
Regards, Andreas
</div>


Hi Kimputer,

thank you very much for your swift help. I am afraid to tell you that I am not able to write a macro code, so your code snippet is regrettably of no use to me.

I can understand code quite good but am not able to write a full macro.

Regards, Andreas

<div>
You impressed me again! Great job. Thank you very much for your swift and professional help. Really very helpful<br />
<br />
Regards, Andreas
</div>


You impressed me again! Great job. Thank you very much for your swift and professional help. Really very helpful

Regards, Andreas

<div>
<div class="content wysiwyg-content">
Dear Experts: <br />
<br />
I would like to run a macro with the following requirements: <br />
<br />
In the current document the macro is to run thru all the tables and check whether there are tables where ...<br />
<br />
... Cell(Row:=2,Column:=1) features the 'Normal' paragraph style<br />
<br />
Those tables that fulfill this requirement have to be formatted as follows: <br />
<br />
Cells(Row:=2, Column:=4) to Cells(Row:=x, Column:=5) have to be applied a custom made paragraph style 'MyParagraphStyle'<br />
<br />
Help is much appreciated. <br />
<br />
Thank you very much in advance. <br />
<br />
Regards, Andreas
</div>
</div>


Dear Experts: 

I would like to run a macro with the following requirements: 

In the current document the macro is to run thru all the tables and check whether there are tables where ...

... Cell(Row:=2,Column:=1) features the 'Normal' paragraph style

Those tables that fulfill this requirement have to be formatted as follows: 

Cells(Row:=2, Column:=4) to Cells(Row:=x, Column:=5) have to be applied a custom made paragraph style 'MyParagraphStyle'

Help is much appreciated. 

Thank you very much in advance. 

Regards, Andreas

Apply a paragraph style to cells in certain tables using a macro

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.