Controlar el Windows Media desde Word

Hola Oscar :-)

Tengo que hacer una desgrabación de un archivo de voz y quiero saber si
desde Word, con el teclado, puedo poner la pausa en el Windows media version
9. El Word es el 2003.
Desde ya muchas gracias por cualquier ayuda.

Explicanos un poco mejor eso de las desgrabacion ?? que es lo que
tienes en el documento de word ?? y que es lo que estas exactamente
realizando o como tienes estructurado todo ???


Comentanos ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Monica,
Gracias por tu interes. Me explico mejor: Tengo el archivo de la grabación
de una conferencia que quiero pasarlo a texto. Lo que hago es escuchar un
tramo de la grabación con el Windows Media, poner la pausa, escribir lo
escuchado y volver a poner "play" para seguir. Esto me resulta muy poco
práctico porque tengo que hacerlo con el mouse (play/pausa), me comentaron
que el control del Windows Media puedo hacerlo desde el teclado y por eso
recurro al foro por si alguien sabe como hacerlo.



"Tux" escribió en el mensaje
news:

Hola Oscar :-)

> Tengo que hacer una desgrabación de un archivo de voz y quiero saber si
> desde Word, con el teclado, puedo poner la pausa en el Windows media

version

> 9. El Word es el 2003.
> Desde ya muchas gracias por cualquier ayuda.
>
>

Explicanos un poco mejor eso de las desgrabacion ?? que es lo que
tienes en el documento de word ?? y que es lo que estas exactamente
realizando o como tienes estructurado todo ???


Comentanos ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Hola Oscar :-)

..Tengo el archivo de la grabación que quiero pasarlo a texto.
...escuchar untramo de la grabación con el Windows Media, poner la pausa,
escribir lo escuchado y volver a poner "play" para seguir...
poco práctico porque tengo que hacerlo con el mouse (play/pausa),
me comentaron que el control del Windows Media puedo hacerlo desde
el teclado y por eso recurro al foro por si alguien sabe como hacerlo.

Pues a mi se me ocurre que insertes un objeto en este caso que insertes
windows media en word para ello »

Menu Insertar » Objeto » pestaña crear nuevo » y buscas ahi windows
media y aceptar.

Luego dale dos clicks al objeto para abrir el editor de visual basic de
word ahi pon los codigos siguientes:

'[]

Sub carga_song()

WindowsMediaPlayer1.URL = "C:\test\chemical_brothers(7).wav"

End Sub

Sub stop_one()
WindowsMediaPlayer1.Controls.stop

End Sub
Sub play_one()

WindowsMediaPlayer1.Controls.play

End Sub

Sub pause_one()
WindowsMediaPlayer1.Controls.pause

End Sub

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 2 Then MsgBox " ??? "
End Sub

'[]


Luego tendras que assignar a las macros que quieras assignar atajos de
teclado [ play, stop y pause ] desde menu herramientas » personalizar
»boton teclado

Comentanos ok? :-)


Saludos
Monica






Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Estimada Monica,
Probé lo que me indicaste y funcionó, ahora me queda una duda porque no sé
si es correcto lo que hice. El objeto lo inserté en un documento con lo
cual me queda la imagen del reproductor en el mismo. ¿Esto es asi o hay
otra forma de hacerlo?. Por otra parte me ayudaste a conocer un poco mas
sobre la programación de Word, estuve incursionando hasta altas horas.
Gracias


"Tux" escribió en el mensaje
news:

Hola Oscar :-)

> ..Tengo el archivo de la grabación que quiero pasarlo a texto.
> ...escuchar untramo de la grabación con el Windows Media, poner la

pausa,

> escribir lo escuchado y volver a poner "play" para seguir...
> poco práctico porque tengo que hacerlo con el mouse (play/pausa),
> me comentaron que el control del Windows Media puedo hacerlo desde
> el teclado y por eso recurro al foro por si alguien sabe como hacerlo.
>

Pues a mi se me ocurre que insertes un objeto en este caso que insertes
windows media en word para ello »

Menu Insertar » Objeto » pestaña crear nuevo » y buscas ahi windows
media y aceptar.

Luego dale dos clicks al objeto para abrir el editor de visual basic de
word ahi pon los codigos siguientes:

'[]

Sub carga_song()

WindowsMediaPlayer1.URL = "C:\test\chemical_brothers(7).wav"

End Sub

Sub stop_one()
WindowsMediaPlayer1.Controls.stop

End Sub
Sub play_one()

WindowsMediaPlayer1.Controls.play

End Sub

Sub pause_one()
WindowsMediaPlayer1.Controls.pause

End Sub

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 2 Then MsgBox " ??? "
End Sub

'[]


Luego tendras que assignar a las macros que quieras assignar atajos de
teclado [ play, stop y pause ] desde menu herramientas » personalizar
»boton teclado

Comentanos ok? :-)


Saludos
Monica






Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Hola Oscar :)

Estimada Monica,
Probé lo que me indicaste y funcionó, ahora me queda una duda porque no sé
si es correcto lo que hice. El objeto lo inserté en un documento con lo
cual me queda la imagen del reproductor en el mismo. ¿Esto es asi o hay
otra forma de hacerlo?. Por otra parte me ayudaste a conocer un poco mas
sobre la programación de Word, estuve incursionando hasta altas horas.
Gracias

Pues en un principio es asi peroooo podemos ocultarlo mediante un cuadro
de texto y ahora te explico como:

En word visual basic el objeto [ WindowsMediaPlayer ] no admite la
propiedad o metodo [ Visible ] True o false por lo tanto podemos ponerlo
dentro de un cuadro de texto y ocultar o hacerlo visible mediante
programacion:

Insertamos un cuadro de texto » luego dentro del cuadro de texto nos
vamos a insertar » objeto » WindowsMediaPlayer [ es mejor hacerlo asi
que cortarndo y pegando ya que se corre el riesgo de que se ponga en
marcha dos veces la cancion o lo que estes escuchando :-P ya que
tendrias que estar dandole al stop ... stop ]

Bien el codigo es el siguiente una vez hecho eso, lo colocas debajo del
anterior codigo :

'[]

Sub OcultarCuadro de texto()

With ActiveDocument

On Error GoTo mio

.Shapes(1).Visible = msoFalse

End With

Exit Sub

mio:

MsgBox "en este documento no hay imagenes para ocultar"

Resume Next
End Sub

Sub VerCuadroTexto()

On Error GoTo mio

With ActiveDocument

.Shapes(1).Visible = msoTrue

End With

Exit Sub

mio:
MsgBox "no existen imagenes en este documento para ver "

Resume Next

End Sub

'[]

OJO el item (1) de la propiedad Shapes se referira siempre a la primera
forma que tengas en el documento, usea se si tuvieras mas [formas como
autoformas, cuadros de texto u imagenes ] siempre hara referencia al
orden en que han sido insertadas en el documento. Como imagino que sera
sobre documento en blanco o sin imagenes por el momento, le atribuimos
el item(1).

Y si no me he equivocado en nada :-? pues no obstante ...

Nos comentas ok? :-)


Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com