Re: koppeling met word
M
> Krijg de koppeling met word (word-sjabloon) wel voor elkaar maar hoe krijg ik
> nu de gegevens van access in het betreffende word document.
>
> Kan iemand me helpen.
zoek eens naar eerder post in deze groep, en mogelijk dat deze link je
meer info levert
http://www.4tops.com/wordlink.htm
--
M.
goose
Dit is niet iets wat ik zoek. In VBA kan je een link leggen naar Word
Dim wd as word.application
set wd = createObject ("word.application")
wd.visible = true
wd.activate
wd.windowstate = wdwindowstate maximize
wd.documents.add "c:\brieven\*.dot)
With wd.actoveDocument
. Bookmark ("adres") .range.text = format (me.adres)
End With
maar hier loopt het op vast.
Graag hulp om dit op te lossen
M
. Bookmark ("adres") .range.text = format$(me.adres)
--
M.
Goos van Beek
Ik weet niet of je een active document met een sterretje kunt aangeven?
wd.Documents.Add "c:\brieven\*.dot)"
verder moet je deze regel splitsen,, want het lijken me twee opdrachten
With wd.ActiveDocument
.Bookmark ("adres")
.Range.Text = Format(Me.Adres)
End With
Wanneer je je object al als Word Applicayion declareert kun je beter early
binding gebruiken.
Dim wd As Word.Application
Set wd = New Word.Application
Wanneer je de code gekopieerd het zitten er wel wat fouten in
wd.WindowState = wd.WindowState.Maximize
--
Goos van Beek
http://members.chello.nl/goosvanbeek/
Access tools die je niet mag missen!!
http://www.mztools.com/v3/download.htm
http://www.oaltd.co.uk/Indenter/Default.htm
"goose" <go...@discussions.microsoft.com> schreef in bericht
news:56060747-A033-4A00...@microsoft.com...
Paul Witmond
Heb je hier iets aan ?
Public Function OfferteBewerken()
'DoCmd.Echo False
Dim rst As Recordset
Dim WdObj As New Word.Application
Dim StrNaam, StrAdres, StrPostcode, StrPlaats, StrNaw, StrLand, StrContact
As String
Dim Teller, AantalRec As Integer
Dim dbs As Database
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Tbl_Koppelingen")
rst.MoveFirst
Set WdObj = CreateObject("Word.Application")
WdObj.Documents.Open rst!DocumentenMap & rst!DebiteurenBrief
rst.Close
Set rst = dbs.OpenRecordset("select * from Qry_Word_Offerte where
offertenummer=" & Forms!frm_offertes!OfferteNummer)
AantalRec = rst.RecordCount
If AantalRec = 0 Then Exit Function
rst.MoveFirst
StrNaam = IIf(IsNull(rst!OfferteNaam), "", rst!OfferteNaam)
StrAdres = IIf(IsNull(rst!OfferteAdres), "", rst!OfferteAdres)
StrPostcode = IIf(IsNull(rst!OffertePostcode), "", rst!OffertePostcode)
StrPlaats = IIf(IsNull(rst!OffertePlaats), "", rst!OffertePlaats)
StrLand = IIf(IsNull(rst!OfferteLand), "", rst!OfferteLand)
'Maak er een mooi postadres van
StrNaw = StrNaam + vbCr + StrAdres + vbCr + UCase(StrPostcode) + " " +
UCase(StrPlaats) + vbCr + StrLand
'Plaats NAW in document
WdObj.Selection.Goto what:=wdGoToBookmark, Name:="naw"
WdObj.Selection.InsertBefore StrNaw
WdObj.Selection.Goto what:=wdGoToBookmark, Name:="referentie"
WdObj.Selection.InsertBefore rst!Referentie
'recordset doorlopen op artikelen
WdObj.Selection.Goto what:=wdGoToBookmark, Name:="ArtikelRegel"
Do Until rst.EOF Or rst.BOF
WdObj.Selection.InsertAfter rst!RapportAantal & " " &
rst!RapportOmschrijving
WdObj.Selection.InsertAfter vbCr
Teller = Teller + 1
rst.MoveNext
Loop
DoCmd.Echo True
WdObj.Visible = True
End Function
goose
Krijg het niet voor mekaar,
Ik gebruik de tabellen TblKadaster en TblEigenaar
In de TblKadaster zijn de velden die in het word document (kadaster.dot)
moeten komen "kadaster, adres, huisnummer, huisnummer_toevoeging, Postcode en
Woonplaats" van de TblEigenaar zijn het de velden "adres, huisnummer,
toevoeging_huisnummer, postcode, woonplaats en kadastrale gegevens".
Kan je me misschien verder helpen.
Paul Witmond
Het belangrijkste is dat jouw Word document de juiste bladwijzers heeft
Mijn code zoekt de juiste bladwijzer en vult daar wat in
Lukt het niet mail dan even direct (gaat sneller)
pa...@swsolutions.nl
"goose" <go...@discussions.microsoft.com> schreef in bericht
news:1317AC75-E4F1-475E...@microsoft.com...