Error al ejecutar macro en word - el elemento del conjunto solicitado no existe

Estoy tratando de crear mi documento que es una Nota de Crédito con una macro, y que al abrir el documento, me genere el numero de la Nota de Crédito automáticamente y que sea correlativa, cada vez que se abra, tengo el siguiente código:

Sub AutoNew()

Order = System.PrivateProfileString("C:\PRUEBAS\Settings.Txt", _
"MacroSettings", "Order")

If Order = "" Then
Order = 1
Else
Order = Order + 1
End If

System.PrivateProfileString("C:\PRUEBAS\Settings.txt", "MacroSettings", _
"Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#")

End Sub

No tengo mucho conocimiento sobre macro y vb.