Erro "Não foi possível inicializar o ambiente Visual Basic" no Word 2016

Question

Olá.

Por mais que eu tente (já busquei e tentei consertar de algumas formas) não consigo me livrar desta mensagem quando abro o Word 2016:

"Não foi possível inicializar o ambiente Visual Basic"

Alguém pode me ajudar?

Answer 1

Estou ótimo, obrigado por perguntar pholiveirac!

Sinto muito por todo ocorrido! 

Nesse caso, tente esses outros passos: 

Método 1

Dica: Antes de realizar qualquer procedimento, se há uma conta configurada no Outlook, realize um backup do Outlook.

1. Pressione as teclas Windows+R, digite appwiz.cpl, e clique em Ok.

**2.**Procure por uma versão do Office instalado. Caso possua a versão do Office 2010, 2007, 2013 ou 2016 instalado;

3. Utilize os removedores abaixo:

\[Remover resquícios Office 2007\] - \[Remover resquícios Office 2010\] - [Remover Office 2013 ou 2016]

4. Ao terminar a remoção, reinicie o sistema.

Nota: se há mais de uma versão instalada, remova todas.

Método 2

1. Pressione as teclas Windows+R, digite Notepad e clique em Ok;

2. Cole os parâmetros abaixo:

Sc Stop OSE Sc Stop OSE64 Sc Stop ClickToRunSvc Sc delete OSE Sc delete OSE64 Sc delete ClickToRunSvc Taskkill /im explorer.exe /F Taskkill /im ONENOTEM.exe /F Taskkill /im WiNWORD.exe /F Taskkill /im PowerPNT.exe /F Taskkill /im OUTLOOK.exe /F Taskkill /im EXCEL.exe /F Takeown /f  "C:\ProgramData\Microsoft\Office" /R /D N Takeown /f  "C:\ProgramData\Microsoft\ClickToRun" /R /D N Takeown /f  "C:\Program Files (x86)\Microsoft Office" /R /D N Takeown /f  "C:\Program Files (x86)\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform" /R /D NTakeown /f  "C:\Program Files (x86)\Common Files\Microsoft Shared\Source Engine" /R /D N Takeown /f  "C:\Program Files\Microsoft Office" /R /D N Takeown /f  "C:\Program Files\Microsoft Office 15" /R /D N Takeown /f  "C:\Program Files\Common Files\microsoft shared\ClickToRun" /R /D N Takeown /f  "C:\Program Files\Common Files\microsoft shared\OFFICE15" /R /D N Takeown /f  "C:\Program Files\Common Files\microsoft shared\OFFICE16" /R /D N Takeown /f  "C:\Program Files\Common Files\microsoft shared\OfficeSoftwareProtectionPlatform" /R /D N Takeown /f  "C:\Program Files\Common Files\microsoft shared\Source Engine" /R /D N Takeown /f  "C:\Windows\System32\Tasks\Microsoft\Office" /R /D N Cacls "C:\ProgramData\Microsoft\Office" /E /T /G Todos:F Cacls "C:\ProgramData\Microsoft\ClickToRun" /E /T /G Todos:F Cacls "C:\Program Files (x86)\Microsoft Office" /E /T /G Todos:F Cacls "C:\Program Files (x86)\Microsoft Office 15" /E /T /G Todos:F Cacls "C:\Program Files (x86)\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform" /E /T /G Todos:F Cacls "C:\Program Files (x86)\Common Files\Microsoft Shared\Source Engine" /E /T /G Todos:F Cacls "C:\Program Files\Microsoft Office" /E /T /G Todos:F Cacls "C:\Program Files\Microsoft Office 15" /E /T /G Todos:F Cacls "C:\Program Files\Common Files\microsoft shared\ClickToRun" /E /T /G Todos:F Cacls "C:\Program Files\Common Files\microsoft shared\OFFICE15" /E /T /G Todos:F Cacls "C:\Program Files\Common Files\microsoft shared\OFFICE16" /E /T /G Todos:F Cacls "C:\Program Files\Common Files\microsoft shared\OfficeSoftwareProtectionPlatform" /E /T /G Todos:F Cacls "C:\Program Files\Common Files\microsoft shared\Source Engine" /E /T /G Todos:F Cacls "C:\Windows\System32\Tasks\Microsoft\Office" /E /T /G Todos:F RD /S "C:\ProgramData\Microsoft\Office" /q RD /S "C:\ProgramData\Microsoft\ClickToRun" /q RD /S "C:\Program Files (x86)\Microsoft Office" /q RD /S "C:\Program Files (x86)\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform" /q RD /S "C:\Program Files (x86)\Common Files\Microsoft Shared\Source Engine" /q RD /S "C:\Program Files\Microsoft Office" /q RD /S "C:\Program Files\Microsoft Office 15" /q RD /S "C:\Program Files\Common Files\microsoft shared\ClickToRun" /q RD /S "C:\Program Files\Common Files\microsoft shared\OFFICE15" /q RD /S "C:\Program Files\Common Files\microsoft shared\OFFICE16" /q RD /S "C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15" /q RD /S "C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16" /q RD /S "C:\Program Files\Common Files\microsoft shared\OfficeSoftwareProtectionPlatform" /q RD /S "C:\Program Files\Common Files\microsoft shared\Source Engine" /q RD /S "C:\Windows\System32\Tasks\Microsoft\Office" /q Reg Delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office" /f Reg Delete "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office" /f Reg Delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\AppVISV" /f Reg Delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\AppV" /f Start Explorer.exe

4.Clique emArquivo > **Salvar,**nomeie para UninstallOffice.bat e clique em Ok (Salve aonde preferir);

5 **.**Clique com o botão direito do mouse sobre UninstallOffice.bate selecione a opção Executar como Administrador;

6 **.**Aguarde a remoção.

Exclua os chaves e valores do office no registro do Windows:

1. Pressione as teclas Windows+R, digite Regedit, clique em Ok;

2. Remova as remova as chaves:

• HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\AppVISV
• HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office
• HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlataform
• HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Microsoft Office (todas as informações que possui a informação do Microsoft Office - 0FF1CE)
• HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office
• HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\OfficeSoftwareProtectionPlataform
• HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Microsoft Office**(todas as informações que possui a informação do Microsoft Office - 0FF1CE).**

**Dica:**Caso apresente que não é possível remover alguma dessas chaves, será necessário aplicar permissão. Clique com o botão direito sobre a chave e selecione Permissões. ****Clique em Avançadas, em Proprietário clique em **Alterar,**digite Todos ou Every e clique em Ok.Marque as opções: Substituir o proprietário em subcontêineres eobjetos e Substituir todas as entradas de permissão de objetos filho por entradas de permissão herdáveis desse objetoe clique em Sim > Ok.

Instale o software Windows Installer Cleanup Utility para remover os resquícios do Office 2016, baixe-o clicando aqui. Após concluir a instalação, clique no Menu Iniciar, procure o Windows Installer Cleanup Utility, ao iniciá-lo, na lista de softwares, selecione os programas associados ao Office e clique em Remove *(Remover).*Reinicie o sistema.

Após ter reiniciado o sistema, apague as pastas:

• %systemdrive%\Program Files\Microsoft Office
• %systemdrive%\Program Files\Microsoft Office 16
• %systemdrive%\Program Files (x86)\Microsoft Office
• %systemdrive%\Program Files (x86)\Microsoft Office 16

Instale o Office com o instalador offline. Baixe a versão correspondente da sua assinatura ou chave de produto:

• Office 365 Home ou Personal
• Office 365 Pro Plus
• Office 2016 Home and Student
• Office 2016 Home and Business
• Office 2016 Professional
• Office 2016 Professional Plus

Abra o arquivo .img baixado, clique na pasta Office e selecione a opção Setup x64 bits para instalar o Office. Caso o seu processador ou o sistema não disponha dessa arquitetura, selecione Setup x86 bits.

Se a resposta ajudou de alguma forma, por favor, marque como resposta, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente.

Espero ter ajudado, até mais!

Answer 2

Olá pholiveirac, tudo bem? 

Bem-vindo à Comunidade da Microsoft. 

Qual é a versão e build do Windows e Office? Qual é o seu antivírus? A mensagem é exibida ao abrir um arquivo do Word 2016 ou ao iniciar o aplicativo Word 2016? Como não citou quais procedimentos aplicou, tente os passos abaixo: 

Dica: Ao concluir cada etapa, verifique o resultado do procedimento/comando. Não sendo solucionado, execute o próximo passo. 

Método 1

Como diagnóstico, remova o seu antivírus e deixe apenas o Windows Defender.

Método 2

1. Pressione as teclas Windows+R, digite winword /safe e clique em Ok;

2. Clique em Arquivo > Opções > Suplementos > Em Gerenciar : Suplementos clique em IR;

**3.**Desative todos os suplementos e feche o Word 2016.

4. Reabra o Word 2016 e faça testes.

Método 2

Atualize o Office.

Método 3

1. Feche todos os aplicativos do Office.

2. Pressione a tecla da bandeira do Windows + R, cole o caminho %appdata%\Microsoft\Templatese clique em Ok;

3. Renomeie o arquivo Normal ou Normal.dotm para Normal.old e ou Normal.dotm.old;

4. Abra o Word 2016 novamente, abra o seu arquivo e verifique se o erro se repete.

Se a resposta ajudou de alguma forma, por favor, clique em Sim na pergunta Isso resolveu o problema? Caso contrário, por favor, poste novamente.

Espero ter ajudado, até mais!

Answer 3

Oi Gregori, tudobom? 

Nada disso funcionou. 

Ao utilizar o método 2 não havia nenhum Suplemento a ser desativado.

Ao utilizar o método 3 a pasta estava vazia sem nenhum arquivo chamado Normal ou Normal.dotm