possibilité d'utiliser le modèle comme modèle global depuis la librairie... (cf8e2853) · Commits · FNSO / I-FAIR IR / modeles-stylage

MS_Word/Metopes/Commons-Metopes.dotm

0 → 100644

+299 KiB

File added.

No diff preview for this file type.

deleted100644 → 0

−303 KiB

File deleted.

+9 −16

Changes for MS_Word/Metopes/vba/modules/init_language.bas: 9 added lines, 16 removed lines.
Original line number	Diff line number	Diff line
		@@ -415,7 +415,7 @@ Sub GetImage(control As IRibbonControl, ByRef image)
		If Not present Then
		Select Case control.ID
		Case "init"
		image = "ShapeStar"
		image = "DeclineTask"
		End Select
		End If
		End Sub
		@@ -694,25 +694,18 @@ Sub ShowSections(control As IRibbonControl)
		End Sub

		Sub AccessGlobalTemplate()
		Dim globalTemplate As Template

		Dim templateFolder As String
		Dim templatePath As String
		Dim NormaltemplatePath As String

		'Localisation du template Normal, permet de reconstituer le path du dossier (condition pour fonctionnement Mac et PC)
		'Chemin + Nom fixe du modle de stylage ("COMMONS-Metopes.dotm")
		NormaltemplatePath = NormalTemplate.FullName
		templatePath = Left(NormaltemplatePath, Len(NormaltemplatePath) - Len(NormalTemplate.Name))
		customTemplatePath = templatePath & "COMMONS-Metopes.dotm"
		Dim customTemplatePath As String
		Dim fileName As String

		'MsgBox customTemplatePath
		templateFolder = Left(Application.Options.DefaultFilePath(wdUserTemplatesPath), _
		Len(Application.Options.DefaultFilePath(wdUserTemplatesPath)))
		fileName = "COMMONS-Metopes*.dotm"
		customTemplatePath = Dir(templateFolder & "\" & fileName)

		'Copie du modle global vers le champ du modle attach au document actif
		ActiveDocument.AttachedTemplate = customTemplatePath
		ActiveDocument.AttachedTemplate = templateFolder & "\" & customTemplatePath
		'Coche l'option mise jour automatique des styles de document
		ActiveDocument.UpdateStylesOnOpen = True
		End Sub



		End Sub