Keyboard shortcut to apply strikethrough in Ms. Word

  • Dear everybody,


    I notice that there is a keyboard shortcut for strikethrough in Ms. Excel and the shortcut keys are Ctrl+5. :thumbup:


    I just wander whether there is any keyboard shortcut keys for strikethrough in Ms. Word. :roll:


    Thank you for any advice and suggestion in advance.


    Respectfully yours,
    Susan

  • Re: Keyboard shortcut to apply strikethrough in Ms. Word


    I don't know of one and wasn't able to find one. But you can do this:


    Open Word to a blank doc.
    Hit Alt+F11 or Tools-Macro-Visual Basic Editor.
    On the left in the VBE, choose Normal.dot.
    Hit Insert-Module.
    In the code window at right, paste this:
    [vba]Sub LuckyStrike()
    Selection.Font.StrikeThrough = True
    End Sub[/vba]Hit the SAVE diskette. Close the VBE with the X.
    Go to Tools-Customize. Choose the commands tab.
    On the left, scroll down to Macros.
    On the right, click on your macro.
    Drag it up to the toolbar if you want a toolbar button.
    Click "keyboard" at the bottom.
    Type the shortcut Ctrl+5
    Ok.
    Ok.
    Ok.
    Ok.
    or however many times you need to hit ok. :)


    Hope it helps!

  • Re: Keyboard shortcut to apply strikethrough in Ms. Word


    Dear Sir/Madam,


    Thank you very much for your precious time and effort to let me have a copy of such lovely codes. They work perfectly fine.


    When I hit the 1st time, the fonts were strikethrough. :thanx: and Good.


    But, when I hit the 2nd time I thought the fonts will not strikethrough.


    Kindly let me have codes when I hit the 2nd time those fonts will not strikethrough.


    Please help.


    Susan

  • Re: Keyboard shortcut to apply strikethrough in Ms. Word


    Code
    Sub LuckyStrike() 
        Selection.Font.StrikeThrough = wdToggle
    End Sub


    :)

  • Re: Keyboard shortcut to apply strikethrough in Ms. Word


    Dear Dreamboat,


    I thank you very much for your 2nd luckystrike. That is what I want. :cheers:


    Again, I thank you and appreciate for your kind heart in helping me to solve my problem.


    Respectfully yours,
    Susan


    Quote from Dreamboat
    Code
    Sub LuckyStrike() 
        Selection.Font.StrikeThrough = wdToggle
    End Sub


    :)

  • Re: Keyboard shortcut to apply strikethrough in Ms. Word


    You're welcome! (I'm sorry--I didn't receive notification of your reply.)

  • Re: Keyboard shortcut to apply strikethrough in Ms. Word


    You guys rock! I'm stuck here though:Go to Tools-Customize. Choose the commands tab.


    Can't find it :) I'm using Word 2007


    Thanks so much

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!