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

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
Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s