Sub NTpath()
Documents.Add
Selection.TypeText NormalTemplate.Path
End Sub