Discussion :

[SpaceFrog]

Bon j'ai pas trop le choix, mais pour une utilisation pro je n'ai que cette licence là ...
Sous frontpage 2000, je cherche a jouter un bouton macro dans la barre de menu qui viendrait insérer automatiquement des balises de code
par exemple :

Code :

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

<script type="text/javascript"> ... </script>

autour de la selection en mode IDE

pour la creation du bouton et l'association à la macro c'est fait, reste le code d'insertion... les tentatives que j'ai pu faire se soldent toutes par presmission refusée ...
On dirait qu'il essaye d'ecrire dans le fichier, alors que je voudrais juste qu'il colle le texte dans l'editeur ...
Merci de vos pistes éventuelles ...

[SpaceFrog]

Bon alors en fouillant un peu partout et en regroupant des bouts de d'un peu partout j'ai réussi à goupiller ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
lngViewMode = Application.ActivePageWindow.ViewMode
'Switch to Normal view.
  Application.ActivePageWindow.ViewMode = fpPageViewNormal
Dim objElement As IHTMLElement
Dim strTagName As String
Set objElement = ActiveDocument.all.tags("head").Item(0)
 
strTagName = objElement.TagName
objElement.insertAdjacentHTML where:="beforeEnd", _
            HTML:=vbCrLf & "<script type=" & Chr(34) & "text/javascript" & Chr(34) & ">" & vbCrLf & vbCrLf & "</script>"
 
Application.ActivePageWindow.ViewMode = lngViewMode

A noter qu'on peut le modifier pour ajouter d'autre tags ...

[SpaceFrog]

seul point de détail que je n'arrive pas à régler:

positionner le caret à l'endroit voulu en fin de macro