Macro to create Text Box

**byrdsongdl** · 01-29-2009, 11:52 AM

I want to create a macro that will allow me to create a Text box with the letters TB in red font in the text box. I also want the text box to be created with no fill and no lines visible just the initals.

Also is there a way to hide the macro creating the text box so that when you run the macro the initals appear without showing the text box and changes being made to it?

**byrdsongdl** · 01-29-2009, 12:21 PM

Here is the coding I have so far and the text box is not transparent and the macro also shows the creation of the text box.

Sub TB_Initials()
'
' TB_Initials Macro
'
'
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 247.05, _
351.2, 72#, 72#).Select
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.TypeText Text:="TB"
Selection.ShapeRange.Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 72#
Selection.ShapeRange.Width = 72#
Selection.ShapeRange.Left = 246.95
Selection.ShapeRange.Top = 351.35
Selection.ShapeRange.TextFrame.MarginLeft = 7.2
Selection.ShapeRange.TextFrame.MarginRight = 7.2
Selection.ShapeRange.TextFrame.MarginTop = 3.6
Selection.ShapeRange.TextFrame.MarginBottom = 3.6
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(3.43)
Selection.ShapeRange.Top = InchesToPoints(4.88)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
Selection.ShapeRange.TextFrame.AutoSize = False
Selection.ShapeRange.TextFrame.WordWrap = True
Selection.Font.Color = wdColorRed
Selection.ShapeRange.ScaleWidth 0.42, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.33, msoFalse, msoScaleFromTopLeft
ActiveDocument.Select
End Sub

**royUK** · 01-29-2009, 12:21 PM

Try creating it with the macro recorder running

http://www.excel-it.com/record_macro.htm

**royUK** · 01-29-2009, 12:23 PM

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

**byrdsongdl** · 01-29-2009, 12:29 PM

Here is the code posted properly.

Please Login or Register  to view this content.

**Leith Ross** · 01-29-2009, 05:55 PM

Hello byrdsongdl,

This is not an Excel macro but a Word macro. They both use VBA, however, the code is not identical. We do have a forum for Word programming. I am moving your post to the correct forum.

**scube** · 02-19-2009, 07:17 AM

Hi All

I'm completely new to Word programming

. I have been trying to create a way to make a coloured text box appear around highlighted text. So if I highlight a paragraph in a word document it will be put into a text box in its original position in the document.

I have managed to use the code in the messages above, but can't change it to use highlighted text in situ.

Can anyone help please?

thanks
scube