1229 document whitespace handling

[skiwi]

Just a big big ups for the girls and boys who removed all the superfluous white space that was previously inserted in generated documents.
In my mind this is a significant improvement to moving towards being able the create "final" version documents from EA without further editing.

[Paolo F Cantoni]

+1

[Geert Bellekens]

Hold your horses, we're not there just yet.

If you have script fragments with rich text you'll notice that the removal of the whitespace is a bit too aggressive.
In 1229 they have removed ALL whitespace from my notes, including the ones that were supposed to stay.

I'm waiting for 1230 to get that fixed as well.

Geert

[StefanPears]

This is a little help, not a solution. Before starting the VBA in MS-Word remove the three empty lines at the end of the generated document by hand. Don't ask me why. I'm Business Analyst, not Developer ;-)

Sub beautifyEAReport()
    Dim i%, rc As Boolean
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " ^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
    End With
    i% = 0
    rc = Selection.Find.Execute(Replace:=wdReplaceAll)
    Do While (rc)
        rc = Selection.Find.Execute(Replace:=wdReplaceAll)
        i% = i% + 1
        If i% > 100 Then MsgBox "Loop Loop Loop" & vbCr & "Empty lines at the end?": Exit Sub
    Loop
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p ^p"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
    End With
    i% = 0
    rc = Selection.Find.Execute(Replace:=wdReplaceAll)
    Do While (rc)
        rc = Selection.Find.Execute(Replace:=wdReplaceAll)
        i% = i% + 1
        If i% > 100 Then MsgBox "Loop Loop Loop" & vbCr & "Empty lines at the end?": Exit Sub
    Loop
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p^p"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
    End With
    i% = 0
    rc = Selection.Find.Execute(Replace:=wdReplaceAll)
    Do While (rc)
        rc = Selection.Find.Execute(Replace:=wdReplaceAll)
        i% = i% + 1
        If i% > 100 Then MsgBox "Loop Loop Loop" & vbCr & "Empty lines at the end?": Exit Sub
    Loop
End Sub