Discussion :

[thais781]

Bonjour,

Savez-vous d'il est possible via AS d'ecrire dans un signet Word ?

Merci pour votre aide

Thais

[thais781]

Une première piste est d'appeler une macro VBA dans Word qui ferra le job

Code AS :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
tell application "Microsoft Word"
	«event MSWDdovb» "Application.Run \"totoprint\""
end tell

Code VBA Word :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub totoprint()    
	MsgBox "Hello "
End Sub

Mais quid de comment passer des paramètres avec cette méthode ?
Il faudrait passer le nom du signet et le texte a y inscrire , mais la je coince ......

[PBELL]

Bonjour Thais,
Le script ci-dessous insère un signet Word qui fait référence au texte en cours de sélection du document actif de Word.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
tell application "Microsoft Word"    
activate front document
    set Ma_Selection to selection-- prend le texte sélectionné pour en faire un signet
    get properties of Ma_Selection
    set M_Start to selection start
    set M_End to selection end
make new bookmark in front document with properties {empty:false, name:"Mon_Signet", text object:Ma_Selection, column:false, story type:main text story, start of bookmark:M_Start, end of bookmark:M_End}
end tell

Cordialement