wmv in ms word

How is it possible to embed and play .wmv files in MS Word 2003?
thanks, Penelope
penelope112358Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

darbid73Commented:
Yes - In short

On the View menu, point to Toolbars, and click Control Toolbox.
In the Control Toolbox, click More Tools.
In the list of available ActiveX Controls, click Windows Media Player.
Draw the control somewhere on your form.

Then you will need code like this



Const strPATHNAME As String = "C:\videos\"
'Change this line to the path where your movie files are stored.
'Be sure to include the trailing backslash!
 
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
'Check to see if the movie has ended. If so, then set the
'control's visibility to false and turn off autostart.
   Dim strName As String
 
   If Result = 0 Then
      strName = ""
      With MediaPlayer1
         .Visible = False
         .AutoStart = False
         .FileName = strName
      End With
      SlideShowWindows(1).View.GotoSlide 1, msoTrue
   End If
End Sub
 
Sub startme1()
'This is attached to an action button.
   Dim strName As String
   'Set the file name to movie you want to play
   strName = strPATHNAME & "movie1.avi"
   RunMovie strName
End Sub
 
Sub startme2()
'This is attached to an action button.
'You can have as many of these as you want.
'Just copy startme1 and paste into the project, but
'make sure you change the name of the subroutine.
   Dim strName As String
 
   'Set the file name to the movie you want to play.
   strName = strPATHNAME & "movie2.avi"
   RunMovie strName
End Sub
 
Sub RunMovie(strName As String)
'This function sets the various parameters, then resets
'the slide as the last step.
   With MediaPlayer1
      .AutoStart = True
      .DisplaySize = mpFullScreen
      'You can choose whatever size you want for the playback
      'of the movie with the .DisplaySize method.
 
      .Visible = True
      .EnableFullScreenControls = False
      .EnablePositionControls = False
      .EnableTracker = False
      .FileName = strName
   End With
   SlideShowWindows(1).View.GotoSlide 1, msoTrue
End Sub

Open in new window

0
penelope112358Author Commented:
Hello darbid73,

thanks for helping me with this and submitting detailed code. In startme2() I didn't use the & in the string name, just used &.

I was able to insert the plug in and attached your code in "This document" but can't get it to run, wonder what I might have overlooked. For your reference I have attached that document.


For the size I will experiment with these parameters:
mpFitToSize
mpFullScreen
1
2
3


Liglin


Sample-embedded.doc
0
darbid73Commented:
Ok it has been a while, so throw out the code I gave you as that is for the old Media Player.

With yours it is probably very simple.

With this one I put the code in the open document routine otherwise it starts automatically.

This will let you click the play button if you want.

If you make other buttons for your word doc then you would need to change the path in this click routine and would need "WindowsMediaPlayer1.Controls.play" at the end to play it.  You will see at the end of "WindowsMediaPlayer1.Controls" that you can play and stop etc without using the buttons of the actual media player.



Private Sub Document_Open()
 
Dim strName As String
 
strName = strPATHNAME & "all.wmv"  'your file name
 
WindowsMediaPlayer1.windowlessVideo = True
WindowsMediaPlayer1.settings.autoStart = False   'stop it from automatically starting on load
 
WindowsMediaPlayer1.URL = strName   'add the path to your file
WindowsMediaPlayer1.settings.volume = 100      'here you can change initial volume
WindowsMediaPlayer1.settings.setMode "loop", False     'stop it from looping
 
End Sub

Open in new window

0
Python 3 Fundamentals

This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.

penelope112358Author Commented:
Thanks for the new much simpler code. I have put the code into Microsoft Word Objects "ThisDocument" but the Object still won't run...


Sample-embedded.doc
0
penelope112358Author Commented:
Looking at the sample  I have included in the previous post, is it possible that I have perhaps attached the code incorrectly?
0
darbid73Commented:
You are going to have to be more specific.

Go into the Visual Basic Editor and go Debug>Stepinto and then use F8 to step through the code.  Does anything give an error?

Can you play this file with this Media Player anyway? Like can you manually open and play this file?

Check your path is correct.  Open Windows explorer and navigate to this file then copy the path that is at the top of the Windows Exporer.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
penelope112358Author Commented:
Thank you Darbid73. I got it to work. Great help!! You really made a difference!!!
0
penelope112358Author Commented:
Excellent help!! Thanks again very much.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Web Browsers

From novice to tech pro — start learning today.