Et oui, je n'aurais jamais cru en arriver là 
Mais il faut reconnaître que ca peut être pratique.
Cette première fonction n'a pour seul but de supprimer le paragraphe ayant pour titre : "règle de validation serveur de la table" jusqu'au paragraphe ayant pour titre : "nom de contrainte de paramètre de contrôle de la table"
Public Sub eraseParagraph()
Dim search As String
Dim searchEnd As String
search = "règle de validation serveur de la table"
searchEnd = "nom de contrainte de paramètre de contrôle de la table"
Dim para As Paragraph
Dim flag As Boolean
flag = False
For Each para In ActiveDocument.Paragraphs
Dim txt As String
txt = para.Range.Text
If (flag = True) Then
If InStr(LCase(txt), searchEnd) Then
flag = False
Else
para.Range.Delete
End If
End If
If InStr(LCase(txt), search) Then
para.Range.Delete
flag = True
End If
Next
End Sub
Cette fonction a pour but de supprimer dans tous les tableaux de 5 colonnes du document, les deux dernières colonnes :
Public Sub eraseColumnInTable()
Dim tablea As Table
For Each tablea In ActiveDocument.Tables
If tablea.Columns.Count = 6 Then
tablea.Columns(5).Delete
tablea.Columns(5).Delete
End If
Next
End Sub
Cette fonction a pour but de définir la taille de tous les tableaux du document avec une largeur de 100 %
Public Sub modiifyWidthTable()
Dim tablea As Table
For Each tablea In ActiveDocument.Tables
If tablea.Columns.Count = 4 Then
tablea.PreferredWidthType = wdPreferredWidthPercent
tablea.PreferredWidth = 100
End If
Next
End Sub
Comme quoi, il arrive qu'un truc aussi "moisi" puisse servir 
