Hah!!! You wanted WAYNE's script!!! Oh, well. Maybe this will be useful to
some of the Wordies out there...
At 08:26 AM 2006-05-28, you wrote:
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
--
----------------------------------------
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
