[es] - Upisivanje podataka u Word dokument

marko_81
Marko Acović
Gornji Milanovac

Član broj: 97248
Poruke: 35
212.62.37.*

Profil

Re: Upisivanje podataka u Word dokument

^{14.05.2007. u 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.

^{14.05.2007. u 14:57}

rgdrajko
Beograd

Član broj: 117734
Poruke: 611
80.93.249.*

Sajt: www.enigmatika.zzl.org

Profil

Re: Upisivanje podataka u Word dokument

^{14.05.2007. u 18:34}

Budi malo precizniji.

www.enigmatika.zzl.org

^{14.05.2007. u 18:34}

marko_81
Marko Acović
Gornji Milanovac

Član broj: 97248
Poruke: 35
212.62.37.*

Profil

Re: Upisivanje podataka u Word dokument

^{15.05.2007. u 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.).

^{15.05.2007. u 07:45}

rgdrajko
Beograd

Član broj: 117734
Poruke: 611
80.93.249.*

Sajt: www.enigmatika.zzl.org

Profil

Re: Upisivanje podataka u Word dokument

^{15.05.2007. u 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

www.enigmatika.zzl.org

^{15.05.2007. u 13:06}