Thread: [Solved] Find Replace
View Single Post
 
Old 02-28-2013, 10:58 PM
Adriano Adriano is offline Windows 7 64bit Office 2010 32bit
Novice
 
Join Date: Feb 2013
Posts: 10
Adriano is on a distinguished road
Default Find Replace

Hi,

I'm new to VBA, but I think I need one to my problem.

The situation is:

I have a document with text and tables like this

b) text

(the first cell is a), b), c) and so on... and the second is a text)


I have another a) b) and c) in the document I don't want to change, so
I've managed to format those cells with a special style like below:

Code:
Sub format_tables()
Dim tTable As Table
For Each tTable In ActiveDocument.Tables
  tTable.Select 
  Selection.Style = ActiveDocument.Styles("Table-1")
Next 
End Sub
My question is:

I want to find those formated a) b) c) and so on
and convert the table in which they are in regular text.

Thank you,

Adriano

Last edited by macropod; 03-01-2013 at 12:13 AM. Reason: Added code tags & formatting
Reply With Quote