Visual basic 6
XP Office
Nakon upisivanja podataka u word-ov dokument, treba mi kroz kod spajanje dve ili vise celija.
Code:
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
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