[Delphi + Word] Text, Memo & Pictures invoegen

Pagina: 1
Acties:

  • Da_Jackal
  • Registratie: Juni 2000
  • Laatst online: 07-08 17:15
Wie helpt mij uit de brand?

Ik zoek info of kant-en-klare regels code om zowel text, memo/listbox-velden & Pictures toe te voegen in een nieuw aan te maken Word-document.

Text toevoegen, dat lukt me onderhand wel, maar tips zijn altijd welkom.

Memo/listbox-velden weet ik nog niet toe te voegen.

Pictures zijn 't grootste struikelblok voor me. Wie weet hoe ik die moet toevoegen in een Word-document.

Dit alles vanuit Delphi 5.
Ik heb al een WordDocument1 & een WordApplication1 component op 't form gezet.
De begincode:
code:
1
2
3
4
5
6
7
//Make new Word-document
WordApplication1.Connect;
WordApplication1.Visible := True;

WordDocument1.Activate;
WordDocument1.Range.Text := 'StockID: ' + StockID;
WordDocument1.Range.Text := 'Groupnumber: ' + Groupnr;

Alleen krijg ik alleen 'Groupnumber: 3100' in 't Word-document te zien. Hoe moet ik een regel overslaan? (Dus een enter geven)

StockID & Groupnr zijn variabelen van 't type string.

Het gaat me om die enters geven & daarnaast vooral om 't toevoegen van plaatjes.

  • jopiek
  • Registratie: September 2000
  • Laatst online: 21-08 19:56

jopiek

Tja... 'ns ff denken.

Cogito Ergo Credo


  • Da_Jackal
  • Registratie: Juni 2000
  • Laatst online: 07-08 17:15
Dank je Jopiek, die laatste had ik al, maar ik wist niet wat ik voor .Selection.TypeText moest zetten. Nu weet ik dat daar WordApplication voor moet. Dus WordApplication.Selection.Typetext('text');

Ik heb 't dankzij de macro-recorder in Word voor elkaar gekregen om zowel text als pictures erin te krijgen.

Nog heb ik nog een bijkomend probleem:
Hoe kan ik de picture resizen?? Sommige foto's zijn wel erg groot & nemen een hele pagina in beslag. Deze wil ik in een voorgedefinieerd formaat zetten.
Voor Portrait-foto's: 240 x 320
Landscape: 320 x 240
Square: 320 x 320

Ik heb geprobeerd om een macro op te nemen, terwijl ik een picture resize, maar dit kan om de een of andere vreemde reden niet. Wie weet de oplossing?

  • Tomatoman
  • Registratie: November 2000
  • Laatst online: 04-09 16:11

Tomatoman

Fulltime prutser

Monitorinstellingen vanuit Delphi aanpassen ;)

Een goede grap mag vrienden kosten.


Verwijderd

Kijk eens op http://www.tipps.delphi-source.de/
het is wel duits maar is goed te begrijpen (voor mij tenminste en ik ben zo nederlands als het maar kan) en er staat vanalles op over OLE-automation en nog wel meer handige dingen. ;)