Estimados, tengo la siguiente función con la cual creo un archivo word (.doc) pero no consigo dar con el codigo para insertar una tabla.

Agradecería su ayuda. 
Gracias amigos

Private Sub MakeWordDoc(ByVal file_name As String, ByVal title As String, ByVal body As String)
On Error Resume Next
Dim word_app As Word.Application
Dim word_doc As Word.Document
 
' Open Word and create a document.
Set word_app = New Word.Application
Set word_doc = word_app.Documents.Add(DocumentType:=wdNewBlankDocument)
 
 
    ' Write the title.
 
 
    word_app.ActiveWindow.Selection.Font.Size = 25
    word_app.ActiveWindow.Selection.Font.Name = "Arial"
        word_app.Selection.TypeText title
    'word_app.ActiveWindow.Selection.Font.Size = 24
 
 
    ' Save the file.
    word_doc.SaveAs FileName:=file_name
 
    ' Close the document and Word.
    word_doc.Close True
    word_app.Quit False
End Sub
 

Estimados, recurro a su sapiencia, tengo un textbox multilinea con la siguiente estructura:

hola
mundo
nuevo

y lo que quiero es poder extraer cada linea por separada, por ejemplo en una variable, la linea 1 en otra la 2 y en otra la 3, pero no encuentro la forma de hacerlo.

Espero me puedan ayudar con eso.
Muchas gracias

Hola amigos, acudo a sus conocimientos, tengo un msflegrid, en la primera columna tengo algunos número, la idea es que todos los números mayores a 25 queden con el fondo color rojo, elaboré este codigo:

'Problemas
MSFlexGrid3.Col = 0
For i = 0 To 23
MSFlexGrid3.Row = i
If MSFlexGrid3.Text > "25" Then
MSFlexGrid3.CellBackColor = RGB(255, 127, 100)
Exit Sub
End If
Next
 
 

El problema es que solo colorea la celda del primer valor encontrado en este caso el "28 del AC Milan (ver imagen) y la idea es que lo haga con todos los valores sobre 25 de la columna. Es decir Napoly, Toteham, etc.




Alguna idea amigos??
Muchas gracias

Estimados, estoy trabajando con el control "MSFlexGrid" el tema es que necesito obtener el valor derecho de la celda seleccionada, es decir por ejemplo si selecciono "Mehta" (Ver imagen) me muestre en un msgbox el valor "100"



Se puede??
Muchas gracias amigos

Hola amigos, una vez mas solicito su ayuda, tengo un listbox de la siguiente manera:

manzana [1]
naranja [1]
plátano [2]
sandia [2]
melón [1]
durazno [2]
guinda [1]

y necesito obtener el valor de cuantos [1] y cuantos [2] hay en la lista.
¿Se puede hacer de alguna manera?
Gracias amigos 

Hola amigos, hace rato que no habría un nuevo hilo, he aprendido bastante pero siempre hay cosas por aprender, acudo a ustedes por que tengo el siguiente dilema:

Logre ordenar algunos datos en un flexgrid, funciona bastante bien salvo con las fechas, solo las ordena tomando el valor del día, que es el primer valor (03/10/2017). para solucionarlo cree otra columna en la cual están las fechas con el formato YYYYMMDD, (20171003) y de esa forma ordena la columna perfectamente.

El problema es que para ordenar tengo que presionar la columna que agregue al final que tiene el formato "YYYYMMDD"  y la idea es que cuando presione la columna de las fechas normales se ordene correctamente desde las mas antiguas hasta las mas reciente.



¿Qué me sugieren ustedes?
Muchas gracias  

---

Al menos alguien me podría decir como llamo el evento click de una columna (x) a través de un botón???

MOD: No hacer doble post. Usa el botón modificar.

Hola amigos, hace rato que no pasaba por acá, me surgió la siguiente interrogante:

Cómo puedo comparar dos listbox, es decir que al recorrer las listas compruebe que tengan los mismos valores algo así como:

if list1 <> list2 then
msgbox "diferentes"
else
msgbox "iguales"
end if

Gracias amigos

Estimados:

Particioné mi disco duro, tengo windows 10 instalado en uno y en la otra partición quiero instalar el windows 7. El tema es que me aparece el error de la partición GPT, hay alguna forma de poder instalarlo sin tener que formartear el disco duro o sin perder los datos del disco.?

Muchas gracias amigos.

Amigos míos, solicito su apreciada ayuda: tengo mi formulario de la siguiente manera:



A través del command_button Realizo una comprobación entre los 3 texbox de la izquierda, con el textbox de la derecha para saber si el string del text4 se repite en alguno de los textbox de la izquierda a través del siguiente código:

Private Sub Command1_Click()
If Text4.Text = Text1.Text Or Text4.Text = Text2.Text Or Text4.Text = Text3.Text Then
MsgBox "iguales"
End If
End Sub

El tema es que necesito averiguar cual de los 3 de la izquierda es el que tiene el mismo string que el de la derecha, es decir poder obtener el nombre del control que tiene el mismo string.

Se puede hacer de alguna forma??
gracias amigos  

Estimados, tengo el siguiente problema, necesito detectar cambios en un listbox en tiempo de ejecución, no solamente la cantidad de items, sino que también la edición de alguno de ellos, así como lo hace el evento change en un textbox. Se puede?

Atento a sus comentarios
gracias amigos