LHSP‡        	   :example <n1to10> by <n1to10> by <n1to10> <dimensionsymbol>   n1to10n1to10n1to10dimensionsymbol!second example of 3D measurementspcspeak8 эшя                    я†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
example save for signature    replacing invalid characterspcspeak8 эр                    яESub Main
SendKeys "^{Home}"	' 1. ctrl+home move to top of document
SendKeys "%e"		' 2. alt+e select Edit menu
MenuPick "Find"		' 3. select the “find”
' Advanced users – the 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}"
Wait .5				' 6. Wait a while
' 7. move right two then copy the rest of the line
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
SendKeys "C:\My Documents\ReadyForSignature\"
' Alternate of SendKeys "C:\Temp\"
Wait .5
'----------- Show Replace function -----------
Fname$ = Clipboard		' put clipboard contents into
' the string Fname$
' replace periods with underline
Fname$ = Replace (Fname$, ".", "_")
' replace slashes with underline
Fname$ = Replace (Fname$, "/", "_")
' modify step 10
SendKeys Fname$  	' 10. updated file name
' -------- end of String Operations Changes -----
Wait .5
HeardWord "click", "Save"	' 11. save the file
End Sub
3sample <n1to10> by <n1to10> by <n1to10> <dimension>   n1to10n1to10n1to10	dimension(first example of 3-D measurement commandpcspeak8 эшя                    я}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
sample <stage> acne   stage pcspeak8 эшя                     SThe patient presents today with a <<stage>> case of acne on both sides of the face.sample choose format    dialog command for formattingpcspeak8 эшя                    я‘Sub Main
	Begin Dialog UserDialog 400,203 ' %GRID:10,7,1,1
		TextBox 30,14,330,63,.TextBox1,1
		OptionGroup .Group1
			OptionButton 40,91,90,14,"bold",.OptionButton1
			OptionButton 40,119,90,14,"underline",.OptionButton2
			OptionButton 40,147,90,14,"italics",.OptionButton3
		OKButton 80,175,90,21
		CancelButton 230,175,90,21
	End Dialog
	Dim dlg As UserDialog
	If Dialog(dlg) = -1 Then
		Select Case dlg.Group1
		Case 0  ' bold
			s="^b"
		Case 1  ' underline
	    	s="^u"
		Case 2  ' italics
	    	s="^i"
		End Select
		'
		Wait .5  ' let focus return
		SendKeys s
		SendKeys dlg.TextBox1
		SendKeys s
Else
End If

End Sub
sample control panel <applet>   appletshell commands using listpcspeak8 эшя                    яЁSub Main
' There are many of these applets.
' Some have different values in different versions of Windows.
' This sample is based on Windows-XP Professional
' The second argument to the Shell command, "vbMaximizedFocus", causes
'     windows to open.  If not present, then some of these Control
'     Panel applets open minimized.
	Shell("control " & Mid(ListVar1,1,InStr(ListVar1,"\")-1),vbMaximizedFocus)
End Sub
sample control panel audio    open the audio appletpcspeak8 эшя                    1Sub Main
Shell "control mmsys.cpl,,2"
End Sub
!sample control panel screen saver    open the screen saver appletpcspeak8                         0Sub Main
Shell "control desk.cpl,,1"
End Sub
sample current mouse position    +get the current mouse position in clipboardpcspeak8 эшя                    я!Option Explicit

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Type POINTAPI
x As Long
y As Long
End Type

' declare Win32 API functions

Declare Function GetCursorPos Lib "user32" _
  Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Declare Function GetWindowRect Lib "user32" _
  Alias "GetWindowRect" (ByVal hwnd As Long, _
  lpRect As RECT) As Long

Declare Function GetForegroundWindow& Lib "user32" ()

Function GetWinCurPos(hwnd As Long) As POINTAPI

Dim pt As POINTAPI
Dim wRect As RECT
Dim result As POINTAPI

GetCursorPos pt

GetWindowRect hwnd, wRect

result.x = pt.x - wRect.Left
result.y = pt.y - wRect.Top

GetWinCurPos = result
End Function

Sub Main
Dim hwnd As Long
Dim result As POINTAPI
Dim clip As String

hwnd = GetForegroundWindow
result = GetWinCurPos(hwnd)

clip = "SetMousePosition 1," & result.x & _
"," & result.y
clip = clip & Chr(13) & Chr(10) & _
"ButtonClick" & Chr(13) & Chr(10)
'
Clipboard clip
'
MsgBox clip, 64, "Mouse Test"
End Sub
#sample Hearing <month> <day> <time>   monthdaytime pcspeak8 эшя                     mThe hearing is scheduled for <<time>> on <<month>> <<day>> at our offices at 123 E. Main.   Please be prompt.sample large dictation box    "show dictation box with large fontpcspeak8 эшя                    яЋ' code courtesy of Polar Engineering; Valerie Matthews of ScanSoft; and Larry Allen of Softnet Systems, Inc.
Option Explicit

Const FONT=18	' Approximate font size - change as required

Const LOGPIXELSY = 90

Const WM_SETFONT = &H30

Declare Function CreateFontA Lib "gdi32" ( _
    ByVal nHeight As Long, _
    ByVal nWidth As Long, _
    ByVal nEscapement As Long, _
    ByVal nOrientation As Long, _
    ByVal fnWeight As Long, _
    ByVal fdwItalic As Long, _
    ByVal fdwUnderline As Long, _
    ByVal fdwStrikeOut As Long, _
    ByVal fdwCharSet As Long, _
    ByVal fdwOutputPrecision As Long, _
    ByVal fdwClipPrecision As Long, _
    ByVal fdwQuality As Long, _
    ByVal fdwPitchAndFamily As Long, _
    ByVal lpszFace As String _
    ) As Long

Declare Function DeleteObject Lib "gdi32" ( _
    ByVal hObject As Long _
    ) As Long

Declare Function GetDeviceCaps Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByVal nIndex As Long _
    ) As Long

Declare Function GetDlgItem Lib "user32" ( _
    ByVal hDlg As Long, _
    ByVal nIDDlgItem As Long _
    ) As Long

Declare Function GetWindowDC Lib "user32" ( _
    ByVal hWnd As Long _
    ) As Long

Declare Function ReleaseDC Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal hDC As Long _
    ) As Long

Declare Function SendMessageA Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal uMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
    ) As Long

Dim hFont As Long
Dim VMenu As IVMenuAuto

Sub Main
    Dim hDC As Long
    Dim result As Integer
    hDC = GetWindowDC(0)
    Dim Height As Long

	Height = -FONT*GetDeviceCaps(hDC,LOGPIXELSY)/72
    ReleaseDC 0,hDC
    hFont = CreateFontA(Height,0,0,0,0,0,0,0,0,0,0,0,0,"MS Sans Serif")
	Begin Dialog UserDialog 530,385,"Show Box",.DlgFunc ' %GRID:10,7,1,1
		TextBox 10,7,500,336,.TextBox1,1
		OKButton 60,357,90,21
		CancelButton 210,357,90,21
		PushButton 360,357,90,21,"&Help"
	End Dialog
    Dim dlg As UserDialog

	result = Dialog (dlg)

	If result = -1 Then ' If the user clicked OK,
		Clipboard dlg.TextBox1 ' copy the text box contents to the clipboard
		Wait .5
		SendDragonKeys "{Ctrl+v}" ' and then paste them to the active application.
	End If

    DeleteObject hFont

End Sub

Rem See DialogFunc help topic for more information.
Private Function DlgFunc(DlgItem$, Action%, SuppValue&) As Boolean
    Select Case Action%
    Case 1 ' Dialog box initialization
        Dim hWnd As Long
        hWnd = GetDlgItem(SuppValue,DlgControlId("TextBox1"))
        SendMessageA hWnd,WM_SETFONT,hFont,1
  '      hWnd = GetDlgItem(SuppValue,DlgControlId("TextBox1"))
  '      SendMessageA hWnd,WM_SETFONT,hFont,1
  '

	 Case 2 ' Value changing or button pressed
 			If DlgItem$ = "Help" Then
				HTMLHelp "dragon.chm::/dictate/about_dictation_box.htm","HH_DISPLAY_TOC"
				DlgFunc = True ' do not exit the dialog
			End If

    Case 3 ' TextBox or ComboBox text changed
    Case 4 ' Focus changed
    Case 5 ' Idle
        Rem DlgFunc = True ' Continue getting idle actions
        DlgFocus("TextBox1")
    Case 6 ' Function key
    End Select
End Function
"sample large edit <selectionorall>   selectionorall"show dictation box with large fontpcspeak8 эшя                    яы' The bulk of this code is courtesy of Polar Engineering.  Modifications made by Larry Allen of Softnet Systems, Inc.
Option Explicit

Const FONT=18	' Approximate font size - change as required

Const LOGPIXELSY = 90

Const WM_SETFONT = &H30

Declare Function CreateFontA Lib "gdi32" ( _
    ByVal nHeight As Long, _
    ByVal nWidth As Long, _
    ByVal nEscapement As Long, _
    ByVal nOrientation As Long, _
    ByVal fnWeight As Long, _
    ByVal fdwItalic As Long, _
    ByVal fdwUnderline As Long, _
    ByVal fdwStrikeOut As Long, _
    ByVal fdwCharSet As Long, _
    ByVal fdwOutputPrecision As Long, _
    ByVal fdwClipPrecision As Long, _
    ByVal fdwQuality As Long, _
    ByVal fdwPitchAndFamily As Long, _
    ByVal lpszFace As String _
    ) As Long

Declare Function DeleteObject Lib "gdi32" ( _
    ByVal hObject As Long _
    ) As Long

Declare Function GetDeviceCaps Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByVal nIndex As Long _
    ) As Long

Declare Function GetDlgItem Lib "user32" ( _
    ByVal hDlg As Long, _
    ByVal nIDDlgItem As Long _
    ) As Long

Declare Function GetWindowDC Lib "user32" ( _
    ByVal hWnd As Long _
    ) As Long

Declare Function ReleaseDC Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal hDC As Long _
    ) As Long

Declare Function SendMessageA Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal uMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
    ) As Long

Dim hFont As Long
Dim VMenu As IVMenuAuto

Sub Main
    Dim hDC As Long
    Dim result As Integer
    hDC = GetWindowDC(0)
    Dim Height As Long

	Height = -FONT*GetDeviceCaps(hDC,LOGPIXELSY)/72
    ReleaseDC 0,hDC
    hFont = CreateFontA(Height,0,0,0,0,0,0,0,0,0,0,0,0,"MS Sans Serif")
	Begin Dialog UserDialog 530,385,"Show Box",.DlgFunc ' %GRID:10,7,1,1
		TextBox 10,7,500,336,.TextBox1,1
		OKButton 60,357,90,21
		CancelButton 210,357,90,21
		PushButton 360,357,90,21,"&Help"
	End Dialog
    Dim dlg As UserDialog

    ' If "All" -- now "everything", select all the text.
	If UtilityProvider.ContextValue(0) = "all" Then SendDragonKeys "{Ctrl+a}"

' Copy the selected text from the application.
	SendDragonKeys "{Ctrl+c}"

' Wait a little and then display the dialog.
	Wait .5


	result = Dialog (dlg)

	If result = -1 Then ' If the user clicked OK,
		Clipboard dlg.TextBox1 ' copy the text box contents to the clipboard
		Wait .5
		SendDragonKeys "{Ctrl+v}" ' and then paste them to the active application.
	End If

    DeleteObject hFont

End Sub

Rem See DialogFunc help topic for more information.
Private Function DlgFunc(DlgItem$, Action%, SuppValue&) As Boolean
    Select Case Action%
    Case 1 ' Dialog box initialization
        Dim hWnd As Long
        hWnd = GetDlgItem(SuppValue,DlgControlId("TextBox1"))
        SendMessageA hWnd,WM_SETFONT,hFont,1
  '      hWnd = GetDlgItem(SuppValue,DlgControlId("TextBox1"))
  '      SendMessageA hWnd,WM_SETFONT,hFont,1
  '
  			' paste the text and go to the top
			SendDragonKeys "{Ctrl+v}{Ctrl+Home}"

	 Case 2 ' Value changing or button pressed
 			If DlgItem$ = "Help" Then
				HTMLHelp "dragon.chm::/dictate/about_dictation_box.htm","HH_DISPLAY_TOC"
				DlgFunc = True ' do not exit the dialog
			End If

    Case 3 ' TextBox or ComboBox text changed
    Case 4 ' Focus changed
    Case 5 ' Idle
        Rem DlgFunc = True ' Continue getting idle actions
        DlgFocus("TextBox1")
    Case 6 ' Function key
    End Select
End Function
sample mole removal risks    &document risks of mole removal surgerypcspeak8 эр                       Fthere is a risk of infection if the wound is not properly cared for...sample mole removal surgery    'mole surgery the Advanced Scripting waypcspeak8 эр                    xSub Main
SendKeys "The mole was excised to a depth of "
SendKeys "2mm "
SendKeys "below the skin surface."
End Sub
sample mole risk insert    !another example of text insertionpcspeak8 эр                    г{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs24 there is a risk of infection if the wound is not properly cared for...
}Fthere is a risk of infection if the wound is not properly cared for...sample open sales tax    calculate sales tax of 8.1%pcspeak8 эшя                       C:\WINDOWS\system32\Calc.exe C:\WINDOWS\   И   0.0818sample outline <roman_numeral>   roman_numeral sample outlining command page 73pcspeak8 эшя                    я.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 <roman_numeral> <uppercasealpha>   roman_numeraluppercasealpha sample outlining command page 73pcspeak8 эшя                    я.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 <roman_numeral> <uppercasealpha> <digitperiod>   roman_numeraluppercasealphadigitperiod sample outlining command page 73pcspeak8 эшя                    я.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
Nsample outline <roman_numeral> <uppercasealpha> <digitperiod> <lowercasealpha>   roman_numeraluppercasealphadigitperiodlowercasealpha sample outlining command page 73pcspeak8 эшя                    я.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 <roman_numeral> <uppercasealpha> <digitperiod> <lowercasealpha> <lowercaseroman>   roman_numeraluppercasealphadigitperiodlowercasealphalowercaseroman sample outlining command page 73pcspeak8 эшя                    я.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 <alpha> <digit> <digit>   alphadigitdigit pcspeak8 эшя                    я.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 number <dnsversion>   
dnsversion pcspeak8 эшя                     <<dnsversion>>sample save for signature    !save a file based on RE: contentspcspeak8 эр                    яOSub 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 select 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}"
' 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
SendKeys "C:\My Documents\ReadyForSignature\"
' Alternate of SendKeys "C:\Temp\"
Wait .5
SendKeys "^v"  	' 10. paste the file name
Wait .5
HeardWord "click", "Save"	' 11. save the file
End Sub
sample show window title    display title of current windowpcspeak8 эр                    я	' declare three Windows functions
Declare Function GetForegroundWindow& Lib "user32" ()
Declare Function GetWindowTextLengthA& Lib "user32" _
(ByVal hwnd&)
Declare Sub GetWindowTextA Lib "user32" _
(ByVal hwnd&, ByVal lpsz$, ByVal cbMax&)

'
' use Windows functions to obtain a string with the
' title of the current window.  The string is returned
' as the value of the ActiveWindowTitle function.

Function ActiveWindowTitle$()
ActiveWindow = GetForegroundWindow()
TitleLen = GetWindowTextLengthA(ActiveWindow)
Title$ = Space$(TitleLen)
GetWindowTextA ActiveWindow,Title$,TitleLen+1
ActiveWindowTitle$ = Title$
End Function

' Use the window title – in this case, display it.
' More commonly it would be compared.

Sub Main
MsgBox ActiveWindowTitle$
End Sub
sample two boxes    -sample using Dialog Editor for two text boxespcspeak8 эшя                    яSub Main
	Begin Dialog UserDialog 400,203,"Two Text Boxes",.dialogfunc ' %GRID:10,7,1,1
		Text 10,7,90,14,"Short Text",.Text1
		TextBox 120,7,260,21,.TextBox1
		Text 20,49,90,14,"Long Text",.Text2
		TextBox 130,49,250,84,.TextBox2,1
		OKButton 130,161,90,21
	End Dialog
	Dim dlg As UserDialog
	Dialog dlg
	SendKeys dlg.TextBox1
	SendKeys "~~~"  ' tilde "~" is equivalent to "{Enter}"
	Clipboard dlg.TextBox2  ' TextBox2 text to clipboard
	SendKeys "^v"           ' ctrl+v is to paste the text
End Sub

Rem See DialogFunc help topic for more information.
Private Function dialogfunc(DlgItem$, Action%, SuppValue&) As Boolean
	Select Case Action%
	Case 1 ' Dialog box initialization
	Case 2 ' Value changing or button pressed
		Rem dialogfunc = True ' Prevent button press from closing the dialog box
	Case 3 ' TextBox or ComboBox text changed
	Case 4 ' Focus changed
	Case 5 ' Idle
		Rem Wait .1 : dialogfunc = True ' Continue getting idle actions
	DlgFocus("TextBox1")
	Case 6 ' Function key
	End Select
End Function
sample what time is it    	give timepcspeak8 эр                    rSub Main
MsgBox Format(Now, "dddd, mmmm d yyyy") & vbCr & _
            Format(Now, "hh:mm:ss AM/PM")
End Sub
sample yesterday    print the date of yesterdaypcspeak8                         ф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
+sample document <name_of_document_template>   name_of_document_templateopen a Word templatepcspeak8эшя        WINWORDMicrosoft Word for WindowsMicrosoft Corporation            яF'#Reference {00020905-0000-0000-C000-000000000046}#8.3#0#D:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library
Sub Main
'
' Start with the default User Template directory for Word
Filename$ = Options.DefaultFilePath(wdUserTemplatesPath)
'
' append the "\", the file name, and the ".dot" suffix
Filename$ = Filename$ & "\" & ListVar1 & ".dot"
'
' prepare for the case where the template does not exist
On Error GoTo NoTemplate
'
' open a new instance of the template using the Word
' VBA statement for opening a document template.
' Note the continuation of the statement (“_”)
Documents.Add Template:=Filename$, NewTemplate:=False, _
    DocumentType:=0
Exit Sub
'
NoTemplate:	' Come here if no template exists
ErrMess$ = "Template not found: " & ListVar1
MsgBox ErrMess$
End Sub
sample insert <insertable>   
insertableinsert a block of textpcspeak8эшя        WINWORDMicrosoft Word for WindowsMicrosoft Corporation            я&'#Reference {00020905-0000-0000-C000-000000000046}#8.3#0#D:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library
Sub Main
' Create the filename.
' Start with the default file path from Word.   If you wish a
' different folder for these files, replace the following
' statement with one of the form
' Filename$ = "your folder name"
Filename$ = Options.DefaultFilePath(wdDocumentsPath)
'
' Append a trailing backslash, then the insertable file name,
' then ".doc" to complete the file name.
Filename$ = Filename$ & "\" & ListVar1 & ".doc"
'
' The following three lines are from VBA and
'      do the file insertion.
Selection.InsertFile FileName:= Filename$, Range:="", _
        ConfirmConversions:=False, Link:=False, _
        Attachment:=False
End Sub
sample macro one    executes Word "macro1" macropcspeak8эшя        WINWORDMicrosoft Word for WindowsMicrosoft Corporation            Ж'#Reference {00020905-0000-0000-C000-000000000046}#8.3#0#D:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 11.0 Object Library
Sub Main
	Word.Application.Run "macro1"
End Sub
   selectionorall      all	selectionstage      mildmoderateseverevery severe
dnsversion      A109A-X00-8.0\preferredA209A-X00-8.0\proA209A-X00-8.0\professionalA509A-X00-8.0\legalA709A-X00-8.0\medicalday      10\ten	11\eleven	12\twelve13\thirteen14\fourteen
15\fifteen
16\sixteen17\seventeen18\eighteen19\nineteen1\one	20\twenty21\twenty one22\twenty two23\twenty three24\twenty four25\twenty five26\twenty six27\twenty seven28\twenty eight29\twenty nine2\two	30\thirty31\thirty one3\three4\four5\five6\six7\seven8\eight9\ninetime      8:00AM\eight8:30AM\eight thirty9:00AM\nine9:30AM\nine thirty10:00AM\ten10:30AM\ten thirty11:00AM\eleven11:30AM\eleven thirty12:00PM (noon)\noon12:30PM\twelve thirty
1:00PM\one1:30PM\one thirty
2:00PM\two2:30PM\two thirty3:00PM\three3:30PM\three thirty4:00PM\four4:30PM\four thirty5:00PM\fivemonth      AprilAugustDecemberFebruaryJanuaryJulyJuneMarchMayNovemberOctober	Septemberapplet   3   Ncpa.cpl\Network Properties,access.cpl,,1\Accessibility Options Keyboard)access.cpl,,2\Accessibility Options Sound+access.cpl,,3\Accessibility Options Display)access.cpl,,4\Accessibility Options Mouse+access.cpl,,5\Accessibility Options Generalaccess.cpl\Accessibility%appwiz.cpl,,1\Add Remove New programs+appwiz.cpl,,2\Add Remove Windows Components)appwiz.cpl\Add Remove Programs           +desk.cpl,,1\Display Properties Screen Saver)desk.cpl,,2\Display Properties Appearance'desk.cpl,,3\Display Properties Settings&desk.cpl\Display Properties Backgroundfindfast.cpl\Find Fastfonts\Fonts Folderfonts\fonts+inetcpl.cpl,,1\Internet Properties Security*inetcpl.cpl,,2\Internet Properties Content.inetcpl.cpl,,3\Internet Properties Connections+inetcpl.cpl,,4\Internet Properties Programs+inetcpl.cpl,,5\Internet Properties Advanced'inetcpl.cpl\Internet Properties General&intl.cpl,,1\Regional Settings Language'intl.cpl,,1\Regional Settings Languages&intl.cpl,,2\Regional Settings Advancedintl.cpl\Regional Settings"intl.cpl\Regional Settings Generaljoy.cpl\Joystick Properties%main.cpl keyboard\Keyboard Propertiesmain.cpl\Mouse Propertiesmlcfg32.cpl\Microsoft Exchange mlcfg32.cpl\Microsoft Messengingmmsys.cpl,,2\Audio mmsys.cpl,,3\Multimedia Hardwaremmsys.cpl\Sounds!modem.cpl\Modem Properties Modems(netcpl.cpl\Network Properties Windows 98nusrmgr.cpl\User Accounts+password.cpl\Password Properties Windows 98powercfg.cpl\Power Managementprinters\Printers Foldersticpl.cpl\Scanners And Cameras(sysdm.cpl,,1\Add new Hardware Network ID&sysdm.cpl,,2\Add new Hardware Hardware+sysdm.cpl,,3\Add new Hardware User Profiles&sysdm.cpl,,4\Add new Hardware Advanced%sysdm.cpl,,5\Add new Hardware Generaltimedate.cpl,,1\Time Zonetimedate.cpl\Date Time&wgpocpl.cpl\Microsoft Mail Post Office
insertable      UnderweightBugsTastedimensionsymbol      '\feetcm\centimetersm\metersmm\millimeters
in.\inches	dimension      inchesfeetmillimeterscentimetersmetersname_of_document_template      pay off customer	follow uplettern1to10   
   11023456789alpha      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.T\T.U\U.V\V.W\W.X\X.Y\Y.Z\Z.digit      0\oh0\zero1\one2\two3\three4\four5\five6\six7\seven8\eight9\ninedigitperiod   	   1.\one2.\two3.\three4.\four5.\five6.\six7.\seven8.\eight9.\ninelowercasealpha      (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.uppercasealpha      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.T.\T.U.\U.V.\V.W.\W.X.\X.Y.\Y.Z.\Z.roman_numeral   
   I.\oneII.\two
III.\threeIV.\fourIX.\nineV.\fiveVI.\six
VII.\sevenVIII.\eightX.\tenlowercaseroman   
   (i)\one(ii)\two(iii)\three	(iv)\four	(ix)\nine(v)\five(vi)\six(vii)\seven(viii)\eight(x)\ten