gcjvanbeek
Gebruiker
- Lid geworden
- 27 nov 2006
- Berichten
- 164
Dames en heren,
Ik heb in VB in Access een code geschreven om een Word document te vullen met variabele gegevens. (doc variabelen). Het document wordt daarna weggeschreven Dat lukt allemaal goed, Echter als ik het document open als alleen lezen ( via VB code) wordt het weergegeven in de "Normale weergave" en niet in de "Afdrukweergave", van het oorspronkelijke document . Dit betekent tevens dat als ik het document afsluit er een vraag komt : "Wilt u de wijzigingen opslaan?"
Ik hoop dat iemand me kan helpen.
Apestaart
Code voor schrijven in document :
Code voor het openen van Word in alleen lezen mode:
Ik heb in VB in Access een code geschreven om een Word document te vullen met variabele gegevens. (doc variabelen). Het document wordt daarna weggeschreven Dat lukt allemaal goed, Echter als ik het document open als alleen lezen ( via VB code) wordt het weergegeven in de "Normale weergave" en niet in de "Afdrukweergave", van het oorspronkelijke document . Dit betekent tevens dat als ik het document afsluit er een vraag komt : "Wilt u de wijzigingen opslaan?"
Ik hoop dat iemand me kan helpen.
Apestaart
Code voor schrijven in document :
Code:
If strWordDoc = "Probleemanalyse WIA" Or strWordDoc = "Plan van aanpak WIA" Or strWordDoc = "Bijstelling probleemanalyse WIA" Or strWordDoc = "Oordeel van de werknemer" Or strWordDoc = "Medische informatie WIA" Or strWordDoc = "Act. oordeelprobl. analyse WIA" Or strWordDoc = "Eindeval plan van aanpak WIA" Or strWordDoc = "1ste j eval plan van aanpak WIA" Or strWordDoc = "Aanvraag WIA uitkering" Or strWordDoc = "Verkort re-integratieverslag" Then
Set Document = GetObject(strDocument)
With Document
.Variables("Vol naam") = Nz(strMedewerker, "")
.Variables("Bedrijfsnaam") = Nz(strBedrijfsnaam, "")
.Variables("Contactpersoon_bedrijf") = Nz(strContactpersoonbedrijf, "")
.Variables("Straat") = Nz(strStraat, "")
.Variables("Postcode") = Nz(strPostcode, "")
.Variables("Plaats") = Nz(strPlaats, "")
.Variables("Telefoonw") = Nz(strTelefoonw, "")
.Variables("Werknemernummer") = Nz(strWerknemernummer, "")
.Variables("Sofinummer") = Nz(strSofinummer, "")
.Variables("Medewerker") = Nz(strMedewerker, "")
.Variables("Geboortedatum") = Nz(strGeboortedatum, "")
.Variables("Bezoekadres") = Nz(strAdres, "") & " " & Nz(strPostcodeplaats, " ")
.Variables("Adres") = Nz(strAdres, "")
.Variables("Postcode plaats") = Nz(strPostcodeplaats, " ")
.Variables("Telefoonr") = Nz(strTelefoonr, "")
.Variables("Postcoder") = Nz(strPostcoder, "")
.Variables("Plaatsr") = Nz(strPlaatsr, "")
.Variables("Functie") = Nz(strFunctie, "")
.Variables("Datum") = Nz(strDatum, "")
.Variables("Aanhef") = Nz(strGeachte, "")
.Variables("Arts") = Nz(strArts, "")
.Variables("Eind_arbeidsproces") = Nz(strEindArbeidproces, "")
.Variables("Functie") = Nz(strFunctie, "")
.Fields.Update
.Application.Visible = True
End With
End If
Me("Sub verzonden").SetFocus
Rec = Me.[Sub verzonden].Form.RecordsetClone.RecordCount + 1
DoCmd.GoToRecord , , acGoTo, Rec
Me![Sub verzonden].Form![RelatieID] = Me!RelatieID
Me![Sub verzonden].Form![Datum verstuurd] = strDate
strDocID = Str(Me!RelatieID) & "-" & Str(Rec)
If Geert = 1 Then 'Toegevoegd mei 2006
strDocID = strDocID & "G"
Else
strDocID = strDocID & "J"
End If
strLetterDir = strDocPad & strWordDoc & strDocID
Me![Sub verzonden].Form![Document] = strWordDoc & strDocID 'Tot hier
If strWordDoc = "Leeg document" Then
'appWord.Visible = False
strWordDoc = InputBox("Onder welke naam wilt u het lege document opslaan?", , , 5000, 5000)
Me![Sub verzonden].Form![Document] = strWordDoc
strLetterDir = strDocPad & strWordDoc
End If
With Document
.SaveAs strLetterDir
End With
Code voor het openen van Word in alleen lezen mode:
Code:
Private Sub Document_DblClick(Cancel As Integer)
strWordDoc = Me![Document]
strLetterDir = strDocPad & strWordDoc
strLetter = strLetterDir & ".doc"
Debug.Print "Letter: " & strLetter
Documents.Open FileName:=strLetter, ReadOnly:=True, Visible:=True
End Sub