A voir également:
- Saut de ligne par rapport à l'emplacement courant (VBA)
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Hors ligne instagram - Guide
- Saut de ligne chatgpt - Forum Réseaux sociaux
4 réponses
m@rina
Messages postés
20027
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
11 269
18 juin 2017 à 07:05
18 juin 2017 à 07:05
Bonjour
Deja je ne comprends pas ta boucle et ton IF... puisque tu connais le template, autant le nommer directement.
Ensuite des tableaux se chevauchent uniquement s'ils ont un habillage. Si habillage non nécessaire, il ne faut pas en mettre, c'est toujours plus compliqué. Donc commence par recréer tes blocs sans habillage et nomme ton template.
m@rina
Deja je ne comprends pas ta boucle et ton IF... puisque tu connais le template, autant le nommer directement.
Ensuite des tableaux se chevauchent uniquement s'ils ont un habillage. Si habillage non nécessaire, il ne faut pas en mettre, c'est toujours plus compliqué. Donc commence par recréer tes blocs sans habillage et nomme ton template.
m@rina
Bonjour et merci pour votre réponse !
Je n'arrive pas à insérer de quickpart sans la boucle IF si je vais directement chercher l'objet :S avec le code suivant, Word ne trouve pas :
Private Sub Insert_Click()
Templates.LoadBuildingBlocks ' chargement du template building blocks
Templates(docModele.FullName).BuildingBlockEntries("test"). _
Insert Where:=Selection.Range, RichText:=True
End Sub
Ensuite, mes tableaux n'ont pas d'habillage. J'ai du mal m'exprimer, mais en gros quand j'insère à la suite plusieurs quickpart type tableau (nommés "test"), au lieu de me créer plusieurs tableaux l'un en dessous de l'autre, cela me créé un seul tableau où, à chaque clique, viennent s'ajouter des lignes.
Si vous avez des suggestions je serai très très intéressé ^^
Bonne fin de journée :)
Je n'arrive pas à insérer de quickpart sans la boucle IF si je vais directement chercher l'objet :S avec le code suivant, Word ne trouve pas :
Private Sub Insert_Click()
Templates.LoadBuildingBlocks ' chargement du template building blocks
Templates(docModele.FullName).BuildingBlockEntries("test"). _
Insert Where:=Selection.Range, RichText:=True
End Sub
Ensuite, mes tableaux n'ont pas d'habillage. J'ai du mal m'exprimer, mais en gros quand j'insère à la suite plusieurs quickpart type tableau (nommés "test"), au lieu de me créer plusieurs tableaux l'un en dessous de l'autre, cela me créé un seul tableau où, à chaque clique, viennent s'ajouter des lignes.
Si vous avez des suggestions je serai très très intéressé ^^
Bonne fin de journée :)
m@rina
Messages postés
20027
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
11 269
21 juin 2017 à 16:30
21 juin 2017 à 16:30
Bonjour
Si ton bloc se trouve dans le building blocks.dotx, il n'est pas dans le template du document.
Il faut indiquer en dur l'emplacement, par exemple :
chemin = Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Document Building Blocks\1036\16\Building blocks.dotx"
Application.Templates(chemin).BuildingBlockEntries("test").Insert Where:=Selection.Range, RichText :=True
Quant à tes tableaux on peut insérer un saut de ligne, mais pourquoi ne pas ajouter le saut de ligne au bloc ? C'est + simple.
m@rina
Si ton bloc se trouve dans le building blocks.dotx, il n'est pas dans le template du document.
Il faut indiquer en dur l'emplacement, par exemple :
chemin = Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Document Building Blocks\1036\16\Building blocks.dotx"
Application.Templates(chemin).BuildingBlockEntries("test").Insert Where:=Selection.Range, RichText :=True
Quant à tes tableaux on peut insérer un saut de ligne, mais pourquoi ne pas ajouter le saut de ligne au bloc ? C'est + simple.
m@rina