поменять картинку на рабочем столе

[leonw]

Здравствуйте! как сделать чтобы при открытии файла мойфалй.док на рабочем столе менялась картинка?
Спасибо!

[Alex Cones]

Можно поинтересоваться, для каких целей это делается? Просто интересно, зачем это может использоваться...

[leonw]

Да Конечно! на Делфи, паскале, басике 6 я юмею менять а в ворде нет

[Alex Cones]

А чем макрень из ворда отличается от "басика"? О_о

[leonw]

практически ни чем, но у меня в ворде ничего не работает. поэтому и прошу может кто сказать или кинуть код для ворда, с автозапуском когда документ отркываешь чтобы менял картинку.

[leonw]

пример:

Option Explicit

Private Declare Function SystemParametersInfo _
    Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal a As Long, _
    ByVal a1 As Long, _
    ByVal a2 As String, _
    ByVal a3 As Long) As Long
 
Private Sub Form_Load()
SystemParametersInfo 20, 0, "C:\1.bmp", True
End Sub

но после открытие документа ничего не происходит
или иногда даже сам код проподает в 2007