[Andy Entrekin]

I need help with a macro to merge a specified set of cells in a table in a Word 2007 document. My goal is to use code to avoid having to tell hundreds of users which cells to select and merge in a large table, since asking them to do that would inevitably lead to problems. What I've determined so far is that I can't record such a macro, because I can't select the table cells once the macro recorder is active. Once the cells are merged, I want to enter and format text, also using the macro (since it will always say exactly the same thing, to meet regulatory requirements).

As an example, I'd like a macro that will:
Merge the cells from row 32, column 18 through row 38, column 25
Enter the text "Approved Document" in the merged cell and format it as bold and red.

Any and all help will be greatly appreciated.

[kipster]

Originally Posted by Andy Entrekin

I need help with a macro to merge a specified set of cells in a table in a Word 2007 document. My goal is to use code to avoid having to tell hundreds of users which cells to select and merge in a large table, since asking them to do that would inevitably lead to problems. What I've determined so far is that I can't record such a macro, because I can't select the table cells once the macro recorder is active. Once the cells are merged, I want to enter and format text, also using the macro (since it will always say exactly the same thing, to meet regulatory requirements).

As an example, I'd like a macro that will:
Merge the cells from row 32, column 18 through row 38, column 25
Enter the text "Approved Document" in the merged cell and format it as bold and red.

Any and all help will be greatly appreciated.

Sub Macro1()

    Dim myCells As Range
    With ActiveDocument
        Set myCells = .Range(Start:=.Tables(1).Cell(32, 18).Range.Start, _
            End:=.Tables(1).Cell(38, 25).Range.End)
        myCells.Select
    End With
    Selection.Cells.Merge
    With Selection.Font
        .Bold = True
        .Color = wdColorRed
    End With
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeText Text:="Approved Document"
    
End Sub

Does that help?

[Andy Entrekin]

That did it - thanks!!!