Solved

wmv in ms word

Posted on 2009-07-04
8
1,321 Views
Last Modified: 2012-05-07
How is it possible to embed and play .wmv files in MS Word 2003?
thanks, Penelope
0
Comment
Question by:penelope112358
  • 5
  • 3
8 Comments
 
LVL 19

Expert Comment

by:darbid73
ID: 24778236
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
 

Author Comment

by:penelope112358
ID: 24781232
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
 
LVL 19

Expert Comment

by:darbid73
ID: 24783242
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
 

Author Comment

by:penelope112358
ID: 24788051
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:penelope112358
ID: 24791768
Looking at the sample  I have included in the previous post, is it possible that I have perhaps attached the code incorrectly?
0
 
LVL 19

Accepted Solution

by:
darbid73 earned 125 total points
ID: 24791847
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
 

Author Comment

by:penelope112358
ID: 24801533
Thank you Darbid73. I got it to work. Great help!! You really made a difference!!!
0
 

Author Closing Comment

by:penelope112358
ID: 31599822
Excellent help!! Thanks again very much.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
Today, still in the boom of Apple, PC's and products, nearly 50% of the computer users use Windows as graphical operating systems. If you are among those users who love windows, but are grappling to keep the system's hard drive optimized, then you s…
Google currently has a new report that is in beta and coming soon to Webmaster Tool accounts. This Micro Tutorial will highlight new features for Google Webmaster Tools.
How to create a custom search shortcut to site-search Experts Exchange using Google in the Firefox browser. This eliminates the need to type out site:experts-exchange.com whenever you want to search the site. Launch your Bookmark Menu: Press 'Ctrl +…

929 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now