RE: [Spip] astuce Word et un 3 col -> SPIP

Général
1

Voilà j'ai mis dans Word
merci aux macros transformeurs. Mais je me demandais...

Est-ce qu'il n'y aurait pas un moyen de transformer une adresse que l'on
tape comme ça dans word: http://www.etc.com en un lien hypertexte pour spip
?

Merci ! (Encore !)

mh,

Kilio c'est pas la peine j'y comprends rien ma page est toujours vide SAUF
leur pub et recalculer. ENFIN !

¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨

Pour lire la lettre de mh
http://www.lalettredemh.com/

Le journal de la lmh (spip)
http://mariehelene.banet.free.fr/

-----Message d'origine-----
De: Fil [SMTP:fil@rezo.net]
Date: vendredi 31 août 2001 22:24
À: Olivier Demoly
Cc: spip@rezo.net
Objet: Re: [Spip] astuce Word et un 3 col -> SPIP
Importance: Haute

Bonsoir,

Ci-dessous une version un peu améliorée de la macro Word2SPIP, que je me
propose de loger désormais à l'adresse

SPIP-Contrib - Toutes les contributions à SPIP

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Sub Word2SPIP()
' transforme un texte Word en pret-a-copier/coller
' dans SPIP ; pour l'instant italiques, gras, et guillemets
' français « » ; mercis à Olivier Demoly.

' italiques
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

' gras
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

' «
Selection.Find.ClearFormatting
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

' »
Selection.Find.ClearFormatting
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 Sub

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
_______________________________________________
spip mailing list
spip@rezo.net
http://listes.rezo.net/mailman/listinfo/spip