Incompatibilité de type

[thalos]

Salut voici mon bug (un classique à mon avis)
Alors si la solution vous saute aux yeux ....

Sub occurence()

Dim lStart As Long
Dim objWdRange As Range
Dim objWd1 As Range
Dim Num1 As Integer
Selection.GoTo wdGoToLine, wdGoToLast

NumLines = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)
Selection.GoTo wdGoToLine, wdGoToFirst
Selection.Expand wdLine
Set objWd1 = Selection.Range.Text ''erreur incompatibilité de type
Je veux recevoir et exploiter le texte, les strings d'un selection.range
'C'est pourquoi j'utilise : selection.range.text
Selection.Collapse wdCollapseEnd

End Sub

 

[wape]

Bonsoir thalos et le forum,

Deux solutions à ton problème :

1. Tu conserves l'objet objWd1

Dans ce cas, l'assignation est : Set objWd1 = Selection.Range
Pour obtenir le texte : MonTexte = objWd1.Text


2. Tu remplaces l'objet objWd1 par une variable de type String (MonTexte ci-dessous)

Dans ce cas, pour obtenir le texte : MonTexte = Selection.Range.Text


@+
wape