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

djvlajko

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

Profil

^{02.05.2008. u 18:58 - pre 194 meseci}

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

Hvala !!!!

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: Veza VB-a i Word-a

^{03.05.2008. u 19:43 - pre 194 meseci}

mozda će ti ovo pomoći

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

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 10:52 - pre 194 meseci}

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

rgdrajko

Prikačeni fajlovi

Primer u Wordu.zip - 0.7k

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:09 - pre 194 meseci}

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

rgdrajko

Odgovor na temu

djvlajko

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

Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:16 - pre 194 meseci}

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

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
77.46.207.*

+41 Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:19 - pre 194 meseci}

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.

Prikačeni fajlovi

WordHeader.zip - 3.96k

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: Veza VB-a i Word-a

^{04.05.2008. u 11:36 - pre 194 meseci}

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

izvinjavam se

Odgovor na temu