Thread: [Solved] Word VBA: How to create a command button and trigger a function?
View Single Post
 
Old 11-30-2011, 04:22 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi Tinfanide,

Try:
Code:
Private Sub CommandButton1_Click()
With Selection.Font
  .Color = wdColorRed
  .Bold = wdToggle
  If .Underline = wdUnderlineNone Then
    .Underline = wdUnderlineSingle
  Else
    .Underline = wdUnderlineNone
  End If
End With
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote