Thread: [Solved] Clean an Email backup file
View Single Post
 
Old 07-14-2012, 12:23 AM
TTN TTN is offline Windows XP Office 2003
Novice
 
Join Date: Jul 2012
Posts: 13
TTN is on a distinguished road
Default

Word shows the MIME code to be 80 characters wide. So I tried [!^13 ]{79,80}^13 It came back none found Also I found this script on the internet that is suposed to delete any paragraph that does not have a given string.
Code:
Sub DeleteParagraphContainingString()
Dim search As String
search = " "
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
  Dim txt As String
  txt = para.Range.Text
  If Not InStr(LCase(txt), search) Then
    para.Range.Delete
  End If
Next
End Sub
I created the macro for it and it shows as the only macro available how ever when I click on the macro to run WORD try's to run a script I tried yesterday and not the current one. I can't find any reference to the one it is trying to run. So I can't delete it either.

Last edited by macropod; 07-14-2012 at 12:29 AM. Reason: Added code tags & formatting
Reply With Quote