How to do multistroke drawings in SCRIBBLE mode using a pen and Ta

[Peter]

I've got a pen and tablet and would like to be able to use it to annotate a
Word document. (Word 2007 Win XP and a Wacom tablet)

I can do this by using INSERT tab > ILLUSTRATIONS group > SHAPES > SCRIBBLE
and then draw. BUT as sooon as I lift the pen I end up leaving the SCRIBBLE
mode and I have to click it again to draw another pen stroke. I want to be
able to draw like I can in PowerPoint where I can draw keep drawing with
myultiple penstrokes until I leave that mode.

The VBA that is produced when I record it is:

Sub Macro13()
With ActiveDocument.Shapes.BuildFreeform(msoEditingCorner, 471#, 398.25)
.AddNodes msoSegmentCurve, msoEditingCorner, 467.65, 403.25, 467.65, _
409.7, 466.5, 415.5
.AddNodes msoSegmentCurve, msoEditingCorner, 467.05, 427.1, 467.3, _
438.9, 471#, 450#
end with.
end Sub

I hopefully tried the following code initiated by a button

Private Sub Penon()
Debug.Print "pen active now"
With ActiveDocument.Shapes.BuildFreeform(msoEditingCorner, 20, 20)
End With
End Sub

I then tried the following under a checkbox
Private Sub PenModeToggle_Click()
Debug.Print frmEMAToolbar.PenModeToggle
Do While frmEMAToolbar.PenModeToggle = True
' Debug.Print "true"
With ActiveDocument.Shapes.BuildFreeform(msoEditingCorner, 20, 20)
End With
Loop
End Sub

but that put me in an endless loop

If someone could advise me how to stay in scrible mode either under VBA
control or using Word's interface I would be VERY grateful. I also tried a
keybinding to a Fn key but that also did not work

Application.CustomizationContext = ThisDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF9), _
KeyCategory:=wdKeyCategoryCommand, Command:="Penon"

Any assistance very gratefully received.
PeterEvans