AnalystGuy
01-13-2016, 08:30 AM
Here is my code....
Private Sub CommandButton1_Click()
With ActiveDocument
.SelectContentControlsByTitle("Date").Item(1).Range.Text = Me.TextBox1
.SelectContentControlsByTitle("FirstName").Item(1).Range.Text = Me.TextBox2
.SelectContentControlsByTitle("LastName").Item(1).Range.Text = Me.TextBox3
.SelectContentControlsByTitle("LastName2").Item(1).Range.Text = Me.TextBox3
.SelectContentControlsByTitle("CreditLimit").Item(1).Range.Text = Me.TextBox4
.SelectContentControlsByTitle("Entity").Item(1).Range.Text = Me.TextBox5
.SelectContentControlsByTitle("CreditScore").Item(1).Range.Text = Me.TextBox6
.SelectContentControlsByTitle("Creditdate").Item(1).Range.Text = Me.TextBox6
.SelectContentControlsByTitle("CreditLow").Item(1).Range.Text = Me.TextBox7
.SelectContentControlsByTitle("CreditHigh").Item(1).Range.Text = Me.TextBox8
.SelectContentControlsByTitle("Address").Item(1).Range.Text = Me.TextBox9
.SelectContentControlsByTitle("City").Item(1).Range.Text = Me.TextBox10
.SelectContentControlsByTitle("Creditdate").Item(1).Range.Text = Me.TextBox11
.SelectContentControlsByTitle("RelationshipManager").Item(1).Range.Text = Me.TextBox12
End With
End Sub
This code is within a userform CommandButton
There is a template I have set up and used RichText as placeholders to where the information will be sent. I need the Rich Textbox "CreditLimit" or the the TextBox4 to equal a currency value in the format of $1,000,000. Please tell me if this is possible and
Private Sub CommandButton1_Click()
With ActiveDocument
.SelectContentControlsByTitle("Date").Item(1).Range.Text = Me.TextBox1
.SelectContentControlsByTitle("FirstName").Item(1).Range.Text = Me.TextBox2
.SelectContentControlsByTitle("LastName").Item(1).Range.Text = Me.TextBox3
.SelectContentControlsByTitle("LastName2").Item(1).Range.Text = Me.TextBox3
.SelectContentControlsByTitle("CreditLimit").Item(1).Range.Text = Me.TextBox4
.SelectContentControlsByTitle("Entity").Item(1).Range.Text = Me.TextBox5
.SelectContentControlsByTitle("CreditScore").Item(1).Range.Text = Me.TextBox6
.SelectContentControlsByTitle("Creditdate").Item(1).Range.Text = Me.TextBox6
.SelectContentControlsByTitle("CreditLow").Item(1).Range.Text = Me.TextBox7
.SelectContentControlsByTitle("CreditHigh").Item(1).Range.Text = Me.TextBox8
.SelectContentControlsByTitle("Address").Item(1).Range.Text = Me.TextBox9
.SelectContentControlsByTitle("City").Item(1).Range.Text = Me.TextBox10
.SelectContentControlsByTitle("Creditdate").Item(1).Range.Text = Me.TextBox11
.SelectContentControlsByTitle("RelationshipManager").Item(1).Range.Text = Me.TextBox12
End With
End Sub
This code is within a userform CommandButton
There is a template I have set up and used RichText as placeholders to where the information will be sent. I need the Rich Textbox "CreditLimit" or the the TextBox4 to equal a currency value in the format of $1,000,000. Please tell me if this is possible and