duffdiggler
03-16-2006, 09:59 AM
I want to add to new line after the user clicks the Add Procedure button. When the they click on the button. The word Procedure gets printed on the screen, along with the number 1 underneath it.
I want the cursor to appear under the 1. Also to enable the user to type something if they wish. so have the cursor blinking if that's possible.
Here is the code that prints what I was talking about.
Sub printProcedure()
Dim i As Integer
i = 0
Selection.Style = "NumberList"
Selection.TypeText Text:=frmProcedure.txtProcedure.Text
If frmProcedure.txtLines.Text <> "" And frmProcedure.txtLines.Text <> "0" Then
Selection.TypeParagraph
Do While i < frmProcedure.txtLines.Text
Call add_line
i = i + 1
Loop
End If
' For i = 1 To frmProcedure.txtLines.Text
'
' Next i
If frmProcedure.cbTaskComplete.Value = True Then
Selection.TypeParagraph
Call Task_Completed
End If
End Sub
I want the cursor to appear under the 1. Also to enable the user to type something if they wish. so have the cursor blinking if that's possible.
Here is the code that prints what I was talking about.
Sub printProcedure()
Dim i As Integer
i = 0
Selection.Style = "NumberList"
Selection.TypeText Text:=frmProcedure.txtProcedure.Text
If frmProcedure.txtLines.Text <> "" And frmProcedure.txtLines.Text <> "0" Then
Selection.TypeParagraph
Do While i < frmProcedure.txtLines.Text
Call add_line
i = i + 1
Loop
End If
' For i = 1 To frmProcedure.txtLines.Text
'
' Next i
If frmProcedure.cbTaskComplete.Value = True Then
Selection.TypeParagraph
Call Task_Completed
End If
End Sub