Open document / Auto. launch macro to capture text / Auto. modifications to text

[sb003848]

I have a Word document that when opened, a MessageBox is shown asking to insert a text.

Once the text is added to the TextBox (TextBox1), the user could either click on OK (to continue) or cancel (well, to cancel).

If the user clicks on OK, I would like to have the text modified to change ' into ’ and then have the new text pasted (not sure if that is even a word) into the active document. This is what I have so far:
Sub CommandButton1_Click()

Unload Me
End Sub

Any ideas on what I need to add to make that happen?

[fumei]

If the user clicks on OK, I would like to have the text modified to change ' into ’ and then have the new text pasted (not sure if that is even a word) into the active document. Modified how? Changed into what? Based on what rules? Pasted where?

[Jay Freedman]

Try this:


Private Sub CommandButton1_Click()
Dim userText As String
userText = Me.TextBox1.Text
If Len(userText) > 0 Then
userText = Replace(userText, Chr(39), Chr(146))
Selection.Text = userText
End If
Unload Me
End Sub

You may want to change the Select.Text statement to put the text somewhere else in the document. As it is, it will replace any selected text with the string from the userform or, if the Selection is collapsed to a single point, it will insert the text there.