Is there a calligraphy font for Microsoft Word?

Yup. Not real hard to find though.

Just for fun, here’s some code that will build samples of all your available founts.

1. Dim C As New Collection ' a container for storing sorted fount names 
2.  
3. Public Sub listFounts() 
4. ' chuck out the name of and a sample of every fount 
5. ' smac 3 Jan 2017  
6. Dim wFount As String 
7. Dim wApp As Word.Application 
8. Dim wSel As Word.Selection 
9. Dim i As Integer 
10.  
11. ' get ready