Macro para percorrer todos os módulos e retirar todos os comentários?

Question

Tenho um programa com vários módulos e formulários.

Gostaria de tirar todos os comentários de todo o código do programa.

Answer 1

Cara..... que revolta..... rsrsrsrs

Cuidado com isso, segue código:

Coloca ele em algum módulo e executa direto....

Sub ApagarLinhas()



    Dim myBook As Workbook
    Dim i
    Dim j
    
    Set myBook = ThisWorkbook
        
    For i = 1 To myBook.VBProject.VBComponents.Count
    
        For j = 1 To myBook.VBProject.VBComponents(i).CodeModule.CountOfLines
            
            If Left(Trim(myBook.VBProject.VBComponents(i).CodeModule.Lines(j, 1)), 1) = "'" Then
                
                Debug.Print "Deletando a Linha: " & myBook.VBProject.VBComponents(i).CodeModule.Lines(j, 1)
                myBook.VBProject.VBComponents(i).CodeModule.DeleteLines j
                
            End If
            
        Next j
        
    Next i
        

    
End Sub

---

Natan

Answer 2

Executei o código uma vez e ainda ficaram alguns comentários.

Executei novamente e sumiram todos os comentários.