Код

'color.vbs
Sub SelectColor()
	Set doc = Windows.ActiveWnd.Document
	If doc = docWorkBook Then Set doc = doc.Page(1)

	If doc <> docText Then Exit Sub
	If not doc.IsOpen Then Exit Sub

	SelValue = doc.Range(doc.SelStartLine, doc.SelStartCol, doc.SelEndLine, doc.SelEndCol)

	set CD = CreateObject("MSComDlg.CommonDialog")
	CD.Flags = 3
	CD.CancelError = 1
	If SelValue = "" Then
	Else
		CD.Color = doc.Range(doc.SelStartLine, doc.SelStartCol, doc.SelEndLine, doc.SelEndCol)
	End If

	On Error Resume Next
	CD.ShowColor()
	if Err.Number > 0 Then Exit Sub

	doc.Range(doc.SelStartLine, doc.SelStartCol, doc.SelEndLine, doc.SelEndCol) = CD.Color
End Sub