LHSP‡ :example by by n1to10n1to10n1to10dimensionsymbol/second example of 3D measurements - pages 37-39testýøÿÿ†Sub Main SendKeys ListVar1 ' Step 1 – display the first number ' Step 2 - Display unit of measure SendKeys Mid(ListVar4, 1, InStr(ListVar4, "\")-1) SendKeys " x " ' Steps 3 and 6, send the "by" symbol SendKeys ListVar2 ' Step 4 – display the second number ' Step 5 - Display unit of measure SendKeys Mid(ListVar4, 1, InStr(ListVar4, "\")-1) SendKeys " x " ' Steps 3 and 6, send the "by" symbol SendKeys ListVar3 ' Step 7 – display the third number ' Step 8 - Display unit of measure SendKeys Mid(ListVar4, 1, InStr(ListVar4, "\")-1) SendKeys " " ' Step 9 - Display a trailing space ' SendKeys "{(}" ' The following is different from in the book! ' ' Direct Multiplication of the variables, which are strings, is not allowed. ' ' instead, they can be be converted to integers using the VB CInt function, ' then multiplied, then converted back to a string using the CStr function. ' SendKeys CStr(CInt(ListVar1) * CInt(ListVar2) * CInt(ListVar3)) SendKeys " cubic " If "'\feet" = ListVar4 Then SendKeys "feet" Else SendKeys Mid(ListVar4, 1, InStr(ListVar4, "\")-1) End If SendKeys "{)} End Sub - by by n1to10n1to10n1to10 dimensions(first example of 3-D measurement commandtestýøÿÿ}Sub Main SendKeys ListVar1 ' Step 1 – display the first number ' Step 2 - Display unit of measure If ListVar4 = "inches" Then SendKeys "in." If ListVar4 = "feet" Then SendKeys "'" If ListVar4 = "millimeters" Then SendKeys "mm" If ListVar4 = "centimeters" Then SendKeys "cm" If ListVar4 = "meters" Then SendKeys "m" SendKeys " x " ' Steps 3 and 6, send the "by" symbol SendKeys ListVar2 ' Step 4 – display the second number ' Step 5 - Display unit of measure If ListVar4 = "inches" Then SendKeys "in." If ListVar4 = "feet" Then SendKeys "'" If ListVar4 = "millimeters" Then SendKeys "mm" If ListVar4 = "centimeters" Then SendKeys "cm" If ListVar4 = "meters" Then SendKeys "m" SendKeys " x " ' Steps 3 and 6, send the "by" symbol SendKeys ListVar3 ' Step 7 – display the third number ' Step 8 - Display unit of measure If ListVar4 = "inches" Then SendKeys "in." If ListVar4 = "feet" Then SendKeys "'" If ListVar4 = "millimeters" Then SendKeys "mm" If ListVar4 = "centimeters" Then SendKeys "cm" If ListVar4 = "meters" Then SendKeys "m" SendKeys " " ' Step 9 - Display a trailing space End Sub acnestagetestýøÿSThe patient presents today with a <> case of acne on both sides of the face.mole removal surgery <1to5>1to5a really dumb command for metestýøÿ‚Sub Main SendKeys "The mole was excised to a depth of " SendKeys ListVar1 & "mm " SendKeys "below the skin surface." End Sub #sample outline romannumeralperiod$sample outlining command pages 45-46testýøÿÿ.Sub Main Dim dispString As String dispString = "" ' make the string null For i = 1 To UtilityProvider.ContextValueCount dispString = dispString & Mid(UtilityProvider.ContextValue(i-1), 1, _ InStr(UtilityProvider.ContextValue(i-1), "\") - 1) Next i SendKeys dispString End Sub :sample outline romannumeralperioduppercasealphaperiod$sample outlining command pages 45-46testýøÿÿ.Sub Main Dim dispString As String dispString = "" ' make the string null For i = 1 To UtilityProvider.ContextValueCount dispString = dispString & Mid(UtilityProvider.ContextValue(i-1), 1, _ InStr(UtilityProvider.ContextValue(i-1), "\") - 1) Next i SendKeys dispString End Sub tsample outline romannumeralperioduppercasealphaperiod digitperiodlowercasealphaparenlowercaseromanparen$sample outlining command pages 45-46testýøÿÿ.Sub Main Dim dispString As String dispString = "" ' make the string null For i = 1 To UtilityProvider.ContextValueCount dispString = dispString & Mid(UtilityProvider.ContextValue(i-1), 1, _ InStr(UtilityProvider.ContextValue(i-1), "\") - 1) Next i SendKeys dispString End Sub #sample part alphadigitdigittestýøÿÿ.Sub Main Dim dispString As String dispString = "" ' make the string null For i = 1 To UtilityProvider.ContextValueCount dispString = dispString & Mid(UtilityProvider.ContextValue(i-1), 1, _ InStr(UtilityProvider.ContextValue(i-1), "\") - 1) Next i SendKeys dispString End Sub part number  dnsversiontestýøÿ<>sample save for signature!save a file based on RE: contentstestýøÿÿSub Main ' macro to get me home 10 minutes earlier each day SendKeys "^{Home}" ' 1. ctrl+home move to top of document SendKeys "%e" ' 2. alt+e move to Edit menu MenuPick "Find" ' 3. select the “find” ' Alternate–Steps 2 & 3 can be done via a SendKeys "^f" Wait .5 ' 4. Wait a while ' 5. try to find "RE:" then destroy the "Find" window SendKeys "RE:{Enter}{Esc}",True ' 6. move right two then select the rest of the line ' 7. copy the selected text with ctrl+c SendKeys "{Right 2}+{End}^c" Wait .5 ' 8. alt+f for File, then a for Save As SendKeys "%fa" ' 8. alt+f for File, then a for Save As Wait .5 ' 9. Enter the directory path ' ' This line will almost always need to be changed to reflect ' your specific system and where you store files. ' SendKeys "C:\Users\pcspeak\Documents\ReadyForSignature\" ' Alternate of SendKeys "C:\Temp\" or other directory of your choosing ' ' Wait .5 SendKeys "^v" ' 10. paste the file name Wait .5 HeardWord "click", "Save" ' 11. save the file End Sub sample what time is it give timetestýøÿrSub Main MsgBox Format(Now, "dddd, mmmm d yyyy") & vbCr & _ Format(Now, "hh:mm:ss AM/PM") End Sub yesterdayprint the date of yesterdaytestýøÿôSub Main Dim Yesterday As Date Yesterday = Now-1 ' We want only one value for "yesterday" SendKeys WeekdayName(Weekday(Yesterday)) & " " SendKeys MonthName(Month(Yesterday)) & " " SendKeys Day(Yesterday) & " " & Year(Yesterday) End Sub phone number  phonelisttestýøÿESub Main MsgBox Mid(ListVar1, 1, InStr(ListVar1, "\")-1) End Sub ^sample outline romannumeralperioduppercasealphaperiod digitperiodlowercasealphaparen$sample outlining command pages 45-46testýøÿÿ.Sub Main Dim dispString As String dispString = "" ' make the string null For i = 1 To UtilityProvider.ContextValueCount dispString = dispString & Mid(UtilityProvider.ContextValue(i-1), 1, _ InStr(UtilityProvider.ContextValue(i-1), "\") - 1) Next i SendKeys dispString End Sub Hsample outline romannumeralperioduppercasealphaperiod digitperiod$sample outlining command pages 45-46testýøÿÿ.Sub Main Dim dispString As String dispString = "" ' make the string null For i = 1 To UtilityProvider.ContextValueCount dispString = dispString & Mid(UtilityProvider.ContextValue(i-1), 1, _ InStr(UtilityProvider.ContextValue(i-1), "\") - 1) Next i SendKeys dispString End Sub stagemildmoderatesevere very severe dnsversionA109A-X00-8.0\preferredA209A-X00-8.0\proA209A-X00-8.0\professionalA509A-X00-8.0\legalA709A-X00-8.0\medicaldimensionsymbol'\feetcm\centimetersm\metersmm\millimeters in.\inchesn1to10 11023456789alphaA\A.B\B.C\C.D\D.E\E.F\F.G\G.H\H.I\I.J\J.K\K.L\L.M\M.N\N.O\O.P\P.Q\Q.R\R.S\S.T\T.U\U.V\V.W\W.X\X.Y\Y.Z\Z.digit 0\oh0\zero1\one2\two3\three4\four5\five6\six7\seven8\eight9\nine digitperiod 1.\one2.\two3.\three4.\four5.\five6.\six7.\seven8.\eight9.\nine1to512345 dimensions centimetersfeetinchesmeters millimeters phonelist 987-6543\home876-5432\office(654)765-4321\Joe the neighbor(654)765-4321\Joe the plumber652-432-4321\company president01-999-5432-54321-32\E. T.romannumeralperiod I.\oneII.\two III.\threeIV.\fourIX.\nineV.\fiveVI.\six VII.\seven VIII.\eightX.\tenuppercasealphaperiodA.\A.B.\B.C.\C.D.\D.E.\E.F.\F.G.\G.H.\H.I.\I.J.\J.K.\K.L.\L.M.\M.N.\N.O.\O.P.\P.Q.\Q.R.\R.S.\S.T.\T.U.\U.V.\V.W.\W.X.\X.Y.\Y.Z.\Z.lowercasealphaparen(a)\A.(b)\B.(c)\C.(d)\D.(e)\E.(f)\F.(g)\G.(h)\H.(i)\I.(j)\J.(k)\K.(l)\L.(m)\M.(n)\N.(o)\O.(p)\P.(q)\Q.(r)\R.(s)\S.(u)\U.(v)\V.(w)\W.(x)\X.(y)\T.(y)\Y.(z)\Z.lowercaseromanparen (i)\one(ii)\two (iii)\three (iv)\four (ix)\nine(v)\five(vi)\six (vii)\seven (viii)\eight(x)\ten