Je hais les tableurs… I hate spreadsheets… Posté le Mercredi 20 septembre 2006 - 19:37 Posted Wednesday, September 20, 2006 - 19:37
Mon souci..vbnj,; My concern .. vbnj,;
Sur un document Word très très très long, je voudrais convertir tous les tableaux en texte. On a Word document very very very long, I would like to convert all the tables in the text. Je peux bien sûr le faire manuellement pour chacun des tableaux (Menu “Tableau”, “Convertir”, “Tableau en texte” puis valider par “OK”) mais c’est très long lorsque le document comporte beaucoup de tableaux (ça merde si je fais un control A avant) I can obviously do it manually for each table ( "Table", "Convert", "Table text" and then confirm with "OK") but it is very long when the document contains many tables (if it merde I am a control before A)
Y aurait-il une manière d’automatiser cela par le menu “Edition”, “Remplacer” ? Is there a way to automate it by the Edit menu, "Replace"?
------------------
by Qui©he by He Who ©
Souk FUCK | Tags: | Tags: Help ? Help? , Word
Essaie d’utiliser les macros :] Try to use macros:]
Commented Gheena on 19 octobre 2006 à 17:09 Commented Gheena on October 19, 2006 at 17:09je croyais savoir utiliser word en 10 lignes je me sens minable avec vous lol… I thought I know how to use Word in 10 lines I feel tacky with you… lol
Commented merdeuse on 19 octobre 2006 à 19:25 Commented merdeuse on October 19, 2006 at 19:25et en dés-affichant les lignes des tableaux non ? and diced-displaying rows of tables? mdr d’accord je me tais… mdr I agree tais…
Créer une macro. To create a macro.
Commented LN on 19 octobre 2006 à 23:19 Commented LN on October 19, 2006 at 23:19——————————————————— -------------------
Public Sub ConvTableaux() Public Sub ConvTableaux ()
Dim TB As Table Sunday TB As Table
Dim R As Range As Sunday R Range
Dim C As Long Sunday C As Long
For Each TB In Selection.Tables For Each TB In Selection.Tables
C = TB.Rows(1).Alignment C = TB.Rows (1). Alignment
Set R = TB.ConvertToText(Separator:=wdSeparateByTabs, _ Set R = TB.ConvertToText (Separator: = wdSeparateByTabs, _
NestedTables:=True) NestedTables: = True)
R.ParagraphFormat.Alignment = C R.ParagraphFormat.Alignment C =
Next
End Sub End Sub
—————————————————- ------------------
Merci, Thank you,
Commented Commented Qui©he Who he © on 20 octobre 2006 à 17:25 on October 20, 2006 at 17:25Tu es magique ! You're magic!
(je sais que tu le sais..oh yeah) (I know you know .. oh yeah)
Ouip, je sais je suis trop toppeeeee !! Ouip, I know I'm too toppeeeee!
Commented LN on 20 juin 2008 à 20:17 Commented LN on June 20, 2008 20:17