Canmacros help me?

[jay]

I have a large document which has embedded in it many single cell tables
containing text. I want to find these tables, select the embedded text,
change the color of the font, cut the text, delete the tables, and then paste
the text into the document at the same point.

I have been doing this exercise in frustration for some days and realize
there must be a better way. I use a combination of mouse and keyboard to
perform the manual commands. I never have used macros. I could use some
help.

 

[Dave Lett]

Hi Jay,

I think you can use something like the following:

Dim iTbl As Integer
For iTbl = ActiveDocument.Tables.Count To 1 Step -1
With ActiveDocument.Tables(iTbl)
If .Columns.Count = 1 And .Rows.Count = 1 Then
.Range.Font.Color = wdColorRed
.ConvertToText Separator:=""
End If
End With
Next iTbl

HTH,
Dave

 

[jay]

This will sond stupid, but I never used a macro in Word. My only experience
was in Lotus WordPro years ago. I need some help n how to use the code.

 

[Dave Lett]

Hi Jay,

Have a look at the article "What do I do with macros sent to me by other
newsgroup readers to help me out?" at
http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

HTH,
Dave

 

[jay]

How can I learn more about creating and using macros? Where do I go?

 

[Charles Kenyon]

Did you go to the article Dave Lett gave you?

Follow the links in that article and you'll open up a library of
information.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide




--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.