Results 1 to 3 of 3
  1. #1
    New Lounger
    Join Date
    Sep 2002
    Location
    Perth, Western Australia, Australia
    Posts
    5
    Thanks
    0
    Thanked 0 Times in 0 Posts
    I've searched the Lounge on this topic without luck.

    I have a very useful macro that finds asterisks/replaces text in Word 2003 documents. I have migrated it to Word 2007 but it doesn't work unless I run it from Developer, and then it will only run one instance.

    Anyone got an answer please?

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts
    Quote Originally Posted by stufishr View Post
    I have a very useful macro that finds asterisks/replaces text in Word 2003 documents. I have migrated it to Word 2007 but it doesn't work unless I run it from Developer, and then it will only run one instance.
    You have several choices for running macros in Word 2007. You can use the Macros button on the Developer tab, or the keyboard shortcut Alt+F8 to call up the same dialog. You can add a button for the macro to the Quick Access Toolbar (click the drop-down arrow at the end and choose More Commands). You also can assign your own keyboard shortcut (open More Commands and then click the Customize button next to Keyboard shortcuts). Is any of that useful?

    I'm not sure what you mean by only running one instance. Can you describe the macro in more detail?

  3. #3
    New Lounger
    Join Date
    Sep 2002
    Location
    Perth, Western Australia, Australia
    Posts
    5
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Thanks for your response Jeff.

    The 'assign keyboard shortcut' did the trick. Now why didn't I think of that. Probably because I am still in denial re Office 2007 :-)

    The very useful macro in question is

    Sub FindAsterisk()
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "*"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    End With
    Selection.Find.Execute
    End Sub

    Cheers,

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •