VBA - Word Mergefield

[Sven2007]

Ik draai een vb 6.0 applicatie en wil de waarden die ik kies of selecteer in die applicatie wegschrijven naar een bestand van word waar er een standaard tekst staat. Deze tekst moet met die geselecteerde waarden aangevuld worden...

Moet ik dit met Mergefields doen of ... ?

 

[Axel Hagg]

Dag Sven,

With CreateObject("Word.Application")
.Documents.Open FileName:="C:\Worddocument.doc"
.Selection.TypeText Text:"=TekstVanVB6-Applicatie
End With

Probeer dit eens.

Succes,

Axel.

 

[Sven2007]

Alvast bedankt! Maar waar komt die tekst dan terecht ?

 

[watrex]

Beste Sven,

Misschien is dit al voldoende voor u?
Ik heb een stukje code die de tekst van een worddoc copiëert en het plakt in een ander document.
Na het openen, de select en de copy van de tekst open ik het tweede document en doe
het volgende:

worddoc.ActiveWindow.Selection.MoveDown Unit:=wdLine, Count:=21
worddoc.ActiveWindow.Selection.PasteSpecial

Ik ga dus 21 lijnen omlaag en paste dan. Let wel op dat als je paste op een nieuw
document, dat de tekst vanboven blijft. Er moet in dit geval al 21 keer 'ge-entered' zijn zodat er al 21 lijnen vrijgemaakt zijn. En dan kan je de tekst plaatsen.
Je kan ook nog de plaats in een lijn meegeven door .MoveRight Unit:=wdCharacter Count:=10 te gebruiken.

 

[Axel Hagg]

Dag Sven,

With CreateObject("Word.Application")
.Documents.Open FileName:="C:\Worddocument.doc"
With .Selection.Find
.Text = "zoektekst"
.Execute
End With
.Selection.TypeText Text:"=TekstVanVB6-Applicatie
End With

Zet in het te vullen Word-document een zoektekst. Wanneer het document wordt geopend wordt eerst deze tekst gezocht (en geselecteerd). Daarna wordt de selectie vervangen door de tekst uit de VB6-applicatie.

Succes,

Axel