Upisivanje podataka u Word dokument

[ marko_81 @ 06.05.2007. 17:47 ] @

Kako da na tacno odredjena mesta unutar Word dokumenta upisem odogovarajuce podatke koje generise moja VB6 aplikacija? Unapred hvala!

[ steve585 @ 06.05.2007. 19:27 ] @

Ovo je code za određivanje pozicije u odnosu na lijevu marginu:

WordDoc.Paragraphs.LeftIndent = CentimetersToPoints(7.3)

[ rgdrajko @ 10.05.2007. 22:28 ] @

Evo program sa kompletnim kodom za tvoj problem.

[ marko_81 @ 14.05.2007. 14:57 ] @

Hvala ti, ali vec sam skinuo taj kod. Medjutim on mi ne daje onaj stepen slobode koji ja zelim (on samo definise kolone i vrste i onda popunjava kao u matricu). Ne treba mi to. Mene interesuje kako da na bukvalno, bilo kom mestu unutar jedne word stranice upisem neki svoj text.

[ rgdrajko @ 14.05.2007. 18:34 ] @

Budi malo precizniji.

[ marko_81 @ 15.05.2007. 07:45 ] @

Imam forimular koji treba da popunim na odredjenim mestima. Formular je word dokument. Zato mi je bitno da mogu na tacno odredjenom mestu upisivati vrednosti tekstualnih polja iz forme (npr: 5 red, 10 kolona upisati ime dobavljaca, pa zatim 10 red 20 kolona upisati vrstu dobara itd.).

[ rgdrajko @ 15.05.2007. 13:06 ] @

U helpu Worda otkucaj: field codes.

Evo nekih primera sa http://www.jojo-zawawi.com/code-samples-pages/code-samples.htm:

Code:

Field Code, Lock Field Code:
Selection.Fields.Locked = True

Field Code, Insert SEQ Field Code:
Selection.Fields.Add Range:=Selection.Range, _
   Type:=wdFieldEmpty, Text:="SEQ name \n", _
   PreserveFormatting:=True

Field Code, Reset SEQ Field Code to Zero (Restart #ing):
Selection.Fields.Add Range:=Selection.Range, _
   Type:=wdFieldEmpty, Text:="SEQ name \r0 \h ", _
   PreserveFormatting:=True

Field Code, Sequence Numbering Field Codes With Sub-Levels:
Level 1:
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
   Text:="SEQ \L1 \*arabic \c \* MERGEFORMAT", _
   PreserveFormatting:=True
Level 2:
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
   Text:="SEQ \L2 \*alphabetic \c \* MERGEFORMAT", _
   PreserveFormatting:=True
(etc.)

Field Code, SEQ#, Reset #s to 0:
Selection.Fields.Add _
   Range:=Selection.Range, Type:=wdFieldEmpty, _
   Text:="SEQ L1 \r0 \h", PreserveFormatting:=True
Selection.Fields.Add _
   Range:=Selection.Range, Type:=wdFieldEmpty, _
   Text:="SEQ L2 \r0 \h", PreserveFormatting:=True

Field Code, Unlock Field Code:
Selection.Fields.Locked = False

Field Code, Update Field Code:
Selection.Fields.Update

Field Code, View Field Codes:
ActiveWindow.View.ShowFieldCodes = True

Field Code, View Field Codes (with all the junk):
ActiveWindow.View.ShowFieldCodes = _
   Not ActiveWindow.View.ShowFieldCodes
With ActiveWindow
   With .View
      .ShowFieldCodes = True
   End With
End With