Results 1 to 1 of 1
  1. #1
    Platinum Lounger
    Join Date
    Feb 2001
    Location
    Yilgarn region of Toronto, Ontario
    Posts
    5,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Merry Christopher! (Word2000+)

    In an idle moment on YouTube I pasted some sentimental links.
    Then I wrote a cheap (really!) jukebox to play the tunes.
    I used code from <post:=510,835>post 510,835</post:> and from <post:=572,105>post 572,105</post:>.

    <pre>Option Explicit
    'Declare Sleep API
    Private Declare Sub Sleep Lib "kernel32" (ByVal nMilliseconds As Long)
    Sub test()
    Dim hl As Hyperlink
    For Each hl In ThisDocument.Hyperlinks
    Dim strLink As String
    strLink = hl.Address
    '''' Debug.Print strLink
    ActiveDocument.FollowHyperlink (strLink)
    Sleep 30000 'wait 30 sec before trying again
    Sleep 30000 'wait 30 sec before trying again
    Sleep 30000 'wait 30 sec before trying again
    Sleep 30000 'wait 30 sec before trying again
    Sleep 30000 'wait 30 sec before trying again
    Sleep 30000 'wait 30 sec before trying again
    Next hl
    End Sub</pre>

    Attached Files Attached Files

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •