[es] - Veza VB-a i Word-a

djvlajko

Član broj: 89354
Poruke: 29
*.218.eunet.yu.

Profil

^{02.05.2008. u 18:58}

U heder Word dokumneta sam stavio tabelu. Kako joj pristupiti kroz kod. Mali primer bi mi dobro dosao.

Hvala !!!!

^{02.05.2008. u 18:58}

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 496
*.eunet.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.vasictech.net

Profil

Re: Veza VB-a i Word-a

^{03.05.2008. u 19:43}

mozda će ti ovo pomoći

http://www.codeproject.com/KB/cs/getwordtext.aspx

^{03.05.2008. u 19:43}

rgdrajko
Beograd

Član broj: 117734
Poruke: 611
80.93.249.*

Sajt: www.enigmatika.zzl.org

Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 10:52}

Evo primer gde ucitavas tekstualni fajl sa tabelom kod koje su kolone razdvojene separatorom TAB i Word vrsi automatsku konverziju Text to table. Dalje mozes sam, ako ima problema pitaj.

Code:
Sub Macro1()
'
' Macro6 Macro
' Macro recorded 5/4/2008 by PDM
'
    ChangeFileOpenDirectory "C:\"
    Selection.InsertFile FileName:="proba.txt", Range:="", ConfirmConversions _
        :=False, Link:=False, Attachment:=False
    Selection.WholeStory
    Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=4, _
        NumRows:=6, AutoFitBehavior:=wdAutoFitFixed
    With Selection.Tables(1)
        .Style = "Table Grid"
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
End Sub

www.enigmatika.zzl.org

Prikačeni fajlovi

Primer u Wordu.zip - 0.7k

^{04.05.2008. u 10:52}

rgdrajko
Beograd

Član broj: 117734
Poruke: 611
80.93.249.*

Sajt: www.enigmatika.zzl.org

Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:09}

Evo ti i primer stvaranja tabele i upis teksta u tabelu.

Code:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 5/4/2008 by PDM
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Table Grid" Then
            .Style = "Table Grid"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.TypeText Text:="r"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="a"
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.MoveUp Unit:=wdLine, Count:=2
    Selection.TypeText Text:="j"
    Selection.MoveDown Unit:=wdLine, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=4
    Selection.TypeText Text:="k"
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.TypeText Text:="o"
End Sub

www.enigmatika.zzl.org

^{04.05.2008. u 11:09}

djvlajko

Član broj: 89354
Poruke: 29
*.241.eunet.yu.

Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:16}

Zahvaljujem na kodu, ali meni teba primer za HEADER WORDOVOG DOKUMENTA.

^{04.05.2008. u 11:16}

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1594
77.46.207.*

Sajt: www.clickersoftware.com

Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:19}

Rajko covece, @djvlajko je lepo i konkretno trazio kako da pristupi tabeli koja mu se nalazi u headeru nekog Word dokumenta, a ti mu dajes kod koji nema veze sa njegovim pitanjem - jedino sto ima veze je sto je to VB kod koji nesto radi sa Word dokumentom.

@Aleksandar Vasic, primer je super, ali ne za VB6

Dakle, evo ti resenje koje se oslanja na Word objektni model, tako da zahteva da imas instaliran Word na racunaru. Primer koji ti dajem je radjen za Word 2003, nisam imao vremena i mogucnosti da ga probam za druge verzije. U primeru imas i test dokument. Pretpostavka za resenje je da imas Word dokument koji sadrzi samo jednu sekciju i u toj sekciji neku tabelu (kao u test datoteci). Program pristupa Word datoteci, njenoj prvoj sekciji, tabeli u toj sekciji, celiji u prvom redu i drguoj koloni i daje poruku o upisanom tekstu.

Savet: koristi Range za pristup sadrzaju celije.

vidi GoranVucicevic #28045

www.clickersoftware.com

Prikačeni fajlovi

WordHeader.zip - 3.96k

^{04.05.2008. u 11:19}

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 496
*.eunet.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.vasictech.net

Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:36}

auuuuuuuuu ja nisam ni primetio, juce sam formatirao hdd pa nisam imao vb6i reko sta da skidam kad ne mogu da vidim....

izvinjavam se

^{04.05.2008. u 11:36}