WPC. ;l „.,utx! 4be.,Z`p)"Rd`IgHBCOfHOEGAw&HEB$я˚ɑ{B|m90?=H\R8f[ ǵ)ծ@'ӛm>/s@_@ Y8 +_ 7N4Lsȅ<&BM-JM1q%^iK$i/7Ě(Y-vnh~O!=+y<R^5#_syWz҄(-;k[#߈W3bӕwΒHT(9?!R1;Ň3KHlxt&JF܃/mi{-GFd 2 .ߣP|IO,ĶɦɆ3}zp%uRԫQiQ&0F a} 0f\# % UFZ(U9,(^ (w(4((( m)N)U':) T) C0Z)UN)U:) 0***E***9******************************************************************************************* B,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 0n- 0r.(>#$X XXXհ XXHP LaserJet 5L0X95[H:\MasterMacros\ConvertCaseInitialCaps.wcm\#*5+H[LIB~@Hx LIB)VHRTH[L@[LIB,+ NNNHBAo*lH'oInitial CapitalsLNIo!Select text for conversion first.LNBn)@HE*l$CHECKVERSION11@ rNNN aHØB-n H3oConvertCaseInitialCapsLNwo8The bug is fixed. For WPWinX3 (Service Pack 1 or later);rVHRToDthis macro uses the default WPWinX3 conversion to initial capitals).LNBn)@#HE;%HE"&HE'HE*(n. rNNN a@0B2/H3oConvertCaseInitialCapsLNgo0This macro is not needed for WPWin9 and earlier;rVHRTao-and does not function in WPWin8; for WPWin9, rVHRTo<this macro uses the default conversion to initial capitals).LNBn)@5HE;8HE"9HE;HE*<B rNNN a@0B- rNNN aHØB2 D[NWAITEZVERRORFHoLERRORLOB*@GHoLQUITLOB*@HH o*LNB!(HCURRENTJH[LIB~@KHBB@ STARTPAGELHB5 STARTLINEMHoInitCapsLQ[LIENHoInitCapsLQEsOHE;QHBB@r STARTPAGE-HB5r STARTLINE-? RH[LUESH o*LNB!(rHCURRENT;] THrHCURRENTLNB(@U] YHoInitCapsLQEsZ[[.PRINTERMETRICSSTATE@\HE;][.PRINTERMETRICSSTATE@^ `HoInitCapsLQEraHE"bHoInitCapsLQEucHEd eHE*kVSTATElH[LIB~@mH[LIB@nH rVSTATELI[LIE poHEZpHxLSErHo{Down}LQE*sHo{Enter}LQE*tHo{Alt+T}LQE*uHrNWAITLUE*vHo{Enter}LQE*wH o*LNB!( HSDxH oaLN oaLQEm)yHEk)zHrNWAITLUE*{Ho{Tab}LQE*|Ho{Tab}LQE*}Ho{Tab}LQE*~Ho{Enter}LQE*HrNWAITLUE*Ho{Enter}LQE*H o*LNB!( HSDH oaLN oaLQEm)HEk)Ho{Tab}LQE*Ho{Enter}LQE*HrNWAITLUE*Ho{Alt+C}LQE*[|[|5H[L@[ LIB,+ VVo WordPerfect H rVVLQ[LUB) o* VVH rVVLNB!(VWHEREH3oConvertCaseInitialCapsLNrVWHERELNBn)@rVERROR\H3oConvertCaseInitialCapsLNoErrorLNBn)@=YVERRORHoInitCapsLQEsH3oConvertCaseInitialCapsLNo Trying againLN[LIBn)@, TRYONCEMOREHE*UNHx LIB)VHRTH[L@[LIB,+ NNN rNNN aXb/FB2 rNNN a`/FB-CHvVANSLR!o Macro VersionLN]o+ You are running the first build of WPWin11rVHRToFThere is no certainty that any macro will run correctly in that build.rVHRTrVHRToYPlease install the latest service pack from ftp://ftp.corel.com/pub/WordPerfect/wpwin/11/rVHRTrVHRTo=Click "OK" to run the macro anyway. Click "Cancel" otherwiserVHRTLN[[LIBn)@rVANS[-8HE*8C[|5[)51LLQUIT1LERROR%1Z TRYONCEMORE++1[CHECKVERSION1151k PRINTERMETRICSSTATEN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter. Z.Century Schoolbook ,iAZArial N8[[R5:i+003|xU, \AZ"Arial RegularH,Sticky Notedd(mK Z6Times New Roman Regular"Arial Regular(Z3Em$ #!X/XXXtXX/   / Em'XXXXXX  _55ConvertCaseInitialCaps.wcm@#Version13.2.0WW<(#2007January01  CharlesE.Rossiter@charles@rossiter.co.za@(#Page  1  ڀof  5  ڈ o @=i@At) xdExA d(Z3Em$ #!X/XXXtXX/  d>z:StandardFontStandard Font Choice%Y%%%rXrX%%Y4>uC2Arial 10Xo XXX4W  XXo #!XXXXXX  _33=Bdd=%  Application(WordPerfect;"WordPerfect";Default!)   Em  ,,IfPlatform("Comments01")#,,|#   5 S5Macro ConvertCaseInitialCaps.wcm 0 h 0h(#h(#Version14.0.0kk@(#(#(#2008May01  S Purpose:0 ` ToreplacethestandardmenuitemforconvertingtexttoInitialCapitals. ` (#` (#   0 ` Thisisbrokenin WPWin10,WPWin11,WPWin12andWPWinX3 (originalrelease) , ` (#` (#    ` iftheConvertoption"Donotuseprintermetrics"isselected.   ЀModified0 ` April2006tosimplifyroutineforWPWinX3` (#` (#  󀀀ModifiedDecember2006torestricttoWPWinX3(originalrelease) u  ЀRewritten ` 01January2007fornew,simplifiedremedyforWPWinX3(SP1) Z  CharlesE.Rossiter5(#charles@rossiter.co.za ?{  @$` @,,EndIfPlatform("Comments01") #,,# $`  Display(Off!)   -//==============InitialChecks;Start============== w   vHRt=NToC(63754)  A} 6nnn rԀ=VersionInfo(PerfectFitVersion!;ProductVersionNumber!) &b If(?SelectedText="")    (#. //Appliestoselectedtextonly,butnocurrenttextselected >Ԉ , Ѐ MessageBox (;" InitialCapitals";"Selecttextforconversionfirst.  ")    r   Quit     EndIf    CallCheckVersion11()0  #2(#.(#(##//CheckBuildofWPWin112 Ԉ     .(#.//Macroprecheckscompleted i  //==============InitialChecks;End============== N  //==============ForWPWinX3(withSP1);Start==============  9 If  ( nnn  >13000000000420.0) !  󀀀 MessageBox (; "ConvertCaseInitialCaps " ; " 0  "Thebugisfixed.ForWPWinX3(ServicePack1orlater);"+vHRt+# (#(#   "thismacrousesthedefaultWPWinX3conversiontoinitialcapitals)." ) $!  󀀀 ConvertCaseInitialCaps() 0   #.(#.(#(##//BugFixedinWPWinX3(SP1) v%" (#. //Usestandard"ConverttoInitialCapitals" ~Ԉ [&#  PosBlockBottom() @'|$ SelectOff() %(a % #h# Quit  )F!& EndIf  )+"'  //==============ForWPWinX3(withSP1);End============== +#) r  ,$* //==============ForWPWin9;Start==============  %If ( nnn Ԁ<10000000000000.0)    Ԁ8MessageBox (;" ConvertCaseInitialCaps " ; s    "ThismacroisnotneededforWPWin9andearlier;"+vHRt+ X    "anddoesnotfunctioninWPWin8;forWPWin9,"+vHRt+ = y   "thismacrousesthedefaultconversiontoinitialcapitals)."s) " ^      Z Z (#.//ThemacrodoesnotcompileinWPWin8orearlier,sonoversioncheckneeded > ( Ѐ ConvertCaseInitialCaps()  0  4 #ZZ(#.(#(##//BugFixnotneededforWPWin9andearlier    (#. //Usestandard"ConverttoInitialCapitals" hԈ   E PosBlockBottom()   SelectOff() e  #܅# Quit /k  EndIf P P//==============ForWPWin9;End============== 5 //==============ForWPWin10,uptoWPWin13initialrelease;Start==============  If (( nnn >10000000000000.0)and( nnn Ԁ<13000000000420.0 #))_ r  GlobalnWait=00 #zz(#.  (# (##//SetnWait=1or2toslowthemacrodown.  <x vError=False !] OnError(lError) B OnCancel(lQuit) ' #ܲ# hCurrent=AppLocate("*")   Display(Off!) " Startpage=?page # Startline=?line d$  BookMarkCreate("InitCaps";Yes!) I%! BookMarkBlock("InitCaps") .&j" #.#ConvertCaseInitialCaps() 'O#  IfԀ((?page>StartPage)or(?line>StartLine)) 0   #>>1(#.((#(##//Hastheerroroccurred? KԈ (!% #t#ԀUndo(1)0 ` 0 ` (#` (#0 (# (#0h(#(#0h(#h(# #w!w!E(#.((#(##//Yes zԈ )!& ##If(AppLocate("*")<>hCurrent) *"' ЀAppActivate(hCurrent) +#( EndIf q,$)   V-%* ̀BookMarkBlock("InitCaps")0  //Forreasonsunknown,occasionallythemacrocangiveanerrorof  "BookMarknotfound"butthisiserrortrappedbyOnError...  (#(# # #ԀLabel(TryOnceMore) s  ЀPrinterMetricsState(0)0   ##(#.(#(##//Deselect"Donotuseprintermetrics" \!Ԉ X  # #ԀConvertCaseInitialCaps()0   #-(#.(#(##//ConverttoInitialCapitals W"Ԉ = y #"#ԀPrinterMetricsState(1)0   ##(#.(#(##//Reselect"Donotuseprintermetrics" F#Ԉ " ^ ### EndIf # C # $#BookMarkFind("InitCaps")    #܁$# PosBlockBottom()   BookMarkDelete("InitCaps")   SelectOff()   #$# Ԁ#ܶ%# EndIf&#%# e  Quit & J  #i&#  #'#//==============ForWPWin10,uptoWPWin13,initialrelease;End============== M' 5    ProcedurePrinterMetricsState(vState)'   Display(Off!)   #'#InhibitInput(Off!) s  PrefCompatibilityOptions(vState;ModeOrOption0:NoPrinterMetrics!) X  #ܺ(#PrefSave()0 ` 0 ` (#` (#0 (# (# #.(#.(#(##//Setprintermetricsoption )Ԉ = y InvokeDialog(SettingsDlg)0   #^^!(#.(#(##//KeystrokestoclicktheTemplatebutton *Ԉ " ^ #|)# ^+ #<+#SendKeys("{Down}") ( #ܩ+#SendKeys("{Enter}")    #,#SendKeys("{Alt+T}")   #~,#Wait(nWait)   #,#SendKeys("{Enter}")#L-#   hsd=AppLocate("*") e  Prompt("a";"a") J  EndPrompt() /k  #ܢ-#Wait(nWait) P SendKeys("{Tab}") 5 #i.#SendKeys("{Tab}")  #.#SendKeys("{Tab}")  #\/#Sendkeys("{Enter}")  Wait(nWait)  #/#Sendkeys("{Enter}") r hsd=AppLocate("*") W Prompt("a";"a") <x EndPrompt() !] SendKeys("{Tab}") B #Q0#Sendkeys("{Enter}") ' Wait(nWait)   #S1#SendKeys("{Alt+C}") ! #1#Return "  2#J2#EndProc2  d$   #2#//==============ForWPWin10,uptoWPWin13,initialrelease;End============== 13 .&j" #3#  'O# '4Label(lError) d4     `  yy(#. //Themessageboxesareforerrorreportingpurposes     4vv=VersionInfo(WordPerfectVersion!;FileVersionString!) s  vv="WordPerfect"+StrLeft(vv;2)+"*" X  vWhere=AppLocate(vv) = y Ѐ MessageBox(;"ConvertCaseInitialCaps"I6Ԁ;vWhere) 6 " ^ If(vError)  C 6ԀMessageBox(;"ConvertCaseInitialCaps";"Error")"7  ( ЀElse    ЀvError=True   ЀBookMarkBlock("InitCaps")#t4#    򀀀MessageBox(;"ConvertCaseInitialCaps";"Tryingagain";OKCancel!)M8    ЀGo(TryOnceMore) e  EndIf J   Quit /k  Label(lQuit) P  9 #8#ProcedureCheckVersion11()  2(#. //CheckBuildofWPWin11   9vHRt=NToC(63754) r nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!) W If(nnn<11000000000300.0andnnn>11000000000000.0) <x MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ !] "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+ B "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+ ' "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt;   OKCancel!|IconWarning!) !  If(vAns>1) # ЀQuit d$  EndIf I%! EndIf 'O#  EndProc s= (!%