The following macro will change the font name and size for all styles (not so sure about ALL)
>>
For x = 1 To ActiveDocument.Styles.Count
With ActiveDocument.Styles
If .Item(x).InUse = True Then
With ActiveDocument.Styles(.Item(x).NameLocal).Font...
I have a directory containing many office documents. .dos .xls etc
Is there a way to search the directory and only return files which contain macro/s ?
I have embedded an excel object in Word
I want to be able to reference particular cells
e.g
If I copy something form the word document and pasted it in a cell in the embedded excel object then a reference is created in the excel cell - something like...
The following code will display the contents of a local folder in a web browser, however, it defaults to icons regardless of the default XP folder settings. I want to view the local folder as either list or details in the browser by default. Or alternatively as an ftp style list.
Opening the...
Hi
Thanks for your help
Unfortunately, it made no difference, however I introduced Options.PrintBackground
This made a little difference but only if I use a message box between part1 and part 2
without Options.PrintBackground = False the message box makes no difference
I do not want to use...
The macro below is designed to print a document, first page headed, subsequent pages on quality plain and also print the whole document again on copy paper
Part 1 works fine on its own
Part 2 works fine on its own
BUT together the tray selection does not work
What happens is that sure enough...
Hi
I have a backgorund sound which loops forever
This is fine but I have a couple of videos on the site
I want to turn the webpage background sound off when the video plays and then back on again after the video stops
Can this be achieved?
THANKS
Hi
I am trying to convert documents from word to pdf using vba
I have adobe acrobat and a pdf printer installed and can manually click on convert to pdf which works fine. I just want to be able to automate the process for several documents.
Here is an attempt which needs some work
Dim pd As...
I have 2 databases BD1 and DB2
I open DB1 and Try to return the results from querying DB2
I can message out the data which shows that the query works in so far as it is in memory
the problem is I want to display the records on a form but this is proving difficult
Please see below
Dim...
<html>
<body>
<h2>Playing The Object</h2>
<object
height="50%"
width="50%"
classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name="AutoStart" value="0" />
<param name="FileName" value="MyVid.wmv" />
</object>
</body>
</html>
</html>
Hi i have the above code to play a video file...
Thanks for the quick reply
Here it is
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, fg
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\test\myfile1.txt", ForReading,
TristateTRUE)
x = 1
Do While f.AtEndOfStream <>...
Hi
In Excel I use vba to read a comma delimited line of text from a text file.
so my variable str would hold something like:
one,two,three,four etc
There is two things I wan to do
First I want to be able to put the contents of my variable in to individual cells e.g.
A1 B1
one two and...
Hi
How can I get the windows user name w=using Javascript
I want to create an intranet showing a greeting to the windows xp xurent logged in user
can this be done?
Hi
I have created a macro that deletes all items in the 'TASK' folder but these items get sent to the 'deleted items' folder
I want them to be permanently deleted and not to go to the deleted items folder OR if this can't be done create a macro that will delete only tasks from the deleted...
Hi
Well Ididn't get any errors but n o message either
If I use the following
msgbox("hi")
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
strUserName = objNetwork.UserName
MsgBox strUserName
I get a message saying Hi
nut no other message with username
Thanks
Thanks
Please excuse my ignorance
this is my first time for data access page
I pt the code in
MSMODCSC OnCLick
<SCRIPT language=vbscript event=onclick for=MSODSC>
<!--
Dim objNetworkSet objNetwork =Server.CreateObject("WScript.Network")
MsgBox objNetwork.UserName
-->
</SCRIPT>
The error...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.