RichTextContentControl with text and hyperlinks via Userform possible?

gmaxey · #6 09-18-2014, 10:39 AM

It is difficult to help you without seeing the full code. For example, you posted:

Code:

Sub insertLink()
Dim dspTxt As String
Dim webTxt As String
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "http://www.microsoft.com", SubAddress:="", ScreenTip:="", TextToDisplay:="Testing Link"

and claim it works. It won't work as it will result in a compile error expecting End Sub. Now that is obvious. However, I tried:

Code:

.Cell(webIndex + 1, 3).Range.End -1 = ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=oObjForm.webaddTextBox.Text, _
        SubAddress:="", ScreenTip:="", TextToDisplay:=oObjForm.dspTextBox.Text

is not obvious and neither is the other cryptic code segment.

What is your full code?

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