Форму я написал. Помогите, пожалуйста, вот с чем:
1. сохранить rtf документ с именем, зависящим от текущего времени, имени пользователя, поля "Color"  и номера артикула.
2. Вписать в документ поля Строка1, Строка 2, ArtNo, Price.
3. Как выровнять текстовые поля, а то как-то не красиво
4. Как задать формат текстовых полей. Необходимо ограничить кол-во вводимых символов, например 4.
5. Как отредактировать текст, введенный в rtf - цвет, выравнивание, регистр.
6. Задать размеры листа в зависимости от выбора PaperSize.

Вам надо немного изучить доки по HTML и VBS, документация есть, кстати, и на этом сайте.
В инете есть неплохой сборничек по HTML "Справочник Веб-разработчика", Ю.С.Лукач, ссылка на онлайн версию - http://wdh.suncloud.ru/start.htm
По работе с vbs могу предложить свой архив с учебниками - https://sites.google.com/site/scripttoo … =0&d=1

Сделайте на форме тестовую кнопку, по клику вызывайте свою vbs-функцию, в которой и тренируйтесь получать требуемые значения от элементов своей формы и прочее.

1) имя текущего пользователя - ExpandEnvironmentStrings("%USERNAME%") объекта "WScript.Shell";
3) для выравнивания кнопок/полей/текста можете выполнять их группировку элементами <span> с указанием % ширины от ширины окна приложения;
4) в элементе INPUT есть аттрибут maxlength = число (максимальное количество символов текста).

Удачи!

Option Explicit
Private Sub SendOrder_Click()

Dim f, x, y As Byte
Dim Name, CT As String      ' имя файла
Dim T As Date               ' текущее время
Dim HomeDir As String

' Задаем имя файла
T = Time
CTime = Replace(T, ":", "")
Name = Color & " " & Format & " " & ArtNo & " " & Dep & " " & " " & GetUserName & " " & CTime

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

' размер листа

If Format = "A4" Then
x = 21 & y = 29.7
ElseIf Format = "A3" Then
x = 59.4 & y = 42
ElseIf Format = "A2" Then
x = 84 & y = 118.8
ElseIf Format = "A1" Then
x = 237.6 & y = 168
End If

wdDoc.Application.Selection.PageSetup.PageWidth = CentimetersToPoints(x) 'ширина листа
wdApp.Application.Selection.PageSetup.PageHeight = CentimetersToPoints(y) 'высота листа

' место сохранения
        HomeDir = "C:\Temp\" & Store & "\"

'запись
        Set wdApp = New Word.Application
        wdApp.Visible = False
        Set wdDoc = wdApp.Documents.Add
            wdDoc.Range.Text = wdDoc.Range.Text + _
                              ArtNo & Chr$(10) & _
                              Art1 & Chr$(10) & _
                              Art2 & Chr$(10) & Chr$(10)
        wdDoc.SaveAs HomeDir$ + Name + ".doc"
        wdDoc.Close
        wdApp.Quit
        MsgBox "Заявка отправлена!"
End Sub

P.S. Word не меняет размер листа.
P.P.S. Нет кода форматирования текста.

Помогите, пожалуйста, с миграцией на HTA.
Будет использоваться только IE. В HTA, fso и JS ничего не понимаю. Сюда отправили с другого форума