Tuesday, June 15, 2010

What is a Lexophile?

1. lexophile - A lover of cryptic words

For those of you who like punny lists:

1. A bicycle can't stand alone; it is two tired.
2. A will is a dead giveaway.
3. Time flies like an arrow; fruit flies like a banana.
4. A backward poet writes inverse.
5. In a democracy it's your vote that counts; in feudalism, it's your Count that votes.
6. A chicken crossing the road: poultry in motion.
7. If you don't pay your exorcist you can get repossessed.
8. With her marriage she got a new name and a dress.
9. Show me a piano falling down a mine shaft and I'll show you A-flat miner.
10. When a clock is hungry it goes back four seconds.

Wednesday, June 2, 2010

Empty Nest(ed) Tables

I had a large document with many, many tables.  I needed to make sure that none of the tables contained any sub-tables.  Macros to the rescue!

Sub removeNestedTables()
'
' removeNestedTables Macro
'
'
    Dim myTable As Table
    Dim subTable As Table
   
    Dim ttCell As Word.Cell
   
    For Each myTable In ActiveDocument.Tables
        For Each ttCell In myTable.Range.Cells
            If ttCell.Tables.Count > 0 Then
                For Each subTable In ttCell.Tables
                    subTable.ConvertToText Separator:=", "
                Next subTable
            End If
        Next ttCell
    Next myTable
End Sub