Selecteren tekst in word (vb6)

[Sven2007]

Ik heb al een verbinding tussen mijn applicatie en het bestaande word file. Nu wil ik vanuit de applicatie een bepaald stuk vervangen, die tekst begint met [Case Dedicated Bandbreedte] en eindigt met [End Case Dedicated Bandtbreedte].

Maar er moet blijkbaar een fout inzitten, wss in de eerste blok code...


Dim rngParagraphs As Range
Set rngParagraphs = ActiveDocument.Range( _
Start:="[Case Dedicated Bandbreedte]", _
End:="[End Case Dedicated Bandtbreedte]")


'Dedicated
objWord.Selection.Find.ClearFormatting
With objWord.Selection.Find
.Text = rngParagraphs.Text
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

objWord.Selection.Find.Execute
objWord.Selection.TypeText Text:="IT WORKS"

 

[Axel Hagg]

Dag Sven,

Dim rngParagraphs As Range
Dim a As Long

With objWord
With .Selection.Find
.ClearFormatting
.Text = "[Case Dedicated Bandbreedte]"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
a = .Selection.Start
.Text = "[End Case Dedicated Bandtbreedte]"
.Execute
Set rngParagraphs = ActiveDocument.Range(Start:=a, End:=.Selection.End)
End With
End With

Succes,

Axel

 

[Sven2007]

En dan kan ik rngParagraphs gewoon vervangen door een andere tekst ?

 

[Sven2007]

Dag Sven,

Dim rngParagraphs As Range
Dim a As Long

With objWord
With .Selection.Find
.ClearFormatting
.Text = "[Case Dedicated Bandbreedte]"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
a = .Selection.Start
.Text = "[End Case Dedicated Bandtbreedte]"
.Execute
Set rngParagraphs = ActiveDocument.Range(Start:=a, End:=.Selection.End)
End With
End With

Succes,

Axel

Ik krijg foutmeldingen bij .Selection.start en .selection.end: not member...
Ik heb (weet niet of het mag) die puntjes ervoor weggelaten, toen kreeg ik geen foutmeldingen maar het werkte niet...