Here is my code....
This code is within a userform CommandButtonPrivate 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
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