opara1 = docword.Content.Paragraphs.Add
opara1 = docword.Content.Paragraphs.Add
opara1.Range.InsertParagraphAfter()
alors en sortie sur la ligne du document je n'ai plus que la dernière ligne soulignée et non plus la ligne avec les 1234567.... ligne qui a été écrasée !!!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionopara1 = docword.Content.Paragraphs.Add opara1.Range.Font.Size = 9 opara1.Range.Font.Name = "courier new" opara1.Range.Font.Bold = False opara1.Range.Text = "123456789012345678901234567890123456789012345678901234567890" & _ "123456789012345678901234567890123456789012345678901234567890123456789012" opara1.Format.SpaceAfter = 1 opara1.Range.InsertParagraphAfter() 'opara1 docword.Content.Paragraphs.Addopara1.Range.Text "------------------------------------------------------------" & _ "------------------------------------------------------------------------" opara1.Format.SpaceAfter = 2 opara1.Range.InsertParagraphAfter()
opara1 = docword.Content.Paragraphs.Add opara1.Range.Font.Size = 9 opara1.Range.Font.Name = "courier new" opara1.Range.Font.Bold = False opara1.Range.Text = "123456789012345678901234567890123456789012345678901234567890" & _ "123456789012345678901234567890123456789012345678901234567890123456789012" opara1.Format.SpaceAfter = 1 opara1.Range.Text = "------------------------------------------------------------" & _ "------------------------------------------------------------------------
et puis la doc que tu renseignes semble dire qu'il y a une expansion des attributs?? Ou je me trompe?
After this method is applied, the range expands to include the new paragraph.
opara1.Range.Text = "123456789012345678901234567890123456789012345678901234567890" & _ "123456789012345678901234567890123456789012345678901234567890123456789012" opara1.Range.Text = opara1.Range.Text & vbLF & "------------------------------------------------------------" & _ "------------------------------------------------------------------------"
opara1.Range.Text = "123456789012345678901234567890123456789012345678901234567890" & _ "123456789012345678901234567890123456789012345678901234567890123456789012" opara1.Range.Text = opara1.Range.Text & vbLF & "------------------------------------------------------------" & _ "------------------------------------------------------------------------
Disons que cela me paraissait si simple de définir le range sur tout le document, au départ et éventuellement juqu'à la prochaine modification ( un peu comme en HTML )
D'annoncer les attributs de fontsize, fontname, etc tant qu'on n'en a pas des
autres.
opara1.Range.Font.Size = 9 opara1.Range.Font.Name = "courier new" opara1.Range.Font.Bold = False
Mais c'est toi, qui a deécidé de limiter la mise en forme à UN paragraphe (ton objet opara1) par tes lignes
Dim opara1 as Word.Documentà la place de Word.Paragraph. Mais je n'ai pas réussi à initialiser cet élément avec "opara1 = docword.Content. ????" puis rien à disposition.