Visual Basic - Abrir extensión .doc o .docx

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Ariel

Abrir extensión .doc o .docx

Publicado por Ariel (5 intervenciones) el 11/08/2021 23:07:56
Hola amigos del foro, tengo un programa vb6 en donde una instrucción me abre un archivo de Word, el problema que tengo es que si el documento fue guardado en una versión .docx no lo abre. como puedo colocarle a la variable que abra .doc o .docx. o sea uno o el otro?

ShellExecute Me.hwnd, vbNullString, "C:\KapeFer\Colegiosf\" & VarDOC & ".doc", vbNullString, "C:\", 1

De esta manera abre solo los .doc


Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Abrir extensión .doc o .docx

Publicado por Antoni Masana (558 intervenciones) el 12/08/2021 15:56:33
Sería algo así

1
2
3
4
5
6
7
8
9
Extension=""
If Dir("C:\KapeFer\Colegiosf\" & VarDOC & ".doc")<> "" Then Extension = ".Doc"
If Dir("C:\KapeFer\Colegiosf\" & VarDOC & ".docx")<> "" Then Extension = ".Docx"
 
If Len(Extension) > 0 Then
    ShellExecute Me.hwnd, vbNullString, "C:\KapeFer\Colegiosf\" & VarDOC & Extension, vbNullString, "C:\", 1
Else
    MsgBox "No se puede abrir el documento: " & VarDOC
End If

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Ariel

Abrir extensión .doc o .docx

Publicado por Ariel (5 intervenciones) el 12/08/2021 21:56:58
Excelente Antoni. Muchas gracias por tu pronta respuesta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ariel

Abrir extensión .doc o .docx

Publicado por Ariel (5 intervenciones) el 12/08/2021 22:25:01
Hola!! Me tira error, dice error de compilación variable no definida Extension=""
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Abrir extensión .doc o .docx

Publicado por Antoni Masana (558 intervenciones) el 12/08/2021 22:47:35
La tiene que definir como String.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Ariel

Abrir extensión .doc o .docx

Publicado por Ariel (5 intervenciones) el 12/08/2021 22:51:22
Gracias!!! ya lo resolví declarando la variable Dim Extension As String
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar