Merge word-ovih celija kroz VB 6 cod

[bordzija]

Treba mi pomoc

Visual basic 6
XP Office

Nakon upisivanja podataka u word-ov dokument, treba mi kroz kod spajanje dve ili vise celija.

Option Explicit
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim WordTab As Word.Table
Dim row1 As Integer
Dim col1 As Integer

Public Sub zastampanjeword()

Set WordObj = CreateObject("Word.Application")
Set WordDoc = WordObj.Documents.Open(App.Path & "\Dokument.dot")
Set WordTab = WordDoc.Tables.Item(1)

Let row1 = 1
Let col1 = 1

'kod za spajanje dve ili vise celija

End Sub

 

[silverglider]

Probaj da se poigras sa ovakvim kodom:

[code:1]
With ActiveDocument.Tables(1)
.Cell(Row:=1, Column:=1).Merge MergeTo:=.Cell(Row:=1, Column:=2)
.Borders.Enable = False
End With
[/code:1]