Discussion :

[Nerva]

Bonjour.

J'utilise une macro qui balise les paragraphes avec entre <p> et </p> pour usage sur pages HTML.

A partir de ceci :

Code :

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

1
2
Nihil est enim virtute amabilius, nihil quod magis adliciat ad diligendum, quippe cum propter virtutem et probitatem etiam eos, quos numquam vidimus, quodam modo diligamus.
In his tractibus navigerum nusquam visitur flumen sed in locis plurimis aquae suapte natura calentes emergunt ad usus aptae multiplicium medelarum.

J'obtiens ceci :

Code :

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

1
2
<p>Nihil est enim virtute amabilius, nihil quod magis adliciat ad diligendum, quippe cum propter virtutem et probitatem etiam eos, quos numquam vidimus, quodam modo diligamus.</p>
<p>In his tractibus navigerum nusquam visitur flumen sed in locis plurimis aquae suapte natura calentes emergunt ad usus aptae multiplicium medelarum.</p>

Mais j'aimerais aller plus loin. Comme mes documents comportent plusieurs styles, je voudrais que chaque style soit "classé" en début de paragraphe. Par exemple, si le premier paragraphe est de style Standard et le second de style Message, j'aimerais obtenir ceci :

Code :

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

1
2
<p class="Standard">Nihil est enim virtute amabilius, nihil quod magis adliciat ad diligendum, quippe cum propter virtutem et probitatem etiam eos, quos numquam vidimus, quodam modo diligamus.</p>
<p class="Message">In his tractibus navigerum nusquam visitur flumen sed in locis plurimis aquae suapte natura calentes emergunt ad usus aptae multiplicium medelarum.</p>

Et etc... pour chaque style présent dans le document.

Pour le moment, j'ai utilisé l'enregistreur de macros pour en créer une mais je pense qu'il serait plus élégant et plus rapide (pour les longs documents) d'utiliser une macro conçue à la main.

Merci.

[zoom61]

Salut,

Pourquoi ne pas travailler tout simplement sur le fichier content.xml ?

@+.

[Nerva]

Non, trop de contraintes, surtout avec le nombre de fichiers que j'ai à traiter...

[zoom61]

As-tu une mise en forme spéciale sur tes documents ? Est-elle la même sur tous les documents ?

Il faut plus de détails... une maquette de ce que tu as et une autre de ce que tu veux...

@+.

[Nerva]

Les styles sont exactement les mêmes pour tous les documents.

Pour l'instant, je n'utilise que cette macro pour baliser les paragraphes :

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
Sub Paragraphs_Xhtml
 
	Dim Document As Object
	Dim SearchReplace As Object
	Dim OldString(3) As String, NewString(3) As String
	Dim i As Long
 
		OldString() = Array(chr(160), "\n", "^.", ".$")
		NewString() = Array(" ", "<br />", "<p>$0", "$0</p>")
 
		Document = ThisComponent
		SearchReplace = Document.createReplaceDescriptor
		SearchReplace.SearchRegularExpression = true
 
	For i = 0 To 3
		SearchReplace.SearchString = OldString(i)
		SearchReplace.ReplaceString = NewString(i)
		Document.replaceAll(SearchReplace)
	Next i
 
End Sub

Mais je ne sais pas intégrer un style dans le langage et encore moins paramétrer une chaîne de caractères (class="XXX")...