( je suis un peu perdu dans le fatras de code sur ce sujet , et ne parviens pas à comprendre la logique, le mécanisme. Beaucoup sur google et autres, mais pas clair pour moi - ma faute sans doute ).
Question 1 :
comment faire les choix de font size, fontname, marges, etc, ET L'APPLIQUER A TOUT LE DOC.
Mon code ( brouillon ) et j'explique
Dim objword As Word.Application
Dim docword As Word.Document
Dim opara1 As Word.Paragraph
objword = CreateObject("word.application")
docword = objword.Documents.Add
With docword
.PageSetup.PaperSize = Word.WdPaperSize.wdPaperA4
.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape
.PageSetup.LeftMargin = 60
.PageSetup.RightMargin = 50
.PageSetup.TopMargin = 50
.PageSetup.BottomMargin = 50
End With
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.InsertParagraphAfter()
opara1 = docword.Content.Paragraphs.Add
opara1.Range.Text = "------------------------------------------------------------" & _
"------------------------------------------------------------------------"
opara1.Format.SpaceAfter = 2
opara1.Range.InsertParagraphAfter()
opara1.Range.Text = "un texte range start 72"
opara1.Format.SpaceAfter = 2
opara1.Range.InsertParagraphAfter()
docword.SaveAs(FileName:="c:\mondocu.doc")
docword.Close()
docword = Nothing
objword = Nothing
- ma ligne avec 123456789123... etc a le bon format "courier new size = 9.
Je m'attends à ce que la ligne suivante avec les traits en soulignement ---- conserve le même format. Et bien non : il passe en font12, Times new Roman ???
Pourquoi? je n'ai rien changer entre les deux lignes.
N'y a til pas moyen d'appliquer les choix sur tous le document?
Question 2 : je ne comprends vraiment pas le code avec Range.
Par exemple je code cedi sans comprendre :
"opara1 = docword.Content.Paragraphs.Add"
Ni les sections, ni les signets?
Y a t il un endroit où trouver une bonne explication à ces éléments du langage?
Où toutes les options sont clairement définies.
Et un bon exemple complet d'une programmation d'une creation de doc word via VB.Net
Merci de me guider.
Pierre