Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Merge word-ovih celija kroz VB 6 cod

[es] :: Visual Basic 6 :: Merge word-ovih celija kroz VB 6 cod

[ Pregleda: 3319 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

anebojsa
Bgd

Član broj: 16174
Poruke: 84
*.verat.net



Profil

icon Merge word-ovih celija kroz VB 6 cod21.02.2004. u 11:40 - pre 196 meseci
Treba mi pomoc

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
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Merge word-ovih celija kroz VB 6 cod19.03.2004. u 11:23 - pre 195 meseci
Code:

'This example merges the first two cells in table one 
' in the active document with one another
If ActiveDocument.Tables.Count >= 1 Then
    With ActiveDocument.Tables(1)
        .Cell(Row:=1, Column:=1).Merge _
            MergeTo:=.Cell(Row:=1, Column:=2)
        ' or
        '.Cell(1, 1).Merge (.Cell(1, 2))
    End With
End If


Znaci, Word.Table objekat ima Cell objekat, a Cell ima Merge metod.
 
Odgovor na temu

[es] :: Visual Basic 6 :: Merge word-ovih celija kroz VB 6 cod

[ Pregleda: 3319 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.