RichTextContentControl with text and hyperlinks via Userform possible?

gmaxey · #8 09-18-2014, 01:34 PM

Michael,

Again, hard to offer much without your form. However look at your code that works for inserting a stand alone hyperlink. Notice the first parameter you define is the "anchor" as "Selection.Range." Now look at your main code:

.Cell(webIndex + 1, 3).Range.End -1 = ActiveDocument.Hyperlinks.Add(oObjForm.webaddTextB ox.Text, _
"", "", TextToDisplay:=oObjForm.dspTextBox.Text)

That is a real dog's breakfast ;-). oObjForm.webaddTextBox.Text is "address text" it is not an anchor.

First you need to get your anchor. Ok, it is clear that you want the anchor to be at the end of a defined cell. Take a look at this and see if it doesn't help you sort it out.

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Word.Table
Dim lngIndex As Long
Dim oRngAnchor As Range
  Set oTbl = ActiveDocument.Tables(1)
  For lngIndex = 1 To oTbl.Rows.Count
    Set oRngAnchor = oTbl.Cell(lngIndex, 1).Range
    oRngAnchor.Collapse wdCollapseEnd
    oRngAnchor.End = oRngAnchor.End - 1
    oRngAnchor.InsertBefore " "
    oRngAnchor.Collapse wdCollapseEnd
    ActiveDocument.Hyperlinks.Add oRngAnchor, "http//www.google.com", , "Lets brows Google", "Browse Google"
  Next lngIndex
lbl_Exit:
  Exit Sub
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to copy userform text and formfield contents to outlook?	odin	Word VBA	7	09-09-2014 11:56 AM
Is it possible to take an input from a UserForm in one document to a UserForm in a do	BoringDavid	Word VBA	5	05-09-2014 09:08 AM
cross reference hyperlinks to text box	nothing_kills	Word	4	11-25-2013 09:21 AM
Inserting Text and Hyperlinks	DrDOS	Excel	2	03-21-2012 03:53 AM
Checkbox on Userform result in Text in Word	Dolfie_twee	Word VBA	1	06-22-2010 07:54 AM