Imprimir con AppWord

[Rosario1015]

Estoy imprimiendo con el Appword este es un ejemplo de lo que quiero imprimir:

ESCRITURA PUBLICA NUMERO DOCE MIL QUINIENTOS CUARENTA Y CINCO.----
------------------------- VOLUMEN LXCV.---------------------------------
En la Ciudad de Guadalajara, Jalisco, siendo las 13.00 trece horas del día 20 veinte de Diciembre de 1989 mil novecientos ochenta y nueve, Yo, Licenciado Pedro Pérez y Pérez, Notario numero X, hago constar que compareció la señora Fulanita Solís.------------------------------------------------------
PRIMERA.- Este día de hoy compareció la señora mencionada y quiere hacer un contrato XXXXXXXXXXXXX para que sus hijos puedan disponer de sus galletitas y comérselas el día 20 veinte de Enero del 2007 dos mil siete.-------


Me explico en la primera línea se escribe con mayusculas y por lo tanto la linea en Word se llena mas rapido, lo que quiero es como puedo rellenar con guiones como lo tengo, pero el detalle es que a veces varian los numeros y por lo tanto el numero de letras, y no se como se puede imprimir para que llene automaticamente con guiones hasta el final de la linea sin importar si una vez se teclea muchos caracteres o en otra poquitos, espero haberme explicado y me puedan ayudar, el código que utilizo lo anexo para que me digan si esta bien.

Private Sub mnuimprimir_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox ("No existe ningún registro")
Else
Dim AppWord As Word.Application
Dim DocWord As Word.Document
'Asignamos el documento
Set AppWord = CreateObject("word.application")
Set DocWord = AppWord.Documents.Open("C:\Notaria\hola.doc")
'Colocamos el texto en el marcador
AppWord.Selection.Font.Name = "Arial"
AppWord.Selection.Font.size = "12"
AppWord.Selection.Document.PageSetup.PaperSize = wdPaperLegal
AppWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
AppWord.Selection.Font.Underline = 1
AppWord.Selection.TypeText Text:=txtescritura.Text & " "
AppWord.Selection.TypeText Text:=escritura.Text + vbCrLf
AppWord.Selection.Font.Underline = wdUnderlineNone

'''' con esta linea si me imprime guiones pero se cicla y no para de imprimir renglones
'Do Until AppWord.Selection.IPAtEndOfLine = True
'AppWord.Selection.TypeText Text:="-"
'Loop

AppWord.Selection.TypeText Text:="-------------------------------"
AppWord.Selection.Font.Underline = 1
AppWord.Selection.TypeText Text:=Txtvolumen.Text & " "
AppWord.Selection.TypeText Text:=volumen.Text
AppWord.Selection.Font.Underline = wdUnderlineNone
AppWord.Selection.TypeText Text:="---------------------------" & vbCrLf
AppWord.Selection.TypeText Text:=Txtciudad.Text & " "
AppWord.Selection.TypeText Text:=Ciudad.Text & " "
AppWord.Selection.TypeText Text:=Txthora.Text & " "
AppWord.Selection.TypeText Text:=hora.Text & " "
AppWord.Selection.TypeText Text:=Txtdia.Text & " "
AppWord.Selection.TypeText Text:=dia.Text & " "
AppWord.Selection.TypeText Text:=Txtlicenciado.Text & " "
AppWord.Selection.TypeText Text:=Txtnotaria.Text & " "
AppWord.Selection.TypeText Text:=Cmbinteresado.Text & " "& vbCrLf
'Imprimimos en segundo plano
AppWord.Documents(1).PrintOut Background
'Comprobamos que Word no sigue imprimiendo
Do While AppWord.BackgroundPrintingStatus = 1
Loop
'Cerramos el documento sin guardar cambios
AppWord.Documents.Close (wdDotNotSaveChanges)
'Liberamos
Set DocWord = Nothing
'Nos cargamos el objeto creado
AppWord.Quit
Set AppWord = Nothing
End If
End Sub