avec les deux objets instanciés auparavant, bien sûr
pour la sélection elle même :
'*************************************************************************** ************ ' Selectionne un nombre de lignes '*************************************************************************** ************ Public Sub Selectionner_lignes(Optional Nbre_de_lignes As Variant) If IsMissing(Nbre_de_lignes) Then Nbre_de_lignes = 1 myWordApplication.Selection.MoveDown Unit:=wdLine, Count:=Nbre_de_lignes, Extend:=wdExtend
End Sub '*************************************************************************** ************ ' Selectionne tout '*************************************************************************** ************ Public Sub Selectionner_Tout() myWordApplication.Selection.WholeStory End Sub '*************************************************************************** ************ ' Selectionne un paragraphe '*************************************************************************** ************ Public Sub Selectionner_paragraphe(Numero_paragraphe As Long)
myWordApplication.ActiveDocument.Paragraphs(Numero_paragraphe).Range.Select End Sub
avec les deux objets instanciés auparavant, bien sûr
pour la sélection elle même :
'***************************************************************************
************
' Selectionne un nombre de lignes
'***************************************************************************
************
Public Sub Selectionner_lignes(Optional Nbre_de_lignes As Variant)
If IsMissing(Nbre_de_lignes) Then Nbre_de_lignes = 1
myWordApplication.Selection.MoveDown Unit:=wdLine, Count:=Nbre_de_lignes,
Extend:=wdExtend
End Sub
'***************************************************************************
************
' Selectionne tout
'***************************************************************************
************
Public Sub Selectionner_Tout()
myWordApplication.Selection.WholeStory
End Sub
'***************************************************************************
************
' Selectionne un paragraphe
'***************************************************************************
************
Public Sub Selectionner_paragraphe(Numero_paragraphe As Long)
myWordApplication.ActiveDocument.Paragraphs(Numero_paragraphe).Range.Select
End Sub
avec les deux objets instanciés auparavant, bien sûr
pour la sélection elle même :
'*************************************************************************** ************ ' Selectionne un nombre de lignes '*************************************************************************** ************ Public Sub Selectionner_lignes(Optional Nbre_de_lignes As Variant) If IsMissing(Nbre_de_lignes) Then Nbre_de_lignes = 1 myWordApplication.Selection.MoveDown Unit:=wdLine, Count:=Nbre_de_lignes, Extend:=wdExtend
End Sub '*************************************************************************** ************ ' Selectionne tout '*************************************************************************** ************ Public Sub Selectionner_Tout() myWordApplication.Selection.WholeStory End Sub '*************************************************************************** ************ ' Selectionne un paragraphe '*************************************************************************** ************ Public Sub Selectionner_paragraphe(Numero_paragraphe As Long)
myWordApplication.ActiveDocument.Paragraphs(Numero_paragraphe).Range.Select End Sub
Nico
Merci beaucoup pour la partie Copy...
...Néanmoins je ne sais pas déclarer la feuille excel dans laquelle je veux copier le texte Word sélectionné !
Pouvez vous m'éclairer une nouvelle fois ?
"Carl" a écrit dans le message de news: 3f65dada$0$27051$
************ Public Sub Selectionner_lignes(Optional Nbre_de_lignes As Variant) If IsMissing(Nbre_de_lignes) Then Nbre_de_lignes = 1 myWordApplication.Selection.MoveDown Unit:=wdLine,
************
Public Sub Selectionner_lignes(Optional Nbre_de_lignes As Variant)
If IsMissing(Nbre_de_lignes) Then Nbre_de_lignes = 1
myWordApplication.Selection.MoveDown Unit:=wdLine,
************ Public Sub Selectionner_lignes(Optional Nbre_de_lignes As Variant) If IsMissing(Nbre_de_lignes) Then Nbre_de_lignes = 1 myWordApplication.Selection.MoveDown Unit:=wdLine,
