VBA kode, som gør at dokument ikke bliver lukket

Prøv

Cancel = true

Det hjælper ikke, den alm. dialogbox kommer bagefter, og spørger om dokumentet skal gemmes?

Så må vi den hårde vej og selv oprette en close event... Det gøres således

1 .Opret et classemodul i dit document (altså i VBA)
2. Kald modulet "ThisApplication"
3. Indsæt følgende i modulet:

Public WithEvents oApp As Word.Application
Sub oApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)

Dim Rc As Integer
  If Selection.Information(wdNumberOfPagesInDocument) > 1 Then
      Rc = MsgBox("Forsiden må kun være på 1 side - tilret forsiden", 5 + 16, "Antal sider - forkert")
      Cancel = True
  End If
  Selection.EscapeKey


End Sub

4. Indsæt følgende i et almindeligt modul i dit dokument:

Option Explicit

Dim oAppClass As New ThisApplication

Public Sub AutoOpen()
    Set oAppClass.oApp = Word.Application
End Sub


Så skulle det virke :-)

Det fungerer perfekt - når jeg kører selve .dot-filen.
Så kommer det berømte men - jeg har en menu, som kalder denne skabelon,
dvs. der dannes en doc altså f.eks. "Dokument 2", her fungerer det ikke.

Der bliver ikke testet først om dokumentet er på 2 eller mere sider, den spørger
bare om jeg vil gemme "Dokument 2", så da slår funktionen ikke igennem.
Har du en god ide til det også?

Punkt 4 ændres til:

Indsæt følgende i ThisDocument i din skabelon:

Dim oAppClass As New ThisApplication

Sub Document_New()

  Set oAppClass.oApp = Word.Application

End Sub

Fik du svar på dine spørgsmål?

Tak

Fejl - undskyld - hvorfor kom den som afvist, RVM skulle have sine point, det havde jeg accepteret?