Macro to find a word in first row of table and then perform two macros

[hmsrose]

Hey all,

I have a word document full of tables and each table's first row has the word "Question" in it. I would like to have a macro which goes through the document finding each instance of the first row "Question" in each table and then run two macros which I already have written called "Caption" and "Table1", in that order.

Is this doable?



Thank you!!

[Guessed]

I assume your macros are reliant on the selection object being in the first cell before running.

Sub AAA()
  Dim aTbl As Table
  For Each aTbl In ActiveDocument.Tables
    aTbl.Range.Cells(1).Range.Select
    Caption
    Table1
  Next aTbl
End Sub

[hmsrose]

Originally Posted by Guessed

I assume your macros are reliant on the selection object being in the first cell before running.

Sub AAA()
  Dim aTbl As Table
  For Each aTbl In ActiveDocument.Tables
    aTbl.Range.Cells(1).Range.Select
    Caption
    Table1
  Next aTbl
End Sub

Thanks so much for your help and the advice in naming macros! The macro you supplied worked perfectly. I was even able to add a section to it so that it would only run on selected tables and also remove the extra paragraph marks between the tables. This will be a huge time saver. Thanks again!

[hmsrose]

Originally Posted by hmsrose

Thanks so much for your help and the advice in naming macros! The macro you supplied worked perfectly. I was even able to add a section to it so that it would only run on selected tables and also remove the extra paragraph marks between the tables. This will be a huge time saver. Thanks again!

Well, I thought I had the paragraph part down but that may have been a fluke.

[hmsrose]

Originally Posted by Guessed

I assume your macros are reliant on the selection object being in the first cell before running.

Sub AAA()
  Dim aTbl As Table
  For Each aTbl In ActiveDocument.Tables
    aTbl.Range.Cells(1).Range.Select
    Caption
    Table1
  Next aTbl
End Sub

Well, I thought I had the paragraph part down but that may have been a fluke.

Sub CaptionPort()
'
' Use this macro to replace captions and tables for portrait orientation
With Selection.Tables
Dim aTbl As Table
For Each aTbl In Selection.Tables
aTbl.Range.Cells(1).Range.Select
Caption
Table1
Next aTbl
End With

End Sub

After the macros run there are two paragraphs between my tables and I'd like only one. The problem I'm running into is that the original selection I've highlighted is lost as my table1 macro is run on each table. Is there a way to save my original selection from the start and recall it after the two macros have run to then run my find and replace macro? Thanks!!

Sub ParagraphCleanup()
'
' ParagraphCleanup Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[Guessed]

Yes, it is quite simple to set a range and then do the find on the range rather than the selection. All your code could be a lot cleaner if we didn't need to rely on the selection changing to do the work. This is why ranges preferred to selections in most vba code.

Can we see what you are doing in the Caption and Table1 macros so those can be converted to use ranges?