Discussion :

[kimaloco]

Bonjour,

Je suis nouveau sur le forum et je me permets de venir vers vous pour vous poser une question s'il vous plait.

Je dispose d'un fichier word avec 700 paragraphes ( en moyenne de 180 caractères). Chacun de ces paragraphes débute par une puce et termine par le même mot.

Pensez vous qu'il serait possible de séparer et enregistrer chaque paragraphe dans un fichier individuel ?

exemple: Ce fichier word :

° "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum." (blabbla)

° "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum." (blabbla)

Deviendrait :
fichier Word 1:
° "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum." (blabbla)

fichier Word 2:
° "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum." (blabbla)


Je tiens à préciser que je ne sais pas programmer, mais que je suis motivé pour mettre en place la solution que vous pourriez me proposer.

Par avance merci...merci beaucoup

[Invité]

Bonjour,


A adapter et à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub SauvegarderLesParagraphes()
 
Dim NouveauDoc As Document
Dim I As Integer, NumeroDoc As Integer
Dim RepertoireDoc As String
 
 
     With ActiveDocument
           RepertoireDoc = .Path
           NumeroDoc = 1
          For I = 1 To .Paragraphs.Count
              If InStr(1, .Paragraphs(I).Range.Text, "blabbla", vbTextCompare) > 0 Then
                  .Paragraphs(I).Range.Copy
                 Set NouveauDoc = Documents.Add
                 With NouveauDoc
                      .Range.Paste
                      .SaveAs2 RepertoireDoc & "\Doc " & NumeroDoc, fileformat:=wdFormatDocument
                      .Close savechanges:=True
                      NumeroDoc = NumeroDoc + 1
                 End With
                 Set NouveauDoc = Nothing
              End If
          Next I
   End With
 
End Sub

[kimaloco]

Désolé pour la réponse tardive, je suis de retour!

Merci ça fonctionne nickel!!!

MERCI MERCI MERCI