Discussion :

[nifux]

Bonjour,

Je dois traiter de nombreux dossiers et leur enlever leur caractère de champs ce que je peux faire avec l'annulation de lien. Donc dans ma pratique j'ouvre les fichiers que j'ai dans un dossier 15 par 15 (limite de windows 7) et j'ai fait le code

Code :

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

1
2
3
4
5
6
7
8
Sub Transfo ()
Dim aDoc As Document
' Transformation en texte
For Each aDoc In Documents
Selection.WholeStory
Selection.Fields.Unlink
Next
End Sub

Mais dans mon code ne change en définitive qu'un fichier et la boucle ne sert à rien. Une idée pour m'aider ?

Merci d'avance

[Heureux-oli]

Salut,

Logique.

Ton objet Selection n'est pas modifié dans ta boucle.

Selection.WholeStory ne renvoie rien.

Il faut une boule sur les documents, mais ça, tu l'as en partie.

Code :

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

1
2
3
For Each aDoc In Documents
...
Next aDoc

Ensuite, il faut traiter les documents.

Code :

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

aDoc.Range.Select

Et ensuite délier

Code :

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

Selection.Fields.Unlink

Quand tu code, tu dois penser à ce que le code va faire, étape par étape.

[nifux]

Merci beaucoup ça marche !