Discussion :

[tkwleboss]

Bonjour,
J'ai un logiciel qui génère un rapport word avec des données dedans...
Ce logiciel n'arrive pas à mettre correctement les hauteurs des cellules selon la taille du texte qui est inséré.
donc j'essaie de faire une macro qui cherche un mot commun entre ces cellules et qui ajuste la hauteur de la cellule dans tout le document :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub rechercheRemplace()
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "texte commun"
        .Replacement.Text = "texte commun"
        'ici ça coince ce n'est pas la bonne syntaxe malheureusement et je n'ai pas d'idée :cry:
        Selection.Find.Rows.HeightRule = wdRowHeightExactly
        Selection.Find.Rows.Height = CentimetersToPoints(0.6)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Quelqu'un a une idée?
merci d'avance.

[Heureux-oli]

Salut,


Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveDocument.Tables(1)
    .AllowAutoFit = True
 
End With

[tkwleboss]

Salut,


Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveDocument.Tables(1)
    .AllowAutoFit = True
 
End With

Bonjour tout d'abord merci pour ta réponse,
Le problème que je ne dois pas faire un autoFit partout je dois juste mettre la hauteur de cellule à 0.6 cm quand j'ai ce mot commun dans la cellule.
et ton code va faire de l'ajustement sur tout le tableau malheureusement et ce n'est pas le but.

[Heureux-oli]

Salut,

C'est tout le tableau ou rien.

Si tu sais quelle taille donner au cellule on peut la faire cellule par cellule, mais plus ajustement automatique.

[Sepia]

Salut,

Il te reste la solution de fractionner ton tableau en 2 (la zone "auto" et la zone fixe) avec un paragraphe séparateur petit (pas d'espace avant et une taille de police = 2 par exemple).

@+