Je hais les tableurs… Ich hasse die Tabellenkalkulation… Posté le Mercredi 20 septembre 2006 - 19:37 Geschrieben am Mittwoch, 20. September 2006 - 19:37
Mon souci..vbnj,; Mein Interesse .. vbnj,;
Sur un document Word très très très long, je voudrais convertir tous les tableaux en texte. In einem Word-Dokument sehr sehr sehr lang, ich möchte, alle Tabellen im 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) Ich kann natürlich auch manuell tun, um die einzelnen Tabellen (Menü "Tabelle", "Konvertieren", "Tabelle in Text" und bestätigen Sie mit "OK"), aber es ist sehr lang, wenn das Dokument enthält viele Tabellen (Machbarkeit, wenn ich vor ein control A)
Y aurait-il une manière d’automatiser cela par le menu “Edition”, “Remplacer” ? Gibt es eine Weise zu automatisieren, das über das Menü "Bearbeiten", "Ersetzen"?
------------------
by Qui©he Wer © by he
Souk FUCK | Tags: | Events: Help ? Help? , Word
Essaie d’utiliser les macros :] Um die Nutzung von Makros:]
Commented Gheena on 19 octobre 2006 à 17:09 Commented Gheena am 19. Oktober 2006, 17:09je croyais savoir utiliser word en 10 lignes je me sens minable avec vous lol… ich dachte, Sie wissen word in 10 Zeilen fühle ich mich mit Ihnen schäbig lol…
Commented merdeuse on 19 octobre 2006 à 19:25 Commented merdeuse on 19 Oct 2006 19:25et en dés-affichant les lignes des tableaux non ? und in Würfel-, um die Zeilen der Tabelle nicht? mdr d’accord je me tais… mdr-Abkommens ich schweige…
Créer une macro. Erstellen eines Makros.
Commented LN on 19 octobre 2006 à 23:19 Commented LN am 19. Oktober 2006, 23:19——————————————————— -------------------
Public Sub ConvTableaux() Public Sub ConvTableaux ()
Dim TB As Table Sonntag TB As Table
Dim R As Range Sonntag R As Range
Dim C As Long Sonntag 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, Danke,
Commented Commented Qui©he Wer © he on 20 octobre 2006 à 17:25 on 20 Oktober 2006, 17:25Tu es magique ! Du bist magisch!
(je sais que tu le sais..oh yeah) (ich weiß, dass du weißt .. oh yeah)