merging cells using VB

Carrie_Loos via OfficeKB. · Guest

I have a row of 1's and 0's. I would like to merge all the cells with 1's
that are grouped in a row and not merge the 0's.
Example:

1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 1 1 1 1 1 1
1

So that the cells with 1's in them merge and the cells with 0's in them do
not merge.

Is is possible?

Thanks in advance
Carrie

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200712/1

Google · Sponsor

Helmut Weber · Guest

Hi Carrie,

beware of line breaks by the news reader.

Sub Test0101x()
Dim oTbl As Table
Dim oRow As Row
Dim ocll As Cell
Set oTbl = ActiveDocument.Tables(1)
For Each oRow In oTbl.Rows
For Each ocll In oRow.Cells
' ocll.Select ' for testing
While Left(ocll, 1) = "1" And _
Left(ocll.Next, 1) = "1" And _
ocll.RowIndex = ocll.Next.RowIndex
ocll.Merge mergeto:=ocll.Next
ocll.Range.Text = Replace(ocll.Range.Text, Chr(13), "")
If ocll.Range =
oTbl.Range.Cells(oTbl.Range.Cells.Count).Range Then Exit Sub
Wend
Next
Next
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Carrie_Loos via OfficeKB. · Guest

Thank you, I can't wait to try this out!

Helmut Weber wrote:

Helmut Weber · Guest

Hi Carrie,

after one night's sleep there is a solution
without error trapping:

Sub Test0101xx()
Dim oTbl As Table
Dim oRow As Row
Dim ocll As Cell

Set oTbl = ActiveDocument.Tables(1)
For Each oRow In oTbl.Rows
For Each ocll In oRow.Cells
While Left(ocll, 1) = "1" And _
Left(ocll.Next, 1) = "1" And _
ocll.RowIndex = ocll.Next.RowIndex
ocll.Merge mergeto:=ocll.Next
ocll.Range.Text = Replace(ocll.Range.Text, Chr(13), "")
If ocll.Next Is Nothing Then Exit Sub
Wend
Next
Next
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP