VBA til word spørgsmål

Selection.GoTo What:=wdGoToBookmark, Name:="bog1"
    Selection.Extend
    Selection.GoTo What:=wdGoToBookmark, Name:="Bog2"

I mit dokument har jeg 2 bogmærker, desfineret som Bog1 og Bog2. Så virker denne kode

Sub markBetweenBookmark()
    Dim objRange As Range
    Dim place1 As Range
    Dim place2 As Range
   
    Set place1 = Selection.GoTo(wdGoToBookmark, , , "bog1")
    Set place2 = Selection.GoTo(wdGoToBookmark, , , "bog2")
   
    Set objRange = Selection.Range
   
    With objRange
        .Start = place1.Start
        .End = place2.End
        .Select
    End With
   
End Sub

/Christian
ck@officekonsulenterne.dk

Ok - indrømmet :-) Peters løsning var langt mere elegant... jeg trækker straks mit forslag tilbage...

/Christian

det var jo ik svært :P