Veza VB-a i Word-a

[ djvlajko @ 02.05.2008. 18:58 ] @

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

Hvala !!!!

[ Aleksandar Vasic @ 03.05.2008. 19:43 ] @

mozda će ti ovo pomoći

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

[ rgdrajko @ 04.05.2008. 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

[ rgdrajko @ 04.05.2008. 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

[ djvlajko @ 04.05.2008. 11:16 ] @

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

[ goranvuc @ 04.05.2008. 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.

[ Aleksandar Vasic @ 04.05.2008. 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

[ djvlajko @ 04.05.2008. 13:48 ] @

Zahvaljujem se svima na angazovanju...

Pozdrav