Macros from this Forum will not run.

[gmayor]

I have again tested the code (repeated below) and it does what it is supposed to do and the completion message (not part of the original) works where it is now placed.

If the macro doesn't do anything, it is likely to be that the criteria set in the code does not match what is in the document. Post a sample document in which it does not work.

Originally Posted by jeffreybrown

not sure why you even need Exit Sub as there is nothing left to do or skip.

It's a personal programming foible, that I use will all my code, and which is primarily used in conjunction with error handling routines, though in this instance there is no such routine.

Sub Delete_Underscores()
' 'Graham Mayor - http://www.gmayor.com - Last updated - 03 Oct 2018
'
' Delete_Underscores Macro
' Will delete all underscores in Document except in Mail addresses (& hyperlinks ??)
' This version RETYPED from published Macro because of difficulties with MS Office site.
' CALL with ALT + U (for Underscore)

Dim oRng As Range
Dim oWord As Range

    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:="_")
            Set oWord = oRng.Duplicate
            If oWord.Words(1).Start <> ActiveDocument.Range.Start Then
                oWord.MoveStartUntil Chr(32), wdBackward
                oWord.MoveEndUntil Chr(32) & Chr(13)
                If InStr(1, oWord.Text, "@") = 0 Then oRng.Text = " "
            End If
            oRng.Collapse 0
        Loop
    End With
    MsgBox "Yes, it ran."    'Added.
lbl_Exit:
    Set oRng = Nothing
    Set oWord = Nothing
    Exit Sub
End Sub

[macropod]

Originally Posted by gmayor

If the macro doesn't do anything, it is likely to be that the criteria set in the code does not match what is in the document. Post a sample document in which it does not work.

Or maybe macro support hasn't been installed...

[gmayor]

Originally Posted by macropod

Or maybe macro support hasn't been installed...

Or that

[Seatonian]

My thanks to contributors Jeffrey Brown, Macropod and Graham Mayor, luminaries all from across the world.

Moving the Msg Box higher in the Code has enabled it to work (and Macropod's MsgBox "!" also works.) But this is during compilation. There is still no activity (i.e. deletions) on the TestBed Text a copy of which is attached below. It deliberately has no Title.

The TestBed is just random text which, for this Project, has had Underscoring Formatting of graded complexity added. I use many macros now as I am unable to use the mouse with any accuracy. Please note that coloured or "weighted" Underscoring are not displayed within this Forum. Nor is Double Underscoring.

I am not sure what is meant by "Macro Support". And since all other macros work properly, does that not answer the question of whether it is installed? Please tell me where I can check this and when it is invoked. Thank you all for your kind contributions.



TEST.

On the Insert tab, the galleries include items that are designed to coordinate with the overall look of your document. When you create pictures, charts, or diagrams, they also coordinate with your current document look. You can easily change the formatting of selected text in the document text by choosing a look for the selected text from the Quick Styles gallery on the Home tab. You can use these galleries to insert tables, headers, footers, lists, cover pages, and other document building blocks.You can easily change the formatting of selected text in the documenttext by choosing a look for the selected text from the Quick Styles gallery on the Home tab.
END OF TEST.

[jeffreybrown]

Hi Graham,

It's a personal programming foible, that I use will all my code, and which is primarily used in conjunction with error handling routines, though in this instance there is no such routine.

I surely wasn't intending to say it shouldn't be there, just pointing out I didn't understand it's use. Please accept my apology if it came across as a jab, because it wasn't.