Sub MAIN Dim dlg As DocumentStatistics GetCurValues dlg Insert " " + dlg.Directory + "\" + dlg.FileName StartOfLine 1 Font "Times New Roman", 8 ChangeCase 0 CharRight 1 End Sub