[VBA FrontPage] echapper certains caractères

**SpaceFrog** · 10/02/2010, 08h58

Bonjour !

Hé oui c'est possible du VBA sous FrontPage ^^

Je suis amené parfois à utiliser FrontPage pour developper cetraines pages Web, c'est le seul outil que la boite ait consenti a me payer ...

Bref là n'est pas la question.
J'essaye de me simplifier l'existence et feneant que je suis en programmant des boutons avec des macros pour insérer des blocs de textes tout prêts...
Genre balises script ou css dans le head.

Cependant je butte sur la balise DOCTYPE:
Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub addoctype()
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("html").Item(0)
 
strTagName = objElement.TagName
objElement.insertAdjacentHTML where:="beforeBegin", _
            HTML:="<" & Chr(33) & "DOCTYPE html PUBLIC " & Chr(34) & "-//W3C//DTD XHTML 1.0 Strict//EN" & Chr(34) & " " & Chr(34) & "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" & Chr(34) & ">" & vbCrLf & "<html xmlns=" & Chr(34) & "http://www.w3.org/1999/xhtml" & Chr(34) & " xml:lang=" & Chr(34) & "fr" & Chr(34) & " lang=" & Chr(34) & "fr" & Chr(34) & ">" & vbCrLf
 
 Application.ActivePageWindow.ViewMode = lngViewMode
End Sub

le souci se situe au niveau du debut de cette balise
en effet VB n'accepte pas d'insérer lac combinaison "<!
même en "echappant" le ! au moyen de son chr, j'i l'impression que VBA considère ça comme un commentaire et ne le colle pas dans le fichier ...

Une idée ?

**SpaceFrog** · 10/02/2010, 09h32

Bon j'ai aussi tenté de passer par un simple replace au lieu de le faire par insertion de Balises

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub addoctype()
lngViewMode = Application.ActivePageWindow.ViewMode
'Switch to Normal view.
Application.ActivePageWindow.ViewMode = fpPageViewNormal
Dim objElement As IHTMLElement
Dim strTagName As String
Dim strSearch As String
Dim strReplace As String
'Doctype
strPageHTML = ActiveDocument.DocumentHTML
strReplace = "<" & Chr(33) & " DOCTYPE html PUBLIC " & Chr(34) & "-//W3C//DTD XHTML 1.0 Strict//EN" & Chr(34) & " " & Chr(34) & "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" & Chr(34) & ">" & vbCrLf & "<html xmlns=" & Chr(34) & "http://www.w3.org/1999/xhtml" & Chr(34) & " xml:lang=" & Chr(34) & "fr" & Chr(34) & " lang=" & Chr(34) & "fr" & Chr(34) & ">" & vbCrLf
strSearch = Chr(60) & "html" & Chr(62)
strPageHTML = Replace(strPageHTML, strSearch, strReplace)
 
'charset
strReplace = "charset=utf-8"
strSearch = "charset=windows-1252"
strPageHTML = Replace(strPageHTML, strSearch, strReplace)
 
'F'ing Microsoft Tags
strSearch = "<meta name=" & Chr(34) & "GENERATOR" & Chr(34) & " content=" & Chr(34) & "Microsoft FrontPage 4.0" & Chr(34) & ">" & vbCrLf _
& "<meta name=" & Chr(34) & "ProgId" & Chr(34) & " content=" & Chr(34) & "FrontPage.Editor.Document" & Chr(34) & ">"
strReplace = ""
strPageHTML = Replace(strPageHTML, strSearch, strReplace)
 
ActiveDocument.DocumentHTML = strPageHTML
 
Application.ActivePageWindow.ViewMode = lngViewMode
End Sub

le problème reste entier !
toutes les balises sont bien remplacées, sauf la balise doctype qui n'apparait pas.

**Domi2** · 10/02/2010, 09h37

Bonjour,

Et en essayant de le passer dans une variable ?

Code :

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

1
2
3
4
5
6
Dim strDebutBalise
 
strDebutBalise ="<!"
 
objElement.insertAdjacentHTML where:="beforeBegin", _
            HTML:=strDebutBalise & "DOCTYPE html PUBLIC " & Chr(34) & "-//W3C//DTD

Domi2

**SpaceFrog** · 10/02/2010, 09h45

Merci de te pencher sur ce triangle des bermudes ..

Non le souci reste le même

le seul truc qui me fait avancer un peu est si je mets la balise en commentaire:

Code :

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

strReplace = "<!-- DOCTYPE html PUBLIC " & Chr(34) & "-//W3C//DTD XHTML 1.0 Strict//EN" & Chr(34) & " " & Chr(34) & "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" & Chr(34) & ">" & vbCrLf & "<html xmlns=" & Chr(34) & "http://www.w3.org/1999/xhtml" & Chr(34) & " xml:lang=" & Chr(34) & "fr" & Chr(34) & " lang=" & Chr(34) & "fr" & Chr(34) & ">"

je dois ensuite effacer les deux -- , c'est pas top

A noter qu'un msgbox de strPageHTML m'affiche bien le bon contenu avec la balise DOCTYPE !

[VBA FrontPage] echapper certains caractères

VBA

Vue hybride

Discussions similaires

Partager

Partager