SUPPRESSION DE LIGNE VIDE OU INTERLIGNE EXEL-WORD

Tu devrais adresser ta question dans le Forum Word.



"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de news:
D0871785-9420-400E-BE62-0D64616CD733@microsoft.com...
Bonjour, dans le code suivant je voudrais intégrer une formule supprimer
automatiquement les ligne vide (blanche) ou interligne d'un document word.
Le code suivant ouvre un fichier word (sa fonctionne)
c la que j'y arrive pas.............................(supprimer ligne vide)
selectionne le text (sa fonctionne)
copie le texte (sa fonctionne)
et le colle la ou je veux (sa fonctionne)
*******************************************************
ex du document word :

bonjour,

blablabla

je voudrais que le code transforme le texte pour que sa face ça:

bonjour,
blablabla
********************************************************
voici le code:
Sub NewFileVersion(File As String, FileTemp As String)

Dim Wd As Object
Dim Dc As Object

Set Wd = CreateObject("Word.application")
With Wd
.Visible = True ' Optionnel, mettre à false
'pour ne rien voir ...
Set Dc = .Documents.Open(File) ' Ouvrrir le fichier
????????????????????????????????????' Supprimer les lignes vides
.Documents(File).Select ' Tous selectionner
.Selection.Font.Size = 10 ' Change les hauteurs
.Selection.Copy ' Copier ce qui à été selectionné

Worksheets("Prix vitrage").Range("B25").Select ' Le coller
ActiveSheet.Paste


Dc.Close
.Quit
End With
End Sub