Commit eb42c2aa authored by Edith Cannet's avatar Edith Cannet
Browse files

modèle utilisable comme modèle global ou non, préfixe Commons

parent 0502e13e

MS_Word/Metopes/Commons-publishing-Metopes-modele-global.dotm

0 → 100644
+299 KiB

File added.

No diff preview for this file type.

View file

MS_Word/Metopes/vba/modules/init_language.bas

+42 −8
Original line number Diff line number Diff line
@@ -694,18 +694,52 @@ Sub ShowSections(control As IRibbonControl) 
End Sub



Sub AccessGlobalTemplate()

    Dim template As template

    Dim attachedTemplateName As String

    Dim selectedGlobalTemplates As String

    Dim templateFolder As String

    Dim customTemplatePath As String

    Dim fileName As String

    Dim preAttachedTemplate As String

    

    templateFolder = Left(Application.Options.DefaultFilePath(wdUserTemplatesPath), _

                Len(Application.Options.DefaultFilePath(wdUserTemplatesPath)))

    fileName = "COMMONS-Metopes*.dotm"

    customTemplatePath = Dir(templateFolder & "\" & fileName)

    preAttachedTemplate = ActiveDocument.AttachedTemplate

    

    'Copie du modle global vers le champ du modle attach au document actif

    ActiveDocument.AttachedTemplate = templateFolder & "\" & customTemplatePath

    selectedGlobalTemplates = ""

    

     If InStr(preAttachedTemplate, "Commons") > 0 Then

           'MsgBox "Un modle Commons est dj attach au document"

        Else

            For Each template In Application.Templates

            attachedTemplateName = template.Name

            If attachedTemplateName Like "Commons*" Then

                selectedGlobalTemplates = attachedTemplateName

                'MsgBox "attachedTemplateName: " & attachedTemplateName

            End If

        Next template

    

        If selectedGlobalTemplates <> "" Then

        

            #If Mac Then

                customTemplatePath = templateFolder & selectedGlobalTemplates

            #Else

                customTemplatePath = templateFolder & "\" & selectedGlobalTemplates

            #End If

            

            'MsgBox "customTemplatePath = " & customTemplatePath

            

            'Nettoyage du champ du modle

            ActiveDocument.AttachedTemplate = ""

            'Copie du modle global vers le champ du modle attach au document actif

            ActiveDocument.AttachedTemplate = customTemplatePath

            'Coche l'option mise  jour automatique des styles de document

            ActiveDocument.UpdateStylesOnOpen = True

    

            'Et copier-coller des styles du modle li vers le document actif

            ActiveDocument.CopyStylesFromTemplate _

 template:=ActiveDocument.AttachedTemplate.FullName

        Else

    MsgBox "Please select a Commons template."

        End If

    End If

End Sub