Символьные типы данных

[pomoshnic]

1:write ('одинадцать ');

Вот правильный вариант:

1:write ('одиннадцать ');

[Serge_Bliznykov]

pomoshnic, +1 :-)
а мне минус 1, просмотрел...

[Teor]

Я просто не с России и русский не учил Так что извиняйте за ошибки

[Sasha_Smirnov]

> Serge_Bliznykov

Ну так вот чтобы не вымучивать вручную, учась на ошибках и споря, а взять готовые слова из Ворда.

Сообщение от ...Оленька...

помогите пожалуйста решить задачу и составить блок схему!

Я ж осёкся, что помог так себе, т. е. незначительно!
Будут действия — будет и содействие.

[Sasha_Smirnov]

Sub CardText()
Dim chislo
Randomize
chislo = Int(1 + Rnd * 1000)

With Selection
    .TypeParagraph
    .Fields.Add Range:=.Range, Text:="=" & chislo & "\* cardtext"
    .HomeKey
    .Fields.Unlink
    .EndKey
End With

End Sub