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

  • Pergunta

  • 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.

    sábado, 23 de agosto de 2014 17:52

Respostas

  • 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

    sábado, 23 de agosto de 2014 23:04

Todas as Respostas

  • 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

    sábado, 23 de agosto de 2014 23:04
  • Executei o código uma vez e ainda ficaram alguns comentários.

    Executei novamente e sumiram todos os comentários.

    sábado, 23 de agosto de 2014 23:31