Schriftformatierung für Word (Reports)

Schriftart (einfache Form)In dieser Variante, nimmt man für den neuen Font eine Zahl, die sicher noch nicht in Gebrauch ist, das heisst eine Zahl die von keiner Schriftart in Word genutzt wird.
FontNumbers.Add(300);Ein neuer Font mit der Zahl 300 wird erstellt. Diese Schriftnummer sollte nicht schon verwendet worden sein.
Fonts.Add("{\\f300 Verdana;}");Der Font 'Verdana' wird der Zahl '300' hinzugefügt.
Result = "\\f300 Test";Der neue Font wird in den Kommentar eingefügt mit dem Text 'Test'.
Schriftart (komplexe Form)In dieser Variante, wird automatisch eine Zahl generiert, die noch nicht in Gebrauch ist.
Li_FontNumber = -1;Die Font Nummer wird auf '-1' gesetzt
Ls_FontName = "Cavolini";Der Font Name wird auf 'Cavolini' gesetzt
for (Li_i = 0;Li_i < Fonts.GetSize();Li_i++)Hier wird die Zahl der neuen Farbe erhöht, bis sie die neue grösste Zahl ist.
{ if (StrFind(Fonts[Li_i],Ls_FontName,0) >= 0)

{ Li_FontNumber = FontsNumbers[Li_i]; }}


if (Li_FontNumber == -1)Wenn die Font Nummer = '-1' ist
{ Li_FontNumber = FontNumbers[FontNumbers.GetSize() - 1] + 1;
FontNumbers.Add(Li_FontNumber);
 Fonts.Add("{\\f" + Li_FontNumber + " " + Ls_FontName + ";}");}Alles wird zusammengefügt (Zahl, Name) und zum neuen Font gemacht
 Result = "\\f"+Li_FontNumber+" Test";Der neue Font wird in den Kommentar eingefügt mit dem Text 'Test'
Schriftfarbe (einfache Form)In dieser Variante, nimmt man für die Farbe eine Zahl höher als es im Dokument hat.
ColorNumbers.Add(33);Eine neue Farbe mit der Zahl '33' wird erstellt. Diese Nummer muss die nächst höhere im Array sein.
Colors.Add("\\red46\\green138\\blue127;");Die neue Farbe wird definiert
Result = "\\cf33 Test";Die neue Farbe wird in den Kommentar eingefügt zum Text 'Test'
  Schriftfarbe (komplexe Form)In dieser Variante wird automatisch die nächst höhere Zahl generiert und für die neue Farbe gebraucht.
 Li_ColorNumber = ColorNumbers.GetSize()+1;Der Anzahl vorhandener Farben, wird eine neue Zahl dazugefügt
 ColorNumbers.Add(Li_ColorNumber);Die neue Anzahl der Farben wird aktualisiert
 Colors.Add("\\red46\\green138\\blue127;");Die neue Farbe wird definiert
 Result = "\\cf"+Li_ColorNumber+" Test";Die neue Farbe wird in den Kommentar eingefügt mit dem Text 'Test'
Schriftgrösse
Result = "\\fs30 Test";Schriftgrösse wird auf '30' (Grösse '15' in Word)