[es] - Upisivanje podataka u Word dokument

marko_81
Marko Acović

Član broj: 97248
Poruke: 133
*.vdial.verat.net.

+1 Profil

^{06.05.2007. u 17:47 - pre 206 meseci}

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

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.net.t-com.hr.

+1 Profil

Re: Upisivanje podataka u Word dokument

^{06.05.2007. u 19:27 - pre 206 meseci}

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

WordDoc.Paragraphs.LeftIndent = CentimetersToPoints(7.3)

steve585

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Upisivanje podataka u Word dokument

^{10.05.2007. u 22:28 - pre 206 meseci}

Evo program sa kompletnim kodom za tvoj problem.

rgdrajko

Prikačeni fajlovi

creating word doc.zip - 6.83k

Odgovor na temu

marko_81
Marko Acović

Član broj: 97248
Poruke: 133
212.62.37.*

+1 Profil

Re: Upisivanje podataka u Word dokument

^{14.05.2007. u 14:57 - pre 206 meseci}

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.

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Upisivanje podataka u Word dokument

^{14.05.2007. u 18:34 - pre 206 meseci}

Budi malo precizniji.

rgdrajko

Odgovor na temu

marko_81
Marko Acović

Član broj: 97248
Poruke: 133
212.62.37.*

+1 Profil

Re: Upisivanje podataka u Word dokument

^{15.05.2007. u 07:45 - pre 206 meseci}

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.).

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Upisivanje podataka u Word dokument

^{15.05.2007. u 13:06 - pre 206 meseci}

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

rgdrajko

Odgovor na temu