в ворде объект "надпись".

0 спам

1.2K

28 июля 2005 года

richel

142 / / 20.01.2005

Создаю в ворде объект "надпись".

Цитата:

WordApp->ActiveDocument->Shapes->AddTextbox(msoTextOrientationVertical, 34.8, 251, 37.1, 290, EmptyParam);

С утра ищу в интернете зацепки, "пытаю" справку Билдера , но не выходят свойства:
1) Задать текст в надписи
2) Рамку сделать невидимой
3) Задать имя шрифта и его размер.
Хотя бы в каком направлении копать?
Задала вопрос на двух форумах. Глухо. Может здесь найдутся специалисты?

Подписаться на вопросНеобходима регистрация

По порядку

Сначала полезные

Сначала решения

4 ответа

-1 спам

1.2K

28 июля 2005 года

richel

142 / / 20.01.2005

Мне удалось сделать рамку невидимой.

Цитата:

WordApp->ActiveDocument->Shapes->AddTextbox(msoTextOrientationVertical, 34.8, 251, 37.1, 290, EmptyParam)->Select();

WordApp->Selection->ShapeRange->Line->Visible = msoFalse;

Теперь как-то нужно вставить текст и задать параметры шрифта. Помогите, пожалуйста. От меня уже "дым идет".:angel:

Цитировать

0 спам

1.2K

28 июля 2005 года

richel

142 / / 20.01.2005

С макросами я постоянно работаю. Но в Билдере другое построение кодов. И все же "дым" не напрасно валил.

Цитата:

WordApp->Selection->TypeText(StringToOleStr(ModuleLoad->ADOSail_Docum->Fields->Fields[2]->AsString.Trim()));
WordApp->Selection->WholeStory();
WordApp->Selection->Font->Size = 28;
WordApp->Selection->Font->set_Bold(1);

Осталось только имя шрифта прописать. Ну уж с этим я справлюсь.
Спасибо за отзывчивость.

Цитировать

0 спам

1.2K

28 июля 2005 года

richel

142 / / 20.01.2005

Напр. исходя из исходного кода макроса, на Buildere имя шрифта

Цитата:

WordApp->Selection->Font->Name = StringToOleStr("Arial");

Не всегда. В данном случае, эта фраза неправильна. Скорее, здесь нужно действовать через get_Name.
Пока еще не добила до конца.
Вообще, на Ворде и Экселе сделала наисложнейшие отчеты. Каждыйраз передо мною ставятся все более сложные задачи. Я пользуюсь и макросами, и ищу по интернету информацию. Но по Билдеру коды очень скудны. А отличие даже от Делпфи громадное.
Поэтому знаю, как иногда непредсказуемо задать свойство.

Цитировать

0 спам

1.2K

29 июля 2005 года

richel

142 / / 20.01.2005

Как я и предполагала:

Цитата:

WordApp->Selection->Font->set_Name(StringToOleStr("Times New Roman"));

Вопросов больше нет.:)

Цитировать