Avatar of ktrask36
ktrask36

asked on 

Word 2007 tab order

I have written a macro that sets the tab order for my Word 2007 form. It runs onExit of eac field. I'm trying to figure out how to change the macro so I can click out of one field and into another and have the macro resume no matter which field I have the cursor in.

So if a user is on the tenth field but needs to make a change back on field 5 they are able to do so. Right now they cannot with the way the macro currently is.

Sub taborder()
'
' taborder Macro
' Macro created 1/3/2011 by ktrask
'

'
'declare a variable to hold the field bookmark name
Dim strCurrBookmark As String

'decipher what type of form field you're currently using
If Selection.FormFields.Count = 1 Then
    'If field is not a textbox but a check- or listbox, capture that name
    strCurrBookmark = Selection.FormFields(1).Name
'if selection is a text field, capture that name
ElseIf Selection.FormFields.Count = 0 And Selection.Bookmarks.Count > 0 Then
    'add whatever the bookmark name is, to the designated variable
    strCurrBookmark = Selection.Bookmarks(Selection.Bookmarks.Count).Name
End If

Select Case strCurrBookmark
     'if the cursor is currently located in the field that contains the bookark name in the "case" statement,
    'the lines below it will be enacted, thereby jumping to the field you've indicated.
    Case "bkEntity"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdate"
    Case "bkdate"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkconsultant"
    Case "bkconsultant"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklocation"
    Case "bklocation"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkcontact"
    Case "bkcontact"
        Selection.GoTo What:=wdGoToBookmark, Name:="bk1floor"
    Case "bk1floor"
        Selection.GoTo What:=wdGoToBookmark, Name:="bk2floor"
    Case "bk2floor"
        Selection.GoTo What:=wdGoToBookmark, Name:="bk3floor"
    Case "bk3floor"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkbasement"
    Case "bkbasement"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkother"
    Case "bkother"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes1"
    Case "bktypyes1"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypno1"
    Case "bktypno1"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes2"
    Case "bktypyes2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypno2"
    Case "bktypno2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes3"
    Case "bktypyes3"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypno3"
    Case "bktypno3"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes4"
    Case "bktypyes4"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypno4"
    Case "bktypno4"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypyes5"
    Case "bktypyes5"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypno5"
    Case "bktypno5"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkyearbuilt"
    Case "bkyearbuilt"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkmajren"
    Case "bkmajren"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksqftleased"
    Case "bksqftleased"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktfwhom"
    Case "bktfwhom"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkconnostories"
    Case "bkconnostories"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksketch"
    Case "bksketch"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkphotos"
    Case "bkphotos"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec1"
    Case "bkdimsec1"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec1"
    Case "bkavehtsec1"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec1"
    Case "bkareasec1"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec1"
    Case "bkperimetersec1"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec1"
    Case "bkshapesec1"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec2"
    Case "bkdimsec2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec2"
    Case "bkavehtsec2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec2"
    Case "bkareasec2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec2"
    Case "bkperimetersec2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec2"
    Case "bkshapesec2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec3"
    Case "bkdimsec3"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec3"
    Case "bkavehtsec3"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec3"
    Case "bkareasec3"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec3"
    Case "bkperimetersec3"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec3"
    Case "bkshapesec3"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec4"
    Case "bkdimsec4"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec4"
    Case "bkavehtsec4"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec4"
    Case "bkareasec4"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec4"
    Case "bkperimetersec4"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec4"
    Case "bkshapesec4"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec5"
    Case "bkdimsec5"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec5"
    Case "bkavehtsec5"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec5"
    Case "bkareasec5"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec5"
    Case "bkperimetersec5"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec5"
    Case "bkshapesec5"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec6"
    Case "bkdimsec6"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec6"
    Case "bkavehtsec6"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec6"
    Case "bkareasec6"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec6"
    Case "bkperimetersec6"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec6"
    Case "bkshapesec6"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec7"
    Case "bkdimsec7"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec7"
    Case "bkavehtsec7"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec7"
    Case "bkareasec7"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec7"
    Case "bkperimetersec7"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec7"
    Case "bkshapesec7"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsec8"
    Case "bkdimsec8"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehtsec8"
    Case "bkavehtsec8"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareasec8"
    Case "bkareasec8"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetersec8"
    Case "bkperimetersec8"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapesec8"
    Case "bkshapesec8"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdimsectotal"
    Case "bkdimsectotal"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkavehttotal"
    Case "bkavehttotal"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkareatotal"
    Case "bkareatotal"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkperimetertotal"
    Case "bkperimetertotal"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshapetotal"
    Case "bkshapetotal"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkcframe"
    Case "bkcframe"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkcnoncomb"
    Case "bkcnoncomb"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkcfireresist"
    Case "bkcfireresist"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkcmasonncomb"
    Case "bkcmasonncomb"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkcjmasonary"
    Case "bkcjmasonary"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkcother"
    Case "bkcother"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofflat"
    Case "bkroofflat"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofpitched"
    Case "bkroofpitched"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofmetal"
    Case "bkroofmetal"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofslate"
    Case "bkroofslate"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofwood"
    Case "bkroofwood"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofasphalt"
    Case "bkroofasphalt"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofmembrane"
    Case "bkroofmembrane"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofother"
    Case "bkroofother"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofage"
    Case "bkroofage"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkroofcondition"
    Case "bkroofcondition"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextwood"
    Case "bkextwood"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextglass"
    Case "bkextglass"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextmetal"
    Case "bkextmetal"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextmetalclad"
    Case "bkextmetalclad"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextbrick"
    Case "bkextbrick"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextsiding"
    Case "bkextsiding"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextblock"
    Case "bkextblock"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextconcrete"
    Case "bkextconcrete"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextcomposite"
    Case "bkextcomposite"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkextother"
    Case "bkextother"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupwdroof"
    Case "bksupwdroof"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupwdfloor"
    Case "bksupwdfloor"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupmetalrf"
    Case "bksupetalrf"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupmetalfl"
    Case "bksupmetalfl"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupstructrf"
    Case "bksupstructrf"
        Selection.GoTo What:=wdGoToBookark, Name:="bksupstructfl"
    Case "bksupstructfl"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtrf"
    Case "bksupconcrtrf"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtfl"
    Case "bksupconcrtfl"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtslbrf"
    Case "bksupconcretslbrf"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupconcrtslbfl"
    Case "bksupconcrtslbfl"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupotherrf"
    Case "bksupotherrf"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksupotherfl"
    Case "bksupotherfl"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkintwalls"
    Case "bkintwalls"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkintbasement"
    Case "bkintbasement"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectage"
    Case "bjelectage"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectcond"
    Case "bkelectcond"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectgents"
    Case "bkelectgents"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectfused"
    Case "bkelectfused"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbreakers"
    Case "bkelectbreakers"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectgfci"
    Case "bkelectgfci"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectemg"
    Case "bkelectemg"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectedp"
    Case "bkelectedp"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectlight"
    Case "bkelectlight"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbgyes"
    Case "bkelectbgyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelectbgno"
    Case "bkelectbgno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevyes"
    Case "bkelevyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevno"
    Case "bkelevno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevland"
    Case "bkelevland"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevusetyp"
    Case "bkelevusetyp"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsyes"
    Case "bkelevlftsyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsno"
    Case "bkelevlftsno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsland"
    Case "bkelevlftsland"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevlftsusetyp"
    Case "bkelevlftsusetyp"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevccyes"
    Case "bkelevccyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevccno"
    Case "bkelevccno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevmcyes"
    Case "bkelevmcyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkelevmcno"
    Case "bkelevmcno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbage"
    Case "bkplumbage"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbcond"
    Case "bkplumbcond"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbwell"
    Case "bkplumbwell"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbtype"
    Case "bkplumbtype"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbtested"
    Case "bkplumbtested"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbps"
    Case "bkplumbps"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbother"
    Case "bkplumbother"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbcopper"
    Case "bkplumbcopper"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbplastic"
    Case "bkplumbplastic"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkplumbother2"
    Case "bkplumbother2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacage"
    Case "bkhvacage"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccond"
    Case "bkhvaccond"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacelec"
    Case "bkhvacelec"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvachotair"
    Case "bkhvachotair"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvachotwat"
    Case "bkhvachotwat"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacpou"
    Case "bkhvacpou"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacir"
    Case "bkhvacir"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacstove"
    Case "bkhvacstove"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaclpgas"
    Case "bkhvaclpgas"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacnatgas"
    Case "bkhvacnatgas"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacoil"
    Case "bkhvacoil"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacwood"
    Case "bkhvacwood"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacage2"
    Case "bkhvacage2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccond2"
    Case "bkhvaccond2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacstboiler"
    Case "bkhvacstboiler"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacboilrm"
    Case "bkhvacboilrm"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccurcert"
    Case "bkhvaccurcert"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacmscert"
    Case "bkhvacmscert"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacbldgheated"
    Case "bkhvacbldgheated"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacos"
    Case "bkhvacos"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacaircond"
    Case "bkhvacaircond"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvaccent"
    Case "bkhvaccent"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkhvacunit"
    Case "bkhvacunit"
        Selection.GoTo What:=wdGoToBookmark, Name:="bknotes"
    Case "bknotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfirediv"
    Case "bkfirediv"
        Selection.GoTo What:=wdGoToBookmark, Name:="bknumber"
    Case "bknumber"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkparapetted"
    Case "bkparapetted"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkprotnotes"
    Case "bkprotnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdistfiredept"
    Case "bkdistfiredept"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkpaid"
    Case "bkpaid"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkpaidcall"
    Case "bkpaidcall"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkvolunteer"
    Case "bkvolunteer"
        Selection.GoTo What:=wdGoToBookmark, Name:="bknearesthyd"
    Case "bknearesthyd"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkotherwtsup"
    Case "bkotherwtsup"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksprinklersyes"
    Case "bksprinlersyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksprinklersno"
    Case "bksprinklersno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksprinkregyes"
    Case "bksprinkregyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bksprinkregno"
    Case "bksprinkregno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypsyswet"
    Case "bktypsyswet"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypesysdry"
    Case "bktypesysdry"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktypesysareaprot"
    Case "bktypesysareaprot"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkservcontyes"
    Case "bkservcontyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkservcontno"
    Case "bkservcontno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdatelstserv"
    Case "bkdatelstserv"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktamperalarmyes"
    Case "bktaperalarmyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bktamperalarmno"
    Case "bktamperalarmno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysyes"
    Case "bkfixedestsysyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysno"
    Case "bkfixedestsysno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsystype"
    Case "bkfixedestsystype"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfixedestsysservcon"
    Case "bkfixedestsysservcon"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextyes"
    Case "bkfireextyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextno"
    Case "bkfireextno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextadqyes"
    Case "bkfireextadqyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkfireextadqno"
    Case "bkfireextadqno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkannualservyes"
    Case "bkannualservyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkannualservno"
    Case "bkannualservno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkmonthlychksyes"
    Case "bkmonthlychksyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkmonthlychksno"
    Case "bkmonthlychksno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmheat"
    Case "bkalarmheat"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmsmoke"
    Case "bkalarmsmoke"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmintru"
    Case "bkalarmintru"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmpanic"
    Case "bkalarmpanic"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmhardw"
    Case "bkalarmhardw"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmbattery"
    Case "bkalarmbattery"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmpullstat"
    Case "bkalarmpullstat"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmaud"
    Case "bkalarmaud"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmvis"
    Case "bkalarmvis"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmcs"
    Case "bkalarmcs"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkalarmdispolst"
    Case "bkalarmdispolst"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaeyes"
    Case "bklifeaeyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaeno"
    Case "bklifeaeno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaena"
    Case "bklifeaena"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeaenotes"
    Case "bklifeaenotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsyes"
    Case "bklifeextsyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsno"
    Case "bklifeextsno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsna"
    Case "bklifeextsna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextsnotes"
    Case "bklifeextsnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslyes"
    Case "bklifeextslyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslno"
    Case "bklifeextslno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslna"
    Case "bklifeextslna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeextslnotes"
    Case "bklifeextslnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccyes"
    Case "bklifeeccyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccno"
    Case "bklifeeccno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccna"
    Case "bklifeeccna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeeccnotes"
    Case "bklifeeccnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelyes"
    Case "bklifeelyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelno"
    Case "bklifeelno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelna"
    Case "bklifeelna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifeelnotes"
    Case "bklifeelnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondyes"
    Case "bklifefireesccondyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondno"
    Case "bklifefireesccondno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondna"
    Case "bklifefireesccondna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bklifefireesccondnot"
    Case "bklifefireesccondnot"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshhouseok"
    Case "bkshhouseok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshhousena"
    Case "bkshhousena"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshhousenotes"
    Case "bkshhousenotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshscok"
    Case "bkshscok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshscna"
    Case "bkshscna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshscnotes"
    Case "bkshscnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsok"
    Case "bkshcsok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsna"
    Case "bkshcsna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshcsnotes"
    Case "bkshcsnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsok"
    Case "bkshfsok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsna"
    Case "bkshfsna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshfsnotes"
    Case "bkshfsnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcok"
    Case "bkshwcok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcna"
    Case "bkscwcna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshwcnotes"
    Case "bkshwcnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptok"
    Case "bkshleadptok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptukn"
    Case "bkshleadptukn"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshleadptnotes"
    Case "bkshleadptnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwok"
    Case "bkshhazwok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwna"
    Case "bkshhazwna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshhazwnotes"
    Case "bkshhazwnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshspok"
    Case "bkshspok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshspna"
    Case "bkshspna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshspnotes"
    Case "bkshspnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshcookok"
    Case "bkshcookok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshcookna"
    Case "bkshcookna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshcooknotes"
    Case "bkshcookna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsok"
    Case "bkshfldsok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsna"
    Case "bkshfldsna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshfldsnotes"
    Case "bkshfldsnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmok"
    Case "bkshmmok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmna"
    Case "bkshmmna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshmmnotes"
    Case "bkshmmnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsok"
    Case "bkshvmsok"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsna"
    Case "bkshvmsna"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkshvmsnotes"
    Case "bkshvmsnotes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisfront"
    Case "bkeedisfront"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisrear"
    Case "bkeedisrear"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisleft"
    Case "bkeedisleft"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeedisright"
    Case "bkeedisright"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontfront"
    Case "bkeecontfront"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontrear"
    Case "bkeecontrear"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontleft"
    Case "bkeecontleft"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeecontright"
    Case "bkeecontright"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpfront"
    Case "bkeeoccpfront"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccprear"
    Case "bkeeoccprear"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpleft"
    Case "bkeeoccpleft"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeoccpright"
    Case "bkeeoccpright"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeepoor"
    Case "bkeepoor"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeba"
    Case "bkeeba"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeavg"
    Case "bkeeavg"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeabavg"
    Case "bkeeabavg"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkeeexc"
    Case "bkeeexc"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdtlstms"
    Case "bkdtlstms"
        Selection.GoTo What:=wdGoToBookmark, Name:="bknewmsdoneyes"
    Case "bknewmsdoneyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bknewmsdoneno"
    Case "bknewmsdoneno"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkmsclass"
    Case "bkmsclass"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkmsprobmaxloss"
    Case "bkmsproblmaxloss"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkentity2"
    Case "bkentity2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkloc2"
    Case "bkloc2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkdate2"
    Case "bkdate2"
        Selection.GoTo What:=wdGoToBookmark, Name:="bknarr"
    Case "bknarr"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkapiyes"
    Case "bkapiyes"
        Selection.GoTo What:=wdGoToBookmark, Name:="bkapino"
   
    End Select
 
End Sub
Microsoft Word

Avatar of undefined
Last Comment
ktrask36
ASKER CERTIFIED SOLUTION
Avatar of GrahamSkan
GrahamSkan
Flag of United Kingdom of Great Britain and Northern Ireland image

Blurred text
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
Avatar of ktrask36
ktrask36

ASKER

done
Avatar of ktrask36
ktrask36

ASKER

Did not fix my issue.
Microsoft Word
Microsoft Word

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.

30K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
Ask the experts
Read over 600 more reviews

TRUSTED BY

IBM logoIntel logoMicrosoft logoUbisoft logoSAP logo
Qualcomm logoCitrix Systems logoWorkday logoErnst & Young logo
High performer badgeUsers love us badge
LinkedIn logoFacebook logoX logoInstagram logoTikTok logoYouTube logo