Comment selectionner une ligne complète d'un .doc

**thomas93** · 13/02/2014, 11h38

Bonjour,

Je débute en VBA et je cherche à faire une petite macro :
Je souhaite ouvrir un fichier .doc, sélectionner la ligne 13 par exemple, et la remplacer par "coucou" par exemple.

Voici mon code actuel :

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
Sub EcriDansWord()
 Dim WordObj As Object
 On Error Resume Next
 Set WordObj = CreateObject("Word.Application.8")
 Set wrdDoc = WordObj.Documents.Open("C:\Desktop\Source\Page_dossier_etude.doc")
 'Pour afficher Word
 WordObj.Visible = True
 
With WordObj.Selection
---> Ici !
J'aimerais selctionner la ligne 13 déja remplie, puis la remplacer par "coucou" par exemple
 End With
 
'pour imprimer le document
 WordObj.PrintOut
 Set WordObj = Nothing
 End Sub

Avez-vous une solution ? SVP

Je vous remercie !

Thomas.

**thomas93** · 13/02/2014, 11h43

J'ai trouvé que ça pour le moment :

Code :

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

1
2
3
4
5
 
    Selection.MoveDown Unit:=wdLine, Count:=16
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeText Text:="Coucou"

**Heureux-oli** · 13/02/2014, 12h55

Salut,

On peut utiliser le range de la ligne, mais ta définition de ligne est un peu vague.
En général, on utilise des paragraphes qui sont des objets Word.

Active

Code :

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

Document.paragraphs(13).range.text = "Coucou"

**Le_passant** · 13/02/2014, 17h29

Bonjour,

on peut essayer ceci
une méthode pour remplacer tout un paragraphe
une autre pour remplacer une ligne

Code :

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

1
2
3
4
5
6
7
 Selection.HomeKey Unit:=wdStory 'se positionner au début du document
'sélectionner un paragraphe et insérer un mot à la place
ActiveDocument.Paragraphs(2).Range.Select 'facultatif
ActiveDocument.Paragraphs(2).Range.Text = "Coucou "
Selection.MoveDown Unit:=wdLine, Count:=10 'sélectionner la ligne 10
Selection.EndKey Unit:=wdLine, Extend:=wdExtend 'sélectionner jusqu'à la fin de la ligne
Selection.TypeText Text:="Coucou " 'taper le mot

**thomas93** · 13/02/2014, 17h52

Merci !!! C'est parfait, cela fonctionne ! Mais j'ai un nouveau problème, je suis sûr que c'est un petit truc mais je ne comprends pas :

Je cherche à mettre une combobox sur une fenetre mais, la liste ne s'affiche pas quand je clique dessus... Il faut que je fasse un espace par exemple pour que la liste s'affiche, je ne comprends pas pourquoi :
Voici mon code :

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
 
ComboBox1.ColumnCount = 1
ComboBox1.List() = Array("", "Villa", "Appartement", "Maison")
 
End Sub

Je ne comprends pas...
Avez-vous une solution ? svp

Merci d'avance chers développeurs

Thomas

**Heureux-oli** · 14/02/2014, 10h19

Salut,

Ta liste n'est peuplée que lorsque l'évènement Change est détecté.
En général, on ne peuple pas une liste sur un évènement de cette liste, on peuple la liste lors du chargement du formulaire.