Function TSWdColorIndex();
Begin
	Uses TSDocxEnumerations;

	hash := array();
	hash[TSDocxEnumerations.wdAuto()] := nil;
	hash[TSDocxEnumerations.wdBlack()] := "000000";
	hash[TSDocxEnumerations.wdBlue()] := "0000FF";
	hash[TSDocxEnumerations.wdBrightGreen()] := "00FF00";
	hash[TSDocxEnumerations.wdByAuthor()] := nil;
	hash[TSDocxEnumerations.wdDarkBlue()] := "000080";
	hash[TSDocxEnumerations.wdDarkRed()] := "800000";
	hash[TSDocxEnumerations.wdDarkYellow()] := "808000";
	hash[TSDocxEnumerations.wdGray25()] := "C0C0C0";
	hash[TSDocxEnumerations.wdGray50()] := "808080";
	hash[TSDocxEnumerations.wdGreen()] := "008000";
	hash[TSDocxEnumerations.wdNoHighlight()] := nil;
	hash[TSDocxEnumerations.wdPink()] := "FF00FF";
	hash[TSDocxEnumerations.wdRed()] := "FF0000";
	hash[TSDocxEnumerations.wdTeal()] := "008080";
	hash[TSDocxEnumerations.wdTurquoise()] := "00FFFF";
	hash[TSDocxEnumerations.wdViolet()] := "800080";
	hash[TSDocxEnumerations.wdWhite()] := "FFFFFF";
	hash[TSDocxEnumerations.wdYellow()] := "FFFF00";

	hash2 := hash;
	for k, v in hash do
		hash2[v] := k;
	if ifnil(hash[nil]) then hash2[nil] := TSDocxEnumerations.wdAuto();

	return hash2;

End;