Hello,
Dans une macro Word qui copie des paragraphes d'un document à l'autre, j'ai ce bout de code qui importe un paragraphe à la fin du document cible:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
Public Function ImportWithStyle(srcPar As Paragraph, newDoc As Document, styleName As String) As Paragraph
Dim newPar As Paragraph
Dim r As Range
Set r = newDoc.Content
r.Collapse direction:=WdCollapseDirection.wdCollapseEnd
r.FormattedText = srcPar.Range.FormattedText
r.style = newDoc.Styles(styleName)
Set newPar = newDoc.Paragraphs(newDoc.Paragraphs.Count - 1)
Set ImportWithStyle = newPar
End Function |
Ca fonctionne globalement bien, mais je cherche maintenant à convertir la numérotation potentiellement en dur dans le code par une liste numéroté.
Par exemple, si j'ai en paragraphe source (donc le 1. en dur dans le texte), mon programme va importer (le 1er 1. étant dans la définition du style appliqué ayant un format de liste, le second étant toujours dans le texte).
Comment puis-je convertir le numéro en dur en liste numérotée (un peu l'inverse de la méthode ConvertNumbersToText) ?
Ce que je ne comprends pas, c'est que si j'applique un style avec liste numérotée, à la main dans Word, Word me génère la macro suivante :
Selection.Range.Style = ActiveDocument.Style("mon style de liste")
... qu'y a t'il de différent ?
Partager