AnnaNeiderud
Wed May 04 03:32:10 CDT 2005
And if someone else will be using this technique I need to add that you need
to put the text first on a line first, then do the check, and then move it
back as desired. Otherwise you might get undesired results since a hyperlink
in running text can wrap also when it is not as long as a line and then it
would still work in a macrobutton field.
Here is some code in case someone wants it (perhaps overly complex for
general use, but due to the rest of my application I need it to look this
way):
' insertionRange contains the text in question and is part of
' the range macroButtonField.Code i.e. { macrobutton macro <insertionRange> }
Private Sub InsertLinkInMacroButtonField(insertionRange As Range,
macroButtonField As Field, address As String)
Dim oldSelection As Range
Dim hl As Word.Hyperlink
Dim hlRange As Range
Dim rng As Range
Dim rngToRemove As Range
Set oldSelection = Selection.Range.Duplicate
' Cut and paste insertion Range to a new fresh line, check if it is
wrapping and
' if so truncate and copy back
Set rng = GetFieldRange(macroButtonField)
rng.Collapse wdCollapseStart
rng.insertBefore vbCr & vbCr
Set rngToRemove = rng.Duplicate
rng.Collapse wdCollapseStart
rng.MoveStart wdCharacter, 1
insertionRange.Cut
rng.Paste
rng.Select
Dim truncated As Boolean
Dim rngToTruncate As Range
truncated = False
While Selection.End > evDoc.Bookmarks("\Line").Range.End And
Len(rng.text) >= 1
'Selection is too long
Set rngToTruncate = rng.Duplicate
rngToTruncate.Start = rngToTruncate.End - 1
rngToTruncate.text = ""
truncated = True
Wend
If truncated And (Len(rng.text) >= 3) Then
Set rngToTruncate = rng.Duplicate
rngToTruncate.Start = rngToTruncate.End - 3
rngToTruncate.text = "..."
rng.End = rngToTruncate.End
End If
' cut and paste rng back, insert hyperlink, remove extra characters at
range
rng.Cut
insertionRange.Paste
rngToRemove.text = ""
insertionRange.Hyperlinks.Add insertionRange, address
oldSelection.Select
end sub
Public Function GetFieldRange(f As Field) As Range
Dim rng As Range
Set rng = f.Code.Duplicate
rng.TextRetrievalMode.IncludeFieldCodes = True
rng.TextRetrievalMode.IncludeHiddenText = True
rng.Start = rng.Start - 1
rng.End = rng.End + 1
Set GetFieldRange = rng
End Function
"Anna Neiderud" wrote:
> Thanks!
>
> It didn't make the code look nice (since I didn't have the text selected and
> had to select it and than select the old selection again) but it works :-)
>
> /Anna
>
> "Jonathan West" wrote:
>
> >
> > "Anna Neiderud" <AnnaNeiderud@discussions.microsoft.com> wrote in message
> > news:C6E07CAB-9AE6-4449-8C21-31B8BA887C1E@microsoft.com...
> > > As suggested by the MVPS site I put my hyperlinks in macrobutton fields to
> > > be
> > > able to get an event whenever the user clicks it. This is done
> > > programmatically from an addin written in VB 6 and works fine. The only
> > > problem is when the inserted hyperlink is too long. I then get the text
> > > "DisplayText cannot span
> > > more than one line!" and I understand this, but is there a way to detect
> > > the
> > > condition either by testing the length before or detecting the error after
> > > it
> > > has happened? I need to be able to tell my user what to do about it.
> >
> > Hi Anna
> >
> > If the text to be converted into a macrobutton field is currently selected,
> > then you can check whether the selection wraps to the next line like this
> >
> > If Selection.End > ActiveDocument.Bookmarks("\Line").Range.End Then
> > 'Selection is too long
> > Else
> > 'Selection is ok
> > End If
> >
> >
> > --
> > Regards
> > Jonathan West - Word MVP
> > www.intelligentdocuments.co.uk
> > Please reply to the newsgroup
> > Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org
> >
> >