Discussion :

[DonKnacki]

Bonjour à tous,

J'ai un problème avec une macro
Je souhaite parcourir un document word et copier un ensemble de paragraphes vers un autre document

Problème: Dans mon document source, j'ai également des tableaux et à priori lorsque l'on parcours Paragraphs, on obtient également les tableaux
De plus, lors de la copie d'un tableau, le passage à la ligne pose problème :



Auriez vous une idée de comment éviter ça ?

Mon code (très simple)

Code vba :

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

1
2
3
4
5
6
7
8
 
Sub copyRange()
    For Each p In ActiveDocument.Paragraphs:
        Debug.Print p.Range.Text
        p.Range.Copy
        p.Range.Paste
    Next  
End Sub

[Heureux-oli]

Salut,

Il est censé faire quoi ce code ?

[DonKnacki]

il est censé faire une copie des paragraphe et les copier dans un autre document

le paste est mal utilisé dans l'exemple que j'ai donné . en réalité je l'applique sur le 2ieme document

[Heureux-oli]

Salut,

Pourquoi faire une boucle sur les paragraphes. Comme tu ne fais pas de test de contenu, pourquoi ne pas faire un simple copier coller de la totalité ?

Voilà un exemple qui ne passe pas par un Copier/Coller de chaque morceau de texte.

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
Sub testoli()
Dim oDoc1 As Document
Dim oDoc2 As Document
Dim oPar As Paragraph
 
Set oDoc1 = ActiveDocument
Set oDoc2 = Documents.Add
oDoc2.Select
 
For Each oPar In oDoc1.Paragraphs
Selection.TypeText oPar.Range.Text
 
Next oPar
 
End Sub