Word VBA "Label Not Defined" If Bookmark exists command -


i new vba , learning. here's situation , problem:

1) created working userform text , comboboxes linking bookmarks 2) problem doesn't work if bookmarks don't exist (and project require this: form need run on documents not bookmarks present) 3) form stop giving me error messages if bookmarks arent there , fill out ones existing in particular ocument 4) here's code:

private sub cmdok_click()     application.screenupdating = false     activedocument           if .bookmarks.exists("cboyourname")         .range.text = cboyourname.value         else: goto 28     end if          if .bookmarks.exists("cboyourphone")          .range.text = cboyourphone.value          else: goto 32     end if         if .bookmarks.exists("cboyourfax")         .range.text = cboyourfax.value         else: goto 36     end if          if .bookmarks.exists("cboyouremail")          .range.text = cboyouremail.value         else: goto 40     end if          if .bookmarks.exists("txtcontractname")          .range.text = txtcontractname.value          else: goto 44     end if           if .bookmarks.exists("txtcontractnumber")           .range.text = txtcontractnumber.value           else: end     end if     end     application.screenupdating = true     unload me end sub

4) how work?????????

i think you're close. first, avoid goto statements. in code, it's hard tell mean do. think errors goto statements. parameter label, not line number. second, avoid using end. it's better have closing routine. said, code works number of exists statements.

private sub cmdok_click()     application.screenupdating = false     activedocument         if .bookmarks.exists("cboyourname")             .range.text = "cboyourname text."         else             debug.print "bookmark exists."         end if          if .bookmarks.exists("cboyourphone")            .range.text = "cboyourphone text"         else             debug.print "bookmark not exists."         end if     end      application.screenupdating = true     unload me end sub

however, aware each found bookmark replaces content of document, including subsequently found bookmarks. mean do?


Comments

Post a Comment

Popular posts from this blog

asp.net - repeatedly call AddImageUrl(url) to assemble pdf document -

i'm using abcpdf , i'm curious if can recursively call addimageurl() function assemble pdf document compile multiple urls? something like: int pagecount = 0; int theid = thedoc.addimageurl("http://stackoverflow.com/search?q=abcpdf+footer+page+x+out+of+", true, 0, true); //assemble document while (thedoc.chainable(theid)) { thedoc.page = thedoc.addpage(); theid = thedoc.addimagetochain(theid); } pagecount = thedoc.pagecount; console.writeline("1 document page count:" + pagecount); //flatten document (int = 1; <= pagecount; i++) { thedoc.pagenumber = i; thedoc.flatten(); } //now try again theid = thedoc.addimageurl("http://stackoverflow.com/questions/1980890/pdf-report-generation", true, 0, true); //assemble document while (thedoc.chainable(theid)) { thedoc.page = thedoc.addpage(); theid = thedoc.addimagetoc...
Read more

java - Android recognize cell phone with keyboard or not? -

in android app, want detect user's device if device has keyboard(like motorola milestone) , show corresponding user interface. guys know how that? ! regards justicepenny http://developer.android.com/reference/android/content/res/configuration.html public int keyboard the kind of keyboard attached device. 1 of: keyboard_nokeys, keyboard_qwerty, keyboard_12key. that's it!
Read more

iphone - How would you achieve a LED Scrolling effect? -

how achieve led scrolling effect example below? led sign - led ticker emulator iphone , ipad http://img.skitch.com/20101201-rsfh4p1bajb1wp94k466pdpiuj.preview.jpg sometimes remunerates comment in other posts :) have put code you, should implement font '8pin matrix' realistic feeling. uilabel *label; - (void)viewdidload { [super viewdidload]; label = [[uilabel alloc]initwithframe:cgrectmake(10, 50, 300, 20)]; label.font = [uifont fontwithname:@"courier-bold" size:16.0]; label.backgroundcolor = [uicolor blackcolor]; label.textcolor = [uicolor greencolor]; label.linebreakmode = uilinebreakmodecharacterwrap; // otherwise "…" label.text = @"this led text scrolled "; // blanks space between [self.view addsubview:label]; [nstimer scheduledtimerwithtimeinterval:0.12f target:self selector:@selector(scrolllabel) use...
Read more