Tekst invoegen in bestaand word document.

[wimvd]

Beste,

Thuis ingesneeuwd met een groooooot (hopelijk ) finaal probleem
(en een grote vooraad wijn, hik).

De tekst invoegen was al gelukt (met jullie hulp:thumb
Maar nu heb ik nog 2 problemen:

Een deel van de tekst moet in de koptekst komen en dat doet ie niet, die wordt gewoon neerplaatst waar de cursor staat.

Dan is er nog een deel met opgemaakte tekst, die is in de query nog wel opgemaakt
maardie komt niet opgemaakt over in het word document. Met bv de <DIV> tekens

Heeft hier iemand ervaring mee?

Nogmaals mijn welgemeende dank voor alle hulp die ik al mocht ontvangen!!!

 

[OctaFish]

Welke code gebruik je om de tekst in je document te zetten? Voor kop-en voettekst moet je waarschijnlijk Bookmarks gebruiken; of op een andere manier aangeven dat de tekst niet in het document moet, maar in de koptekst.

 

[wimvd]

'Try to get a running instance of Word:
  Set WordObj = GetObject(, "Word.Application")
  If Err.Number <> 0 Then
    'An error is thrown if Word is not running,
    'so use CreateObject to start up Word:
    Set WordObj = CreateObject("Word.Application")
  End If
  
  'Make sure the user can see Word:
  WordObj.Visible = True
  
  'Warning:
  'Specify the correct drive and path to the
  'file named Thanks.dotx in the line below.
  
  WordObj.Documents.Add _
  Template:="C:\sjablonen_word_pb_tsa\pb_aanvang_huur.dotx", NewTemplate:=False
  
  With WordObj.Selection

    .GoTo What:=wdGoToBookmark, Name:="koptekst"
    .TypeText rs![koptekst]

Ook heb ik geprobeert een macro op te nemen in word: naar koptekst gaan en dan naar bookmark "koptekst", tekst toevoegen "type tekst" en dan uit de koptekst gaan.
Die code heb ik bij tussen de code in access gezet, maar ik geraak niet in de koptekst op die manier.

Moet ik ook extra's toevoegen om opgemaakte tekst in word te krijgen, een soort
Rich tekst optie misschien?

MVG,

Wim

 

[OctaFish]

Waarschijnlijk werkt jouw methode niet: Van een website haalde ik deze info:
(This method does not work with bookmarks in Headers/Footers)
Selection.GoTo What:=wdGoToBookmark, Name:="Name"

Dit zou wel kunnen werken:
Bookmark, Select a Bookmark:
(This method works when using bookmarks in Headers/Footers)
ActiveDocument.Bookmarks("BookmarkName").Select

Bookmark, Insert Text Using Range (Change Content of Range):
(This method works when using bookmarks in Headers/Footers)
ActiveDocument.Bookmarks("BookmarkName").Range.Text="Text"

 

[wimvd]

Geweldig!!!

THX Michel!

 ActiveDocument.Bookmarks("koptekst").Range.Text = rs![koptekst]

Na veel proberen en puffen ben ik erachter gekomen dat het wel maar 1 keer lukt.
Wanneer de database terug geopend word gaat het terug 1 keer.
Das op zich niet echt een probleem, als je het weet .

Ik denk trouwens dat de ingevoegde tekst op die manier ook kan opgemaakt worden,
ik bedoel met de RANGE funtie.

MVG,

Wim