cerhu > microsoft.* > microsoft.excel

GARAULT (05/12/2006, 08h53)
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
MichDenis (05/12/2006, 16h19)
Tu devrais adresser ta question dans le Forum Word.

"GARAULT" <GARAULT> a écrit dans le message de news:
D0871785-9420-400E-BE62-0D64616CD733...
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
Discussions similaires
deplacement d'une ligne sur la ligne supérieure puis suppression de la ligne devenue vide

Suppression de ligne vide

suppression colonne et ligne vide

Probleme de double interligne sur retour a la ligne word office 2007


Fuseau horaire GMT +2. Il est actuellement 14h13. | Privacy Policy