Sub SelectPage()
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
End Sub
Tällä makrolla saan valittua sivun. Miten voisin valita useita sivuja? Siis pitäisi voida valita nykyinen sivu mielivaltainen määrä sivuja nykyisestä sivusta eteenpäin.
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
End Sub
Tällä makrolla saan valittua sivun. Miten voisin valita useita sivuja? Siis pitäisi voida valita nykyinen sivu mielivaltainen määrä sivuja nykyisestä sivusta eteenpäin.
Vastaukset 3
Vanhimmat
???
Vai?
ei vaan oikein innosta Word VBA :-)
no tässä nyt kuitenkin aktiivisesta sivusta tietty määrä eteenpäin valitaan...
Sub ValitseSivut()
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
alku = Selection.Start
syöttö:
sivut = InputBox("Anna valittavien sivujen määrä eteenpäin")
If sivut = "" Then
MsgBox "peruutit toiminnon!"
Exit Sub
Else
If Not IsNumeric(sivut) Then
MsgBox "sinun pitää antaa luku!"
GoTo syöttö
End If
End If
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=sivut
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
loppu = Selection.End
Selection.SetRange alku, loppu
Selection.Select
End Sub