Results 1 to 2 of 2
Thread: Range Width for Textbox (2003)
2005-09-07, 22:29 #1
- Join Date
- Aug 2003
- Stroud, United Kingdom
- Thanked 0 Times in 0 Posts
Range Width for Textbox (2003)
Hi, I have put together the following code as the basis for adding text boxes above the cursor as I often want to quickly add chord symbols to music lyrics in specific places, and have always used uintil now tabs, which can get ery messy. I was pleased with the results this code gives me.
I make the paragraphs double spaced, then click a button linked to the macro and add the Chord symbol.
Dim r As Range, x As Single, y As Single
Dim strChord As String
strChord = InputBox("Chord")
Set r = Selection.Range
If r.Paragraphs.LineSpacing < r.Font.Size * 2 Then MsgBox ("May need to make paragraph double line spaced")
x = r.Information(wdHorizontalPositionRelativeToPage)
y = r.Information(wdVerticalPositionRelativeToPage) - r.Font.Size
ActiveDocument.Shapes.AddTextbox(msoTextOrientatio nHorizontal, x, y, 7 * Len(strChord), 10).Select
.Font.Name = "Opus PlainChords"
.Font.Size = "8"
.Font.Bold = True
.ShapeRange.Fill.Visible = msoFalse
.ShapeRange.Line.Transparency = 0#
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
.ShapeRange.TextFrame.MarginLeft = 0#
.ShapeRange.TextFrame.MarginRight = 0#
.ShapeRange.TextFrame.MarginTop = 0#
.ShapeRange.TextFrame.MarginBottom = 0#
.ShapeRange.WrapFormat.Type = 3
.ShapeRange.TextFrame.AutoSize = True
.ShapeRange.TextFrame.WordWrap = True
Set r = Nothing
I was wondering how I can get a definate value for the range width in points of the text in the textbox with which to use to make the width of the textbox fit snugly. at the moment I am just using a 7 * multiplier, which is ok, but would have thought there would be a range.width or font.width read value? Can you help.
I am of course going to refine the code, perhaps making a small form with standard chord symbols to help selection....
2005-09-07, 23:20 #2
- Join Date
- Mar 2002
- Thanked 28 Times in 28 Posts
Re: Range Width for Textbox (2003)
You'd probably need Windows API calls to calculate the text width, so if you have a reasonable approximation, I'd leave it at that.