Copiar modelo do Word normal.dot em todos os computadores da rede

Diego Piffaretti

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

Deixe um comentário