Resting Anchor

The Anchorage

Personal website of Gregory K. Maxey, Commander USN (Retired)

 "Classic" WordArt in Word 2010/2013
(A Microsoft Word Help & Tip page by Gregory K. Maxey)

DISCLAIMER/TERMS OF USE

The information, illustrations and code contained in my "Microsoft Word Tips" are provided free and without risk or obligation.

Click to acces PayPal Verification Service Click to acces PayPal Verification Service

However, the work is mine. If you use it for commercial purposes or benefit from my efforts through income earned or time saved then a donation, however small, will help to ensure the continued availability of this resource.

If you would like to donate, please use the appropriate donate button to access PayPal. Thank you!


This Microsoft Word Tips & Microsoft Word Help page discusses some of the peculiarities users may experience when working with "classic" WordArt in Word 2010/2013.  It also contains a few observations on "new" WordArt.

For the purpose of this tips page, I define "classic" WordArt to be WordArt that has the properties of WordArt created in Word versions 2003/2007.  Compared to the "new" WordArt, or WordArt created with Word 2010/2013, classic WordArt is likely more familiar to long time Word users, and offers a broader range of initial styles.

The initial "classic" and "new" WordArt styles (i.e., text effects) are illustrated below.  For reasons known only to the Word 2013 developers, the available WordArt Styles (predefined text effects) was reduced from thirty (30) in Word 2010 to fifteen (15) in Word 2013.

classic_wordart_1

Classic WordArt Styles Gallery (Word 2003/2007)

classic_wordart_2a

WordArt Styles Word 2010

classic_wordart_2

WordArt Styles Word 2013

Site Note IconNote: The actual appearance of the styles (text effects) in the Word 2010/2013 galleries will change depending on the theme colors applied in the document.

Classic WordArt

WordArt objects in Word 2003 and Word 2007 are basically the same. The difference is the user interface for inserting and formatting the object (a menu and toolbar for Word 2003, the ribbon and a contextual tab for Word 2007).

classic_wordart_3
Word 2003 format document opened using Word 2010
classic_wordart_4
Classic WordArt object pasted in a Word 2013 document.
classic_wordart_5

classic_wordart_6

classic_wordart_7
Classic WordArt begins life in Word 2000/2013 documents as a floating shape object
classic_wordart_8

At this point, it appears that there is no way to use the familiar classic WordArt in a Word 2013 format document in Word 2013.

classic_wordart_9
WordArt inserted using a VBA procedure.

VBA Procedure

The procedure used is simple and can easily be added to the a keyboard shortcut or the QAT.

VBA Script:
Sub ClassicWordArtInsert()
Dim oShp As Word.Shape
Dim oILS as Word.InlineShape
  Set oShp = ActiveDocument.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect1, _
       "Your Text Here", "Arial", 36, _
       Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse, 0, 0, Selection.Range)
  If MsgBox("Do you want your classic WordArt object inline with text?", _
            vbQuestion + vbYesNo, "Classic Inline") = vbYes Then
    Set oILS = oShp.ConvertToInlineShape
  End If
  On Error Resume Next
  oShp.Select
  oILS.Select
  On Error GoTo 0
lbl_Exit:
  Exit Sub
End Sub

Site Note IconSee: Installing Macros for instructions on how to set up and use the macros provided in this Microsoft Word Help & Microsoft Word Tips page.  This link provides another link that shows you how to add the macro to the QAT.

New WordArt

New WordArt begins life as a floating shape object (textbox type) with a set of predefined text effects applied to the default text.

classic_wordart_10

Note: Showing Word 2010 WordArt Styles Gallery

The effects available to further edit and refine the default entry in practically unlimited.  For example you can use the Drawing Tools Format contextual tab and the Text Effect tools to apply countless variations of shadow, reflection, glow, bevel, rotation and transformation effects.

classic_wordart_11

Issue

Due to known issues in the application object model, it is impossible to programmatically insert a WordArt object with one of the new predefined WordArt styles applied, or programmatically create and insert your own WordArt styles with certain properties applied that are available via the user interface.

These built-in styles and the user interface include properties that are simply not accessibly with the VBA object model (e.g., gradient stops, shadow angle and distance, line cap styles, etc.).

You can come close.  For example, the following illustrates a WordArt object created programmatically compared to a similar WordArt object created using the new WordArt style gallery in a Word 2010 document.

classic_wordart_12

Site Note IconNote:  Remember, a Word 2010/2013 WordArt object is just a textbox with text effects applied to the content.

VBA Script:
 
Sub AttemptToDuplicateWordArt()
'This code attempts to duplicate a Word 2010 WordArt Style.
'The style attempted is the one in the third row, third column of the gallery.
Dim oShp As Word.Shape
Dim sngLeft As Single
Dim sngTop As Single
sngLeft = Selection.Information(wdHorizontalPositionRelativeToPage)
sngTop = Selection.Information(wdVerticalPositionRelativeToPage)
Set oShp = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, sngLeft, sngTop, 275, 48)
  With oShp
     .Line.Visible = msoFalse
     With .TextFrame.TextRange
       .Text = "Your text here"
       With .Font
         .TextColor.RGB = RGB(0, 0, 0)
         .Size = 36
         .Bold = True
         With .Line
           .ForeColor.RGB = RGB(122, 122, 122)
           .Style = msoLineSingle
           .Visible = msoTrue
           .Transparency = 0
           .Weight = 0.83
         End With
         With .Fill
           .ForeColor.RGB = RGB(122, 122, 122)
           .OneColorGradient msoGradientHorizontal, 1, 0.8
           .GradientAngle = 90
           'The following would error as the .GradientStop property is _
            not accessible with the VBA object model.
           '.GradientStops.Insert RGB(255, 255, 255), 9, 0, 1
           '.GradientStops.Insert RGB(255, 255, 255), 9, 0, 2
           '.GradientStops.Insert RGB(122, 122, 122), 50, 0, 3
           '.GradientStops.Insert RGB(255, 255, 255), 79, 0, 4
           '.GradientStops.Insert RGB(255, 255, 255), 100, 0, 50
         End With
       End With
       .Select
     End With
  End With
End Sub

This is truly unfortunate considering the vastly expanded text effects formatting options available.

Conclusion

That's it! I hope you have found this tips page useful and informative.

Share

PAYMENTS/DONATIONS

Click to acces PayPal Verification Service Click to acces PayPal Verification Service

Do you want to make a payment for consulting work or donate to help support this site?

PayPal is a safe, easy way to pay online.

Use the appropriate currency "Donate" button to make a payment or donation.


Search my site or the web using Google Search Engine

Google Search Logo