Here's the script. Actually it's just a macro, but McAfee recognizes it as
a script, I guess because it goes out of Word into Windows territory by
making a shortcut. Pieter Janssens on the Word list made it for me, and has
given permission for me to share it. I struggled, but I couldn't do it myself.
With a button on your toolbar (I made one that looks like the shortcut
arrow), one click sends a shortcut to the open document onto the desktop.
It's perfect. No browsing boxes, no nothing. My clients send me hundreds of
files, they get sorted into all kinds of folders and renamed and moved here
and there all the time, and this is by far the easiest way to maintain
access to them. But McAfee complains every time, so it's two clicks in
practice...
==code starts below==
Sub CreateShortcutforActiveDocument()
Dim DesktopFolder As String
Dim DocumentFullName As String
Dim DocumentName As String
DocumentFullName = ActiveDocument.FullName
DocumentName = ActiveDocument.Name
If Len(Dir(DocumentFullName)) = 0 Then
MsgBox "First you need to save the document.", vbInformation
Exit Sub
End If
With CreateObject("WScript.Shell")
DesktopFolder = .SpecialFolders("Desktop")
With _
.CreateShortcut _
( _
DesktopFolder & "\" & _
Left(DocumentName, Len(DocumentName) - 4) & _
".lnk" _
)
.TargetPath = DocumentFullName
.WindowStyle = vbNormalFocus
.Description = DocumentName
.Save
End With
End With
End Sub
'==code ends==
At 07:46 AM 2006-05-28, you wrote:
so 'fess up with the script ;)
Wayne Johnson wrote on 28/05/2006, 04:59:
> If you use a script then what browser you're using doesn't matter.
--
Regards
Kylde
--
----------------------------------------
WIN-HOME Archives: http://PEACH.EASE.LSOFT.COM/archives/WIN-HOME.html
Contact the List Owner about anything: [EMAIL PROTECTED]
Official Win-Home List Members Profiles Page
http://www.besteffort.com/winhome/Profiles.html
