1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Sub TestDupliquerLesTables()
Dim WordInstance As New Word.Application ' New instancie l'application Word dans la mesure où la DLL Word est cochée.
Dim WordDocumentToModify As Word.Document
Dim RepertoireDoc As String, NomModeleWord As String
RepertoireDoc = "D:\XXXXXXX\" ' A adapter
NomModeleWord = RepertoireDoc & "Doc modèle.dotx"
With WordInstance
.Visible = True
Set WordDocumentToModify = .Documents.Add(Template:=NomModeleWord)
End With
DupliquerLesTables WordInstance, WordDocumentToModify, 5
Set WordDocumentToModify = Nothing
Set WordInstance = Nothing
End Sub
Sub DupliquerLesTables(ByVal InstanceWord As Word.Application, ByVal DocAModifier As Word.Document, ByVal NbTables As Integer)
Dim SelectionWord As Word.Selection
Dim I As Integer
Set SelectionWord = InstanceWord.Selection
With DocAModifier
For I = 1 To NbTables - 1
.Tables(1).Range.Copy
With SelectionWord
.EndKey unit:=wdStory ', Count:=1
.InsertParagraph
.MoveDown unit:=wdLine, Count:=1
.Paste
End With
Next I
End With
Set SelectionWord = Nothing
End Sub |
Partager