title image


Smiley Re: Template nur 1X zur Zeit zulassen(VBA)
du könntest folgenden Code einbringen und dann entsprechend bestimmen, was mit dem aktuellen oder aber auch scon geöffnetem Dokument mit gleicher Vorlage passieren soll.



Private Sub Document_New()

    Call fct_templatetest

End Sub



Function fct_templatetest()



    Dim i As Long, j As Long

    Dim strDocAttName As String

    Dim strDocName As String

    

    strDocAttName = ActiveDocument.AttachedTemplate.FullName

    strDocName = ActiveDocument.FullName

    

    If 1 < Application.Documents.Count Then

        StatusBar = "one or more files are opened!"

        For i = 1 To Application.Documents.Count

            If strDocName <> Application.Documents(i).FullName Then

                If Application.Documents(i).AttachedTemplate.FullName = strDocAttName Then

                    MsgBox "document with the same AttachedTemplate is open" & vbCr & _

                           "Templatename: " & strDocAttName, vbInformation, "fct_templatetest"

                    Goto Step1_fct_templatetest

                End If

            End If

        Next i

    End If

    

Step1_fct_templatetest:



    'hier könnte weiterer Code stehen, welcher veranlaßt werden soll, wenn man auf

    'unter den geöffneten Dokumenten auf ein solches stößt, welches die selbe Vorlage

    'verwendet



End_fct_templatetest:



    'Fehlerkennung löschen

    Err.Clear

    Debug.Print "End_fct_templatetest"

    'Prozedur verlassen

    Exit Function

    

Err_fct_templatetest:                  'errorhandling

    

    Select Case Err

    Case Else 'unbekannter (nicht speziell zu bearbeitender) Fehler

        MsgBox Err.Number & vbCr & Err.Description, _

               vbInformation, "Err_fct_templatetest"

    End Select

    Goto End_fct_templatetest



End Function

Code eingefügt mit Syntaxhighlighter 1.14
 
Gruß Martin




eMail und OfficeLine




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: