Copier les paragraphes d'un document Word selon son choix

Lone-wolf

XLDnaute Barbatruc
Bonsoir à toutes :) et à tous :)

Voici comment copier des paragraphes suivant le choix fait avec deux listes déroulantes.

Dans deux cellules, créez d'abord les listes en inscrivant 1;2;3 etc, selon le nombre de paraghaphes désirés. Ensuite dans un module standard

VB:
Option Explicit
'COCHEZ LA REFERENCE MICROSOFT WORD xx.0 OBJECT LIBRARY

Sub Copier_ParagWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Long, j As Long, x As Long
Dim deb As Range, fin As Range
Dim fichier As String

    Application.ScreenUpdating = False

    fichier = ThisWorkbook.Path & "\Lettre.doc"
    Set deb = [L2]: Set fin = [N2]
    [A3:A60].ClearContents

    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open(fichier, ReadOnly:=True)

    x = deb - 1
    j = 2
    For i = deb To fin
        x = x + 1
        j = j + 1

        With Feuil1
            .Cells(j, 1) = WordDoc.Paragraphs.Item(x).Range.Text
        End With
    Next
    WordDoc.Close False
    WordApp.Quit
    Set WordApp = Nothing
    Set WordDoc = Nothing
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas