Bonjour à tous,

Sous Word 2013,

1. Comment puis-je rechercher tous les tableaux et tous les convertir en texte (tableau de 1 colonne).

Je sais le faire manuellement, tableau par tableau, mais vu qu'il y en a quelques centaines sur mes 1.300 pages, j'ai pas envie d'y passer des heures pour pas grand chose.

Je pensais "enregistrer un macro" et la modifié mais la recherche ne s’enregistre pas dans Word.

2. Comment convertir les appel de note et les notes en les remettant dans le texte (si possible entouré de "XXX")?

Exemple :

Toto est un héro1.

1. C'est pas vrai c'est un petit plaisantin.

Et avoir au final :

Toto est un héroXXXc'est pas vrai c'est un petit plaisantin.XXX.

Lorsque j'utilise la fonction de rechercher et remplacer les appels de note, il ne le fait que pour le numéro de note dans les notes de bas de pages, pas dans le texte.

Donc j'obtiens:

Toto est un héro1.

XXX1.XXX C'est pas vrai c'est un petit plaisantin.

Merci d'avance de vos lumières.

Hello,

Je reviens sur mon propre sujet après mainte recherche sur le net.

Pour les tableaux, la solution est :

Public Sub ConverTab()

Dim tableTemp As Table
Dim rngTemp As Range
For Each tableTemp In ActiveDocument.Tables
Set rngTemp = tableTemp.ConvertToText(Separator:=wdSeparateByParagraphs)
Next tableTemp

End Sub

Ne connaissant pas la propriété "Tables" de ActiveDocument, je bloquais à cet endroit.

Plus que les notes à traiter

Bonsoir,

Si ce n'est pas trop tard... pour convertir les appels de note. J'ai prévu de les mettre entre (). Je n'ai pas compris tes XXX.

Sub notes()

Dim note As Footnote, notetexte As String

Selection.HomeKey Unit:=wdStory

For Each note In ActiveDocument.Footnotes

notetexte = ActiveDocument.Footnotes(1).Range.Text

Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToNext

note.Delete

Selection.InsertAfter "(" & notetexte & ")"

Next

End Sub