1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub recapitulatif()
Dim objTable As Table
Dim i As Integer
Dim a As String
Set objTable = ThisDocument.Tables(1)
For i = 1 To objTable.Rows.Count
a = Left(objTable.Cell(i, 2).Range.Text, InStr(objTable.Cell(i, 2).Range.Text, vbCr) - 1)
If a = "D" Then
objTable.Rows(i).Select
Selection.Copy
Documents.Open FileName:="""Essai récapitulatif a.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:="", DocumentDirection:=wdLeftToRight
Selection.PasteAndFormat (wdPasteDefault)
End If
Next i
End Sub |
Partager