Logik-/Semantikplugin für Openffice oder MS-Office?

Beitrag von **Andreas I.** » 26.06.2007, 22:47

Guten Abend,
ich überarbeite gerade einen Text von einem Kunden in Richtung SEO. Mühselige Sache, das Ganze.

Gibt es eigentlich ein plugin für MS-Word oder OOo-Writer, mit dem der Kunde, bzw. das Schreibbüro schon während der Texterstellung Zugriff auf alle/so viele wie möglich Logik- und Semantikmöglichkeiten von HTML hat? Also ich stelle mir da einfach zusätzliche Formate in Richtung <dfn> <abbr> <caption> und die vielen anderen HTML-Feinheiten vor. Von MS-Office weiss ich, dass man sich mittels z.B. Formatvorlagen sehr viel selber definieren kann. Mit OpenOffice hab ich mich bisher noch nicht so richtig beschäftigt, nehme aber an, dass da auch sowas gehen müsste..?

Gibts sowas schon? Ab- und zu ist so eine Arbeit ja eine willkommene Wiederauffrischung der HTML-Syntax. Aber mehr als einmal im Quartal will ich sowas eigenlich nicht unbedingt machen, gerade bei längeren Texten! ...Und daher die Frage nach dem plugin...

von **Anzeige von ABAKUS** »

Beitrag von **WilliWusel** » 27.06.2007, 11:20

Am einfachsten geht das vermutlich über ein (aufgezeichnetes) Word-Makro, das bestimmte Formatierungen/Markierungen gegen HTML austauscht. Hab ich mir auch mal gebastelt, um Texte aus/für Foren gegen richtiges HTML tauschen zu können.

Beitrag von **WilliWusel** » 27.06.2007, 13:14

So, hier ist das Makro, fast selbsterklärend:

Code: Alles auswählen

Sub Board2HTML&#40;&#41;
  
  ' Dieses Makro konvertiert die von mir gebrauchten Board-Codes in HTML.
  
  ' Absatzmarken&#58;
  Selection.Find.Format = False
  With Selection.Find
    .Text = "^a"   ' ab Word2000 p wie Paragraph statt a wie Absatz
    .Replacement.Text = "<br>"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll

  ' Fettdruck ein&#58;
  With Selection.Find
    .Text = "&#91;b&#93;"
    .Replacement.Text = "<b>"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll

  ' Fettdruck aus&#58;
  With Selection.Find
    .Text = "&#91;/b&#93;"
    .Replacement.Text = "</b>"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll
  
  ' EMail-Tags&#58;
  With Selection.Find
    .Text = "\&#91;email=&#40;*&#41;\&#93;&#40;*&#41;\&#91;/email\&#93;"
    .Replacement.Text = "<a href=""mailto&#58;\1"">\2</a>"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll
  
  ' Links&#58;
  With Selection.Find
    .Text = "\&#91;url=&#40;*&#41;\&#93;&#40;*&#41;\&#91;/url\&#93;"
    .Replacement.Text = "<a href=""\1"">\2</a>"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll
  
  ' Bilder&#58;
  With Selection.Find
    .Text = "\&#91;img\&#93;&#40;*&#41;\&#91;/img\&#93;"
    .Replacement.Text = "<img src=""\1"">"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll
  
  ' Liste ein&#58;
  With Selection.Find
    .Text = "&#91;list=1&#93;"
    .Replacement.Text = "<ol>"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll
  
  ' Einzelne Listenelemente&#58;
  With Selection.Find
    .Text = "\&#91;\*\&#93; &#40;*&#41;^13"
    .Replacement.Text = "<li>\1</li>^13"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll
  
  ' Liste aus&#58;
  With Selection.Find
    .Text = "&#91;/list&#93;"
    .Replacement.Text = "</ol>"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceAll
    
End Sub

Im Prinzip kannst Du Dir auch eigene Tags basteln und in der Symbolleiste ablegen. Jedem dieser Tags sollte dann ein Makro zugewiesen werden, das einen bestimmten Austausch durchführt. Das folgende Makro z.B. schließt den markierten Text in <x> </x> ein:

Code: Alles auswählen

Sub MarkierungErsetzen&#40;&#41;
    
  Selection.Find.Format = False
  With Selection.Find
    .Text = Selection.Text
    .Replacement.Text = "<x>^&</x>"
    .Forward = False
    .Wrap = wdFindStop
    .MatchWildcards = False
  End With
  Selection.Find.Execute Replace&#58;=wdReplaceOne
  
End Sub

Für andere Tags muss nur der Text hinter Replacement.Text ausgetauscht werden.

von **Anzeige von ABAKUS** »

Beitrag von **Andreas I.** » 27.06.2007, 14:28

Danke dafür!