Hola a todos.

Código HTML:

http://s2.subirimagenes.com/otros/previo/thump_9505977captura-formulario.jpg

Se trata de un formulario para Word. Como verán el formulario consta de un ComboBox desplegable con tres opciones, tres TextBox y cuatro CommandButton
El CommandButton1 (SIGUIENTE) inserta los datos al final del documento, limpia todas las ventanas y está preparado para volver a insertar otros datos.
El CommandButton2 (INSERTAR UNA ENMIENDA) es lo mismo que el anterior pero inserta los datos en la página donde tengo situado el cursor.

Problemas:
El primer problema lo tengo en el ComboBox desplegable. En el formulario me sale la lista correctamente, pero a la hora de pasar los datos al documento no lo hace, sale vacío. Al final del documento dejo los códigos para que pueda ver lo que falta. Advierto que no soy ningún experto, solo tengo experiencia en crear y modificar macros.

Y en segundo lugar se trata del CommandButton2 (INSERTAR UNA ENMIENDA). ¿Habría alguna manera de que antes de que salga el formulario me diera opción de seleccionar la página donde quiero insertar los datos? Sería mucho más fácil todo y no tendría que situar el cursor en la página deseada.

Códigos:

Private Sub combobox1_dropbuttonclick()
ComboBox1.List = Array("Adición", "Modificación", "Supresión")
End Sub
Private Sub CommandButton1_Click()
With Selection
Selection.EndKey Unit:=wdStory
End With

With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = True
End With

With Selection
Selection.TypeText Text:="Enmienda n.º "
End With

With Selection
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"SEQ =a1+1\\*MERGEFORMAT", PreserveFormatting:=True
End With

With Selection.Font
.Bold = False
End With

With Selection
Selection.TypeParagraph
Selection.TypeText Text:="Enmienda de: "
End With

With ComboBox1.List
ComboBox1.AddItem "Adición"
ComboBox1.AddItem "Modificación"
ComboBox1.AddItem "Supresión"
End With

With Selection
Selection.TypeParagraph
Selection.TypeText Text:="Artículo: "
Selection.TypeText Text:=TextBox1.Text
Selection.TypeParagraph
Selection.TypeText Text:="Texto: "
Selection.TypeText Text:=TextBox2.Text
Selection.TypeParagraph
Selection.TypeText Text:="Justificación: "
Selection.TypeText Text:=TextBox3.Text
Selection.TypeParagraph
Selection.InsertBreak Type:=wdPageBreak
Selection.WholeStory
Selection.Fields.Update
Selection.EndKey Unit:=wdStory
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End With

End Sub
Private Sub CommandButton2_Click()
With Selection.Font
.Name = "Arial"
.Size = 10
.Bold = True
End With

With Selection
Selection.InsertBreak Type:=wdPageBreak
Selection.TypeText Text:="Enmienda n.º "
End With

With Selection
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"SEQ =a1+1\\*MERGEFORMAT", PreserveFormatting:=True
End With

With Selection.Font
.Bold = False
End With

With Selection
Selection.TypeParagraph
Selection.TypeText Text:="Enmienda de: "
Selection.TypeParagraph
Selection.TypeText Text:="Artículo: "
Selection.TypeText Text:=TextBox1.Text
Selection.TypeParagraph
Selection.TypeText Text:="Texto: "
Selection.TypeText Text:=TextBox2.Text
Selection.TypeParagraph
Selection.TypeText Text:="Justificación: "
Selection.TypeText Text:=TextBox3.Text
Selection.TypeParagraph
End With
End Sub
Private Sub CommandButton3_Click()
Selection.WholeStory
Selection.Fields.Update
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub
Private Sub CommandButton4_Click()
End
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Nadie me puede ayudar? Igual no me he explicado bien.
Tiene que ser algo muy básico. Solo quiero saber que código tengo que poner en commandbutton1 para que me salga la opción que he seleccionado en combobox1 en el documento final. Estoy atascado ahí y ni para adelante ni para atrás. No encuentro nada que me funcione y ya no sé dónde mirar.
Por favor, que alguien me ayude.

Bueno. No he tenido suerte de que pasara algún experto que me ayudara o no han tenido tiempo. Pero de casualidad el burro tocó la flauta y encontré la solución. Me faltaba por poner en el commandbutton lo siguiente:

Selection.TypeText Text:=ComboBox1.Text

Espero que a alguien le sirva y pueda aprovecharlo.
Seguiré por este foro porque estoy seguro que hay muy buenos programadores.
Saludos.

También encontré la solución para ir a una página determinada (no siempre es la misma). He creado un textbox (TextBox4) y un commandbutton (CommandButton5) y la este último le metí lo siguiente:

Private Sub CommandButton5_Click ()
Selection.GoTo What:=wdGoToPage, Which:=1NextPage
Selection.GoTo wdGoToPage, wdGoToNext, Me.TextBox4.Text
End Sub

No sé si está bien, pero a mí me funciona. Solo tengo que poner el número de página que quiero que se sitúe el cursor y le doy a botón comando y tatachánnnnn.

Bueno, espero que le pueda servir a alguien. Saludos. (Algún comentario animaría un poco más jejejeje).