U heder Word dokumneta sam stavio tabelu. Kako joj pristupiti kroz kod. Mali primer bi mi dobro dosao.
Hvala !!!!
Hvala !!!!
Veza VB-a i Word-a
Zaključano
Zakačeno
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
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
Potpis
rgdrajko
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
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
Potpis
rgdrajko
Zahvaljujem na kodu, ali meni teba primer za HEADER WORDOVOG DOKUMENTA.
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, 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.
auuuuuuuuu ja nisam ni primetio, juce sam formatirao hdd pa nisam imao vb6i reko sta da skidam kad ne mogu da vidim....
izvinjavam se
izvinjavam se
Zahvaljujem se svima na angazovanju...
Pozdrav
Pozdrav