Чтобы работал макрос, нужно сделать: Файл - Параметры - Центр управления безопасностью - Параметры центра управления безопасностью - раздел "Параметры макросов" - поставьте галочку "Доверять доступ к объектной модели проектов VBA".
Макрос обрабатывает проект, где находится этот макрос.
Макрос
Sub макрос()
Dim project As Object, module As Object
Dim i As Long
' Присваиваем имя "project" vba-проекту, чтобы удобнее писать код.
Set project = ThisDocument.VBProject
' Цикл по всем модулям (стандартным, формам, модулю ворд-файла и классам).
For Each module In project.VBComponents
' Цикл по строкам модуля.
For i = module.CodeModule.CountOfLines To 1 Step -1
' Если строка пустая. Trim удаляет крайние пробелы.
If Trim(module.CodeModule.Lines(i, 1)) = "" Then
' Удаление строки.
module.CodeModule.DeleteLines i, 1
End If
Next i
Next module
End Sub