[WD-2000] Technique pour supprimer cellule contenant un certain texte

[ruliann]

Bonjour,

Dans mon doc Word, j'ai des cellules de tableau "vide" (et dont je n'ai pas besoin) qui contiennent le texte suivant:

Erreur ! Nom du fichier non spécifié.

J'en ai un paquet disséminé un peu partout ds mon doc Word qui fait 150 pages.

Comment supprimer d'un seul coup toutes ces cellules contenant ce texte?

merci

[JML19]

Bonjour

Regarde (ICI).

[ruliann]

salut,

merci pour ta réponse.

Je cherche comment je pourrais adapter ce code à mon pblm.

"Elle", voulait supprimer des lignes, moi je veux éliminer des cellules de tableaux qui contiennent un texte précis

@ +

[JML19]

Ce n'est pas du texte la cellule est vide puisqu'elle affiche un texte système et pas un texte écrit par l'utilisateur.

Code :

1
2
3
4
5
6
For nblignes = 1 To 200
        Selection.HomeKey Unit:=wdLine
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        If Selection = Chr(13) Then
            Selection.Delete Unit:=wdCharacter, Count:=1
        Else

Dans cette boucle il y a détection du caractère vide chr(13) mais tu peux mettre une chaine de caractères.

[Heureux-oli]

Salut,

Ces cellules sont-elles toutes dans la même table ou dans des tables différentes ?

La tables contiennent-elles plusieurs colonnes ?

Le plus simple est de faire une boucle sur les tables et ensuite sur les cellules de la table.

Mais pour supprimer une cellule, il faut qu'il n'y ait d'une seule colonne ou alors supprimer une ligne.

[ruliann]

salut à ts les 2

mouais...je crois que j'en demande trop à mon publipostage là..

Dans mon doc Word de base (celui à partir duquel je lance mon publipostage), j'ai inséré 6 cellules individuelles (des cellules indépendantes les unes des autres, pas un tableau avec 6 lignes par exemple).

Des fois, les 6 cellules contiendront chacune leur photos, des fois il n y aura que 4 d'entre elles, etc... A l'interieur de chacune de ces cellules, j'ai donc inséré le champ INCLUDEPICTURE pour appeler mes photos quand cela est nécessaire.

Parmi ces 6 cellules, l'une fait référence à la colonne A, l'autre fait référence à la colonne B, une autre fait référence à la colonne C...D, E, F de ma BDD excel.


Mon problème est que, après avoir lancé le publipostage et créé mes fiches, certaines de mes fiches contiennent 6 photos et ont donc les 6 cellules de remplies, OK super. Mais.... d'autres fiches ne comportent que 4 photos, et n'ont donc que 4 cellules de remplies, il reste donc sur la fiche 2 cellules de tableau vides où seul le texte "Erreur fichier non spécifié" est inscrit.

je dois donc supprimer à la main toutes les cellules vides, celles qui ne comportent pas de JPG et qui ont ce fameux texte inscrit dedans.

Et je ne peux pas faire de boucle qui rechercherait toutes les cellules ne contenant pas de JPG, car sur les fiches, j'ai d'autres cellules de tableau qui ne contiennent que du texte. j'ai choisi d'insérer du texte dans des cellules de tableau par souci esthétique...

[Heureux-oli]

Salut,

Petit problème, ce texte est affiché, mais pas contenu, c'est un message d'erreur.
Je pense que la solution est de traiter le problème à la source et de mettre une image générique pour les images que tu ne possèdes pas.

[ruliann]

et je demande à effacer toutes les cellules contenant l'image générique en question?

[Heureux-oli]

Salut,

Effacer les cellules ce sera difficile.

[ruliann]

ah... bon bah si tu le dis, je te fais confiance!

[Heureux-oli]

Salut,

En y réfléchissant, il y a peut-être moyen.
On peut toujours travailler sur le contenu du champ et en fonction de son contenu, supprimer ou non la cellule.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TravailSurCellule()
On Error GoTo moi
Dim otbl As Table
 
For Each otbl In ActiveDocument.Tables
 
Debug.Print otbl.Cell(1, 1).Range.Fields(1).Code & " -- " & Len(otbl.Cell(1, 1).Range.Fields(1).Code)
 
Next otbl
 
moi:
If Err.Number = 5941 Then
    Resume Next
ElseIf Err.Number = 0 Then
    Debug.Print Err.Number
Else
    MsgBox Err.Description
End If
 
 
 
End Sub

[ruliann]

salut,

Soit ca ne fonctionne pas, soit je m'y prends mal. J'ai rentré ton code ainsi:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub TravailSurCellule()
On Error GoTo moi
Dim otbl As Table
 
For Each otbl In ActiveDocument.Tables
 
Debug.Print otbl.Cell(1, 1).Range.Fields(1).Code & "Erreur ! Nom du fichier non spécifié." & Len(otbl.Cell(1, 1).Range.Fields(1).Code)
 
Next otbl
 
moi:
If Err.Number = 5941 Then
    Resume Next
ElseIf Err.Number = 0 Then
    Debug.Print Err.Number
Else
    MsgBox Err.Description
End If
 
End Sub

Mais rien ne se passe.

merci d'y avoir réfléchi mais ne te casse pas la tête non plus, tu m'as déjà bcp aider!

[Heureux-oli]

Salut,

pourrais-tu mettre un document exemple sur le forum ?

[ruliann]

attends hé, Heureux-Oli

Grand moment, je viens de résoudre un de mes problèmes tout seul

grâce à l'enregistreur de macro, je peux désormais redimensionner une image en faisant Ctrl1 ! c'est ce que je voulais

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub redim_1seule_image()
'
' redim_1_image Macro
'
    Selection.InlineShapes(1).Fill.Visible = msoFalse
    Selection.InlineShapes(1).Fill.Solid
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).Line.Weight = 0.75
    Selection.InlineShapes(1).Line.Transparency = 0#
    Selection.InlineShapes(1).Line.Visible = msoFalse
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
    Selection.InlineShapes(1).Height = 211.45
    Selection.InlineShapes(1).Width = 230.75
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
    Selection.InlineShapes(1).PictureFormat.CropRight = 0#
    Selection.InlineShapes(1).PictureFormat.CropTop = 0#
    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
 
End Sub

je progresse tu vois! champagne!


PS: ce message n'a rien à voir avec la problématique ci-dessus hein