Ah merci merci.
Bonne idée !!!
mh, wordeuse (oui je sais c'est mauvais)
¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨
Pour lire la lettre de mh
http://www.lalettredemh.com/
Le journal de le lmh (spip)
http://mariehelene.banet.free.fr/
-----Message d'origine-----
De: Olivier Demoly [SMTP:demoly@lemonde.fr]
Date: jeudi 30 août 2001 10:08
À: 'Fil'; 'ARNO*'; spip@rezo.net
Objet: [Spip] astuce Word et un 3 col -> SPIPBonjour à tous,
Voilas deux petites astuces :
Comment passer un texte de Word vers SPIP sans avoir à se colleter les
italiques et les gras ? simplement en utilisant cette macro WordSub italiques()
'
' italiques Macro
'
Selection.Find.ClearFormatting
Selection.Find.Font.Italic = True
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = "{^&}"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End SubSub gras()
'
' gras Macro
'
Selection.Find.ClearFormatting
Selection.Find.Font.Bold = True
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = "{{^&}}"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End SubDans le même principe comment faire un 3 col :
ex: http://www.iht.com/articles/30759.html
Dans votre squelette, 3 brèves dont seul la première aurait un titre....etc
Puis sous Word, sélectionner votre texte, Format -> colonnes-> trois
N'oubliez pas de passez votre texte à la moulinette ci-dessus,Cordialement