ingebouwde dialoogvensters

[jvsoest]

Hallo,

In Word vang ik het "opslaan als" af. Bij een gewoon document laat ik het dialoogvenster zien voor "Opslaan als" en anders een speciale procedure.

Ik heb nu ontdekt dat wanneer je de "opslaan als" procedure afvangt en je hebt het vinkje aan staan voor "vragen om eigenschappen bij opslaan" dat er niet gevraagd wordt om deze eigenschappen.

Gooi ik de afvangcode eruit dan wordt er wel weer om de eiegnschappen gevraagd, maar ik moet deze afvangcode gebruiken maar dit mag niet de normale werking van Word belemmeren. Iemand hier ervaring mee?

Sub BestandOpslaanAls()
Dim strNaam As String
Dim intKnop As Integer
Dim strType As String
On Error GoTo fout
If InStr(LCase(ActiveDocument.Name), ".dot") = 0 Then 'sjablonen niet dus
If bBestaatDocEigenschap("BriefType") Then
Dim strWaardeBrieftype As String
strWaardeBrieftype = LCase(ActiveDocument.CustomDocumentProperties("Brieftype").Value)
If strWaardeBrieftype = "divweb" Then
subOpslaanDivwebDocumenten
'MsgBox "Divweb opslaan"
Else

subBestandOpslaanAls
End If
Else
'niet.show gebruiken dan worden wachtwoorden niet opgeslagen
subBestandOpslaanAls
End If
Else
subBestandOpslaanAls
End If
Exit Sub
fout:
If Err.Number = 4198 Then Exit Sub
End Sub

Sub subBestandOpslaanAls()
With Dialogs(wdDialogFileSaveAs)
intKnop = .Display
strNaam = .Name
strType = .Format 'om op te slaan in ander formaat
.Update
.Name = strNaam
.Format = strType
If intKnop = -1 Then
.Execute
End If
End With

End Sub