Normal.dot probleem

[gcjvanbeek]

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 :

 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:

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

 

[snb]

Waarom lees je het in als 'alleen lezen' ?

 

[gcjvanbeek]

Alleen lezen

Alleen lezen omdat document alleen als naslagwerk bekeken mag worden, nadat het geprint en verzonden is.
Apestaart

 

[snb]

Daar heeft Word een eenvoudiger methode voor:

Documents.add "oorspronkelijk document.doc"

Dit is een exacte kopie van het bestand dat onder een andere naam wordt aangemaakt. Een doc-bestand kan evengoed als 'sjabloon' dienen als een dot-bestand.