Merging cells in Word Table from Excel

[Ex949]

Hi all.

I'm trying to manipulate a table in MS word from a macro based in Excel
-- I want to merge a few cells together (akin to highlighting a set of
cells and merging). However I can't seem to successfully select a
range of table cells to merge.

Any suggestions?
Thanks.

[michelxld]

hello

you can try this macro to Merge some Cells in word table from Excel


Sub mergeCellsInWordTable()
'activate Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'open Word Session
Set WordDoc = WordApp.Documents.Open("C:\myDoc1.doc") 'open Doc
WordApp.Visible = True

'Merge Cells(2,3) to Cells(3,5) in the first table of word document
WordDoc.Tables(1).Cell(Row:=2, Column:=3).Merge _
MergeTo:=WordDoc.Tables(1).Cell(Row:=3, Column:=5)

End Sub


michel