Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...
MS Office Forum / Word / Programming / February 2006

Tip: Looking for answers? Try searching our database.

Need help with Word Macro

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
somebody@somewhere.com - 23 Feb 2006 11:46 GMT
I recorded and edited this macro to remove unwanted characters from a
word 2003 document. It does what I wanted and allows me to add or
change the characters as needed, but it seems the code is very
redundent and probably could be shortened to accomplish the same
results. Any help on this would be very much appreciated. Thanks in
advance.  Joe  

_________________________________________________________

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/14/2005 by Joe Payne
'
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "?"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   Selection.Find.Execute
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "/"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "+"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = ">"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "@"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = ")"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "("
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "~"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "%"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "#"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "$"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "="
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "*"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "|"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = "-"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = ";"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
       .Text = ":"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Reply to this Message
Jezebel - 23 Feb 2006 12:03 GMT
With UseWildcards set to TRUE you can do them all in one go --

With  Selection.Find
       .Text = "[\?\/+>\@\)\(~%#$=\*|\-;:]"
       .Replacement.Text = ""
      .MatchWildcards = true
      .Forward = True
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
      .MatchWholeWord = False
      .MatchSoundsLike = False
       .MatchAllWordForms = False
       .Execute Replace:=wdReplaceAll
  End With

>I recorded and edited this macro to remove unwanted characters from a
> word 2003 document. It does what I wanted and allows me to add or
[quoted text clipped - 252 lines]
>    Selection.Find.Execute Replace:=wdReplaceAll
> End Sub
Reply to this Message
Charles Kenyon - 23 Feb 2006 15:25 GMT
Answered in at least two other newsgroups. Please do not multipost.
Signature

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://word.mvps.org/FAQs/ which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

>I recorded and edited this macro to remove unwanted characters from a
> word 2003 document. It does what I wanted and allows me to add or
[quoted text clipped - 252 lines]
>    Selection.Find.Execute Replace:=wdReplaceAll
> End Sub
Reply to this Message
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage
Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.