> Tous les forums > Forum Bureautique
 Remplacer tableau et note (Word 2013)
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Demerzel
  Posté le 27/11/2014 @ 16:47 
Aller en bas de la page 
Astucien

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.



Modifié par Demerzel le 27/11/2014 16:48
Publicité
Demerzel
 Posté le 02/12/2014 à 09:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

m@rina
 Posté le 12/12/2014 à 02:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
99,99 €Enceinte JBL Charge 3 (sans fil bluetooth rechargeable / powerbank 6000 mAh) à 99,99 €
139,99 € -29%

Amazon fait une promotion sur l'enceinte sans fil bluetooth rechargeable JBL Charge 3 99,99 €. On la trouve ailleurs à partir de 139,99 €.

Connectez sans fil votre ordinateur, votre tablette ou votre smartphone et écoutez votre musique en stéréo avec le son JBL ample et riche avec des graves puissantes. Son micro intégré vous permettra également de répondre aux appels téléphoniques. Sa batterie de 6000 mAh intégrée offre une autonomie de 20h et permet de recharger vos appareils mobiles.

Elle est étanche IPX7.


Voir l'offre
94,99 €Nouvelle liseuse Amazon Kindle Paperwhite 6.8 pouces avec éclairage chaud réglable à 94,99 €
139,99 € -32%

Amazon fait une superbe promotion sur la toute dernière version de sa liseuse Kindle Paperwhite qui passe à 94,99 € au lieu de 139,99 €. 

Cette version est désormais doté d'un écran 6,8 pouces (6 pouces auparavant), de bords plus fins, d'un éclairage réglable (vous pouvez changer la teinte de l'écran d'une lumière blanche à un ambre chaud ou programmer quand changer la lumière) avec 17 Leds et d'une autonomie pouvant aller jusqu'à 10 semaines, et 20 % plus rapide pour tourner les pages. Avec une façade plane et un écran sans reflets de 300 ppp qui se lit comme une véritable page imprimée, même en plein soleil.

Elle est toujours résistante à l'eau (IPX8), afin que vous puissiez lire en toute tranquillité à la plage, au bord de la piscine ou dans le bain. Cette liseuse dispose du WiFi, d'un port de charge USB C et de 8 Go d'espace de stockage.

Formats pris en charge : Epub, Kindle Format 8 (AZW3), Kindle (AZW), TXT, PDF, MOBI non protégé, PRC natif ; HTML, DOC, DOCX, JPEG, GIF, PNG, BMP converti.


Voir l'offre
149,99 €LEGO 10300 La machine à remonter le temps de Retour vers le futur à 149,99 €
169,99 € -12%

Cdiscount fait une promotion sur le LEGO 10300 La machine à remonter le temps de Retour vers le futur qui passe à 149,99 € au lieu de 169,99 €.

Vous êtes fan de Retour vers le futur ? Alors vous allez adorer le set LEGO® La machine à remonter le temps de Retour vers le futur (10300), conçu pour les adultes. Plongez dans l’une des trilogies les plus célèbres de tous les temps en construisant l’une des 3 versions de l’emblématique voiture. 1872 pièces.


Voir l'offre
99,99 €Ecran 24 pouces Viewsonic VA2406 (FullHD, VA, 60 Hz) à 99,99 €
129,99 € -23%

Cdiscount fait une promotion sur l'écran 24 pouces VA2406-H qui passe à 99,99 €. On le trouve ailleurs à partir de 129,99 €. Cet écran dispose d'une dalle FullHD VA 4ms à 60 Hz, un filtre lumière bleue, de la technologie anti scintillement Flicker Free et intègre des ports VGA et HDMI.


Voir l'offre

Sujets relatifs
Word 2013
Word 2013
pb pagination dans word 2013
ACROBAT RUBAN WORD 2013
Correction ortographe Word 2013
Images plus visibles dans fichier Word 2013
Insertion page de couverture sous Word 2013
Word 2013 ne demarre plus sous W7 Home basic
Supprimer une police de Word 2013
macro afficher masquer lignes tableau dans word 2010
Plus de sujets relatifs à Remplacer tableau et note (Word 2013)
 > Tous les forums > Forum Bureautique