VBA - The Word Working Partner - Part 1

Add a Line of WordArt

WordArt Result

Suppose, however, that you frequently need to simply add a line of WordArt to the current paragraph where the cursor is using the text in the current line as the source. If the size, font, and style are always the same, you can code a quick VBA program to do this at the click of a button:

~~~~~~~~~~~~~~~~~~~~~~~~~
Sub WordArt()
Dim myRange As Range
Dim myArtText As String
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
myArtText = Selection.Text
Set myRange = _
  ActiveDocument.Range(Start:=Selection.Start, _
  End:=Selection.End)
ActiveDocument.Shapes.AddTextEffect(msoTextEffect22, _
  myArtText, "Impact", 16#, msoFalse, _
  msoFalse, 0, 20, myRange).Select
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~

• Using VBA with Microsoft Word
• Creating the Program
• Completing the Program
• Automate Your Letter Writing
• Improving the Example
• A More OOP Way
• Add a Line of WordArt