J'ai réalisé un modèle avec des insertions automatiques. J'aimerais imprimer
les insertions automatiques mais uniquement celles de mon modèle et non
celles du fichier Normal.dot.
Quelqu'un aurait-il une solution ?
Il 'existe bien une solution : supprimer toutes les insertions automatiques
du fichier Normal.dot mais ce n'est pas une solution vraiment satisfaisante
si je veux conserver les insertions automatiques du Nomal.dot.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
'number #1' nous a écrit ...
J'ai réalisé un modèle avec des insertions automatiques. J'aimerais imprimer les insertions automatiques mais uniquement celles de mon modèle et non celles du fichier Normal.dot. Quelqu'un aurait-il une solution ?
Voici une petite macro qui dresse un tableau des insertions automatiques (IA) du modèle du document actif. Ce tableau indique aussi le style c'est à dire la catégorie de chaque IA, ce que ne fait pas l'impresion.
Public Sub TableauIA() ' Dresse un tableau des IA (Nom/Valeur/Style) du modèle du document If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then Selection.EndKey Unit:=wdStory ActiveDocument.Tables.Add Range:=Selection.Range, _ NumRows:=1, NumColumns:=3 For Each IA In ActiveDocument.AttachedTemplate.AutoTextEntries Selection.TypeText Text:=IA.Name Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.Value Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.StyleName Selection.MoveRight Unit:=wdCell Next IA End If End Sub
Anacoluthe « L'automatisation : système simplifiant tellement le travail qu'on finira par avoir besoin d'un cerveau électronique pour se tourner les pouces. » - Benjamin SUBAC NOCTUEL
Bonjour !
'number #1' nous a écrit ...
J'ai réalisé un modèle avec des insertions automatiques. J'aimerais imprimer
les insertions automatiques mais uniquement celles de mon modèle et non
celles du fichier Normal.dot.
Quelqu'un aurait-il une solution ?
Voici une petite macro qui dresse un tableau des insertions
automatiques (IA) du modèle du document actif.
Ce tableau indique aussi le style c'est à dire la catégorie
de chaque IA, ce que ne fait pas l'impresion.
Public Sub TableauIA()
' Dresse un tableau des IA (Nom/Valeur/Style) du modèle du document
If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then
Selection.EndKey Unit:=wdStory
ActiveDocument.Tables.Add Range:=Selection.Range, _
NumRows:=1, NumColumns:=3
For Each IA In ActiveDocument.AttachedTemplate.AutoTextEntries
Selection.TypeText Text:=IA.Name
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=IA.Value
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=IA.StyleName
Selection.MoveRight Unit:=wdCell
Next IA
End If
End Sub
Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC NOCTUEL
J'ai réalisé un modèle avec des insertions automatiques. J'aimerais imprimer les insertions automatiques mais uniquement celles de mon modèle et non celles du fichier Normal.dot. Quelqu'un aurait-il une solution ?
Voici une petite macro qui dresse un tableau des insertions automatiques (IA) du modèle du document actif. Ce tableau indique aussi le style c'est à dire la catégorie de chaque IA, ce que ne fait pas l'impresion.
Public Sub TableauIA() ' Dresse un tableau des IA (Nom/Valeur/Style) du modèle du document If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then Selection.EndKey Unit:=wdStory ActiveDocument.Tables.Add Range:=Selection.Range, _ NumRows:=1, NumColumns:=3 For Each IA In ActiveDocument.AttachedTemplate.AutoTextEntries Selection.TypeText Text:=IA.Name Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.Value Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.StyleName Selection.MoveRight Unit:=wdCell Next IA End If End Sub
Anacoluthe « L'automatisation : système simplifiant tellement le travail qu'on finira par avoir besoin d'un cerveau électronique pour se tourner les pouces. » - Benjamin SUBAC NOCTUEL
number #1
Merci Anacoluthe pour cette macro.
J'en conclus que Word n'a pas prévu de commande pour imprimer les IA d'un modèle déterminé.
@+, et encore merci.
"Anacoluthe" a écrit dans le message de news: ubRCE#8$
Bonjour !
'number #1' nous a écrit ...
J'ai réalisé un modèle avec des insertions automatiques. J'aimerais imprimer
les insertions automatiques mais uniquement celles de mon modèle et non celles du fichier Normal.dot. Quelqu'un aurait-il une solution ?
Voici une petite macro qui dresse un tableau des insertions automatiques (IA) du modèle du document actif. Ce tableau indique aussi le style c'est à dire la catégorie de chaque IA, ce que ne fait pas l'impresion.
Public Sub TableauIA() ' Dresse un tableau des IA (Nom/Valeur/Style) du modèle du document If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then Selection.EndKey Unit:=wdStory ActiveDocument.Tables.Add Range:=Selection.Range, _ NumRows:=1, NumColumns:=3 For Each IA In ActiveDocument.AttachedTemplate.AutoTextEntries Selection.TypeText Text:=IA.Name Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.Value Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.StyleName Selection.MoveRight Unit:=wdCell Next IA End If End Sub
Anacoluthe « L'automatisation : système simplifiant tellement le travail qu'on finira par avoir besoin d'un cerveau électronique pour se tourner les pouces. » - Benjamin SUBAC NOCTUEL
Merci Anacoluthe pour cette macro.
J'en conclus que Word n'a pas prévu de commande pour imprimer les IA d'un
modèle déterminé.
@+, et encore merci.
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
ubRCE#8$DHA.552@TK2MSFTNGP11.phx.gbl...
Bonjour !
'number #1' nous a écrit ...
J'ai réalisé un modèle avec des insertions automatiques. J'aimerais
imprimer
les insertions automatiques mais uniquement celles de mon modèle et non
celles du fichier Normal.dot.
Quelqu'un aurait-il une solution ?
Voici une petite macro qui dresse un tableau des insertions
automatiques (IA) du modèle du document actif.
Ce tableau indique aussi le style c'est à dire la catégorie
de chaque IA, ce que ne fait pas l'impresion.
Public Sub TableauIA()
' Dresse un tableau des IA (Nom/Valeur/Style) du modèle du document
If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then
Selection.EndKey Unit:=wdStory
ActiveDocument.Tables.Add Range:=Selection.Range, _
NumRows:=1, NumColumns:=3
For Each IA In ActiveDocument.AttachedTemplate.AutoTextEntries
Selection.TypeText Text:=IA.Name
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=IA.Value
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=IA.StyleName
Selection.MoveRight Unit:=wdCell
Next IA
End If
End Sub
Anacoluthe
« L'automatisation : système simplifiant tellement le travail
qu'on finira par avoir besoin d'un cerveau électronique
pour se tourner les pouces. »
- Benjamin SUBAC NOCTUEL
J'en conclus que Word n'a pas prévu de commande pour imprimer les IA d'un modèle déterminé.
@+, et encore merci.
"Anacoluthe" a écrit dans le message de news: ubRCE#8$
Bonjour !
'number #1' nous a écrit ...
J'ai réalisé un modèle avec des insertions automatiques. J'aimerais imprimer
les insertions automatiques mais uniquement celles de mon modèle et non celles du fichier Normal.dot. Quelqu'un aurait-il une solution ?
Voici une petite macro qui dresse un tableau des insertions automatiques (IA) du modèle du document actif. Ce tableau indique aussi le style c'est à dire la catégorie de chaque IA, ce que ne fait pas l'impresion.
Public Sub TableauIA() ' Dresse un tableau des IA (Nom/Valeur/Style) du modèle du document If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then Selection.EndKey Unit:=wdStory ActiveDocument.Tables.Add Range:=Selection.Range, _ NumRows:=1, NumColumns:=3 For Each IA In ActiveDocument.AttachedTemplate.AutoTextEntries Selection.TypeText Text:=IA.Name Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.Value Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=IA.StyleName Selection.MoveRight Unit:=wdCell Next IA End If End Sub
Anacoluthe « L'automatisation : système simplifiant tellement le travail qu'on finira par avoir besoin d'un cerveau électronique pour se tourner les pouces. » - Benjamin SUBAC NOCTUEL
