Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Automatiser le passage à la ligne grâce aux macros dans Microsoft Word

 

professeur1 LOGICIELS : michel69 et 88 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Automatiser le passage à la ligne grâce aux macros dans Microsoft Word

Prévenir les modérateurs en cas d'abus 
#IRSJ#
irsj
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 01/05/2017 à 13:45:16  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

Y a t'il un moyen d'écrire un macro qui exécute le passage à la ligne automatique dans un document word ?

En effet, j'ai une fichier de chiffres et j'aimerai pouvoir écrire une macro qui orchestre le passage à ligne dans le fichier.

Merci d'avance pour votre aide, Cordialement, juda.
fichierTxtVoir l'image en grand0 vote

Edit du titre par Tintin10 : enlèvement des majuscules, on croit que vous criez
Edit par Tintin10 : enlèvement des majuscules, on croit que vous criez + suppression lien
Message édité par Tintin10 le 01/05/2017 à 15:18:03
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 04/05/2017 à 14:53:47  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr

Bjr,
voici une macro adaptée à ta demande et à tester

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub reporter()
  2. ' willy 1er mai 2017
  3.  
  4. n = ActiveDocument.Characters.Count
  5.  
  6. For i = 0 To n
  7. ActiveDocument.Range(Start:=i, End:=i).Select
  8.   If Selection = "}" Then
  9.     Selection.MoveRight Unit:=wdCharacter, Count:=2
  10.     Selection.TypeParagraph
  11.     Selection.Delete Unit:=wdCharacter, Count:=0
  12.   End If
  13. Next
  14. paragraphevide
  15. ActiveDocument.Range(Start:=0, End:=0).Select
  16. End Sub
  17.  
  18.  
  19. Sub paragraphevide()
  20. 'on efface les paragraphes vides
  21. Dim p As Paragraph
  22. n = ActiveDocument.Paragraphs.Count
  23.  
  24. For Each p In ActiveDocument.Paragraphs
  25. p.Range.Select
  26. n = Selection.Characters.Count
  27. If n = 1 Then Selection.Delete Unit:=wdCharacter, Count:=1
  28. Next
  29.  
  30. End Sub


Si tu as le temps de visiter les sites des associations ci jointes ce serait sympa
 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
word 2013 pied de page au nom du fichier passage vers windows 10
Excel Macro - rechercher dernière ligne non vide help: 2 macros mettent un pgm Excel en erreur...
Automatiser document Word à partir de données Excel Automatiser
Est-il possible d'automatiser définitivement un diaporama? Est-il possible d'automatiser définitivement un diaporama?
Plus de sujets relatifs à : Automatiser le passage à la ligne grâce aux macros dans Microsoft Word

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
copier feuille sous vba 1
Macro bloque le filtre automatique 0
PowerPoint 2016 : réduire les marges d'impression 0
Base de donnée 2
Macro avec mot de passe 4