Se você precisa padronizar o tipo de fonte, tamanho, e outros detalhes do Word na sua emrpesa, essa dica vale para você
Se vc utiliza AD na sua rede coloque como script de Logon.
On Error Resume Next
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Retorna raiz do perfil do usuário
strUSERPROFILE = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strArqOrigem = "\\seuservidor\seushare\seuarquivo"
strPastaDestino = strUSERPROFILE & "\Application Data\Microsoft\Modelos\"
'Copia Arquivo
objFSO.CopyFile strArqOrigem , strPastaDestino, True
Mundo Tecnológico 