Microsoft Word VBA insert web link to text box in document - vba

Is there any way I can insert an html link into a textbox using VBA? I've created a dialog with a textbox, I would like to convert the text to a web link, then insert it to the textbox in the document.
Dim WO_Box1 As Shape
Set WO_Box1 = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=17, Top:=125, Width:=106.5, Height:=19)
WO_Box1.TextFrame.TextRange.Font.Name = "Tahoma"
WO_Box1.TextFrame.TextRange.Font.Size = "9"
WO_Box1.TextFrame.TextRange.Text = TextBox1.Text

WO_Box1.TextFrame.TextRange.Hyperlinks.Add Anchor:=WO_Box1.TextFrame.TextRange, Address:=TextBox1.Text, TextToDisplay:=TextBox1.Text
The Anchor is the textbox you are working with. You can use any text for TextToDisplay but the Address should be assigned to the actual hyperlink url.

Related

How to use multiple buttons to populate text box with text string in MS Access Form?

I am building a form in MS Access and I am trying to use buttons to populate a sequence of text into a text box. The idea is that each button will add onto the information to the string sequence. So far I have only been able to populate the text box with the info of a single button, which gets replaced when another button is clicked.
I used the following for each button:
Private Sub btnBP_Click()
txtSequence.SetFocus
txtSequence.Text = "BP"
How can I make subsequent button clicks add onto the information and not replace it?
Don't replace the text, append the new text:
Private Sub btnBP_Click()
Me!txtSequence.Value = Me!txtSequence.Value & "BP"
End Sub

How to use VBA to search in Internet Explorer?

I am new here/to programming. I am trying to use VBA to input some text into a webpage through internet explorer.
I am able to open explorer through VBA and navigate to the page, but I am unable to enter text in the searchbar. When I click "inspect element" on the search bar, it returns this:
<input class="ui-autocomplete-input" id="la-input"
maxlength="2147483647"
placeholder="Search by Name, Last Name, First Name, or Account Name"
autocomplete="off">
This is the code I am trying to modify to get to run:
'get a reference to the search form, by finding its id in the
'web page's document object model
Dim ieElement As Object
Set ieElement = ieApp.document.getElementByID("search")
'search box is composed of text box (item 0) and button (item 1)
'set value of text box to what we're searching for
ieElement(0).Value = "Excel VBA courses"
'click the button!
ieElement(1).Click
Thank you!!

Add embedded hyperlink to MS Access textbox in form

I try to do the embed a hyperlink in a textbox (rich text) in a MS Access form . Would this be possible? Didn't found any solution in the web so far...
Something like:
Me.TextWithLink = "Text here for link <b> Hyperlink Text</b>"
PS: Textbox is set to RichText, tried to set to hyperlink true/false but not working...
Is there any workaround?
Form_Formular1.Text0.Value = "your text http://www.google.de"
Would produce automatically
As well as
Form_Formular1.Text0.Value = "your text http://www.google.de"
but obviously the URL and the hyperlink text needs to be the same. So
Form_Formular1.Text0.Value = "your text " & url & ""

Dynamically assign text to text box in the loop

I want to assign Text to the textBox in the look, I tried
Dim textBoxHB As TextBox = FindName("txt_HB_" + iRecCnt.ToString())
Me.Controls(String.Format("txt_HB_" + iRecCnt.ToString()).Text = .HouseBill
My Text box name change form txt_HB_1 ,txt_HB_2 and so on, and i want to where iRecCnt has 1,2.. values and Text is coming form .HouseBill
Is there any other way i can try?
Replace the loop with this:
Dim boxes = Me.Controls.OfType(Of TextBox).Where(Function(b) b.Name.StartsWith("txt_HB_"))
For Each box As TextBox in boxes
box.Text = .HouseBill
Next

Adding text before and after selected text - VBA user form

I'm using a VBA user-form in order to edit some text by using a rich text format textbox from the InkEdit control.
I'm trying to insert html tags in specific location when the user click on a command button on the user-form.
for example if the user clicks the "strong" button the following code is executed and the text is inserted on the cursor location inside the textbox:
InkEdit1.SelText = "<strong>"
I have another button for the closing statment which runs:
InkEdit1.SelText = "</strong>"
I'm trying to find a way that the opening statement ans the closing statement will be applied together. When the user will select a text from the text box and click the button then "strong" will be inserted before the selection and "/strong" will be inserted after the selection:
Does this work:
InkEdit1.SelText = "<strong>" & InkEdit1.SelText & "</strong>"
If you really want to get fancy, you can reselect just the original text:
Dim lPos As Long
lPos = InkEdit1.SelStart
Dim lLength As Long
lLength = InkEdit1.SelLength
InkEdit1.SelText = "<strong>" & InkEdit1.SelText & "</strong>"
InkEdit1.SelStart = lPos + Len("<strong>")
InkEdit1.SelLength = lLength
Protip: Make sure the "HideSelection" property is set to "False"
If you're not using an actual RitchTextBox, try this: Toos > Additional Controls > check Microsoft Rich Textbox