Le Blog de BiBiMax

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