Как задать ширину столбцов таблиц в MS Word?

@Mihay · Регистрация: 21.03.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте!

Создаю отчет из SQL-запроса в таблицу MS Word на C++ Builder-е. Ниже приведен часть кода, где создается таблица и заполняется данными. Но одно не нравиться, что ширина всех столбцов таблицы одинакова. Как изменить ширину? Что надо добавить в код ниже, чтоб изменить ширину, например, 1-го столбца? Информации в форумах при таком создании таблицы (код ниже) практически нет!
Заранее благодарю.

код:

AnsiString templateName = ExtractFilePath(Application->ExeName)+ "Отчет.doc";
Variant Word = CreateOleObject("Word.Application");

Word.OlePropertySet("Visible", true);

Variant Doc = Word.OlePropertyGet("Documents").OleFunc tion("Add");
Variant Selection = Word.OlePropertyGet("Selection");

String Invoice = "Все приборы, удовлетворяющие условию: "+Bort+" = "+ComboBort->Text;
Selection.OleProcedure("TypeText", Invoice.c_str());
Selection.OlePropertyGet("ParagraphForma t").OlePropertySet("Alignment", 1);

Selection.OleProcedure("TypeParagraph");
Variant Range = Selection.OlePropertyGet("Range");
Variant Tables= Doc.OlePropertyGet("Tables").OleFunction ("Add",Range,1,5,1,0);

//TableColumnSeparators.
Selection.OleProcedure("TypeText", "¹");
Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", Num_Prib.c_str());
Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", Name_Prib.c_str());
Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", System_Prin.c_str());
Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", Num_Otsek.c_str());
Selection.OleProcedure("MoveRight");
int i = 0;
String NN;
String NP;
String NNP;
String SP;
String NO;

ADOQueryDB->First();
while(!ADOQueryDB->Eof)
{
i++;
NN = IntToStr(i);
NP = ADOQueryDB->FieldByName(Num_Prib)->AsString;
NNP = ADOQueryDB->FieldByName(Name_Prib)->AsString;
SP = ADOQueryDB->FieldByName(System_Prin)->AsString;
NO = ADOQueryDB->FieldByName(Num_Otsek)->AsString;

Selection.OleProcedure("InsertRowsBelow" );

Selection.OleProcedure("MoveLeft");
Selection.OleProcedure("TypeText", NN.c_str());

Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", NP.c_str());

Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", NNP.c_str());

Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", SP.c_str());

Selection.OleProcedure("MoveRight");
Selection.OleProcedure("TypeText", NO.c_str());
ADOQueryDB->Next();
}

@Sasha · 05.04.2012, 10:04

C++
1
2
3
vVarTable=vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1);
 Variant v=vVarTable.OlePropertyGet("Columns");
 v.OleFunction("Item",1).OlePropertySet("Width",50); //Устанавливаем ширину первого столбца

@Mihay · 05.04.2012, 10:44 **[ТС]**

Спасибо большое, теперь все ОК!!!

Добавлено через 11 минут
Еще один маленький вопрос!!! Как помещать текст по левому или правому краю или по центру таблицы????

@Sasha · 05.04.2012, 12:44

Сообщение от Mihay

Еще один маленький вопрос!!! Как помещать текст по левому или правому краю или по центру таблицы????

Глянь здесь
http://wladm.narod.ru/Borland/word.html

Добавлено через 1 час 27 минут

Сообщение от Mihay

Как помещать текст по левому или правому краю или по центру таблицы????

В шапке таблицы или в столбце таблицы?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Mihay 0 / 0 / 0 Регистрация: 21.03.2012 Сообщений: 13

	Как задать ширину столбцов таблиц в MS Word? 05.04.2012, 09:58. Показов 2812. Ответов 3 Метки нет (Все метки) Здравствуйте! Создаю отчет из SQL-запроса в таблицу MS Word на C++ Builder-е. Ниже приведен часть кода, где создается таблица и заполняется данными. Но одно не нравиться, что ширина всех столбцов таблицы одинакова. Как изменить ширину? Что надо добавить в код ниже, чтоб изменить ширину, например, 1-го столбца? Информации в форумах при таком создании таблицы (код ниже) практически нет! Заранее благодарю. код: AnsiString templateName = ExtractFilePath(Application->ExeName)+ "Отчет.doc"; Variant Word = CreateOleObject("Word.Application"); Word.OlePropertySet("Visible", true); Variant Doc = Word.OlePropertyGet("Documents").OleFunc tion("Add"); Variant Selection = Word.OlePropertyGet("Selection"); String Invoice = "Все приборы, удовлетворяющие условию: "+Bort+" = "+ComboBort->Text; Selection.OleProcedure("TypeText", Invoice.c_str()); Selection.OlePropertyGet("ParagraphForma t").OlePropertySet("Alignment", 1); Selection.OleProcedure("TypeParagraph"); Variant Range = Selection.OlePropertyGet("Range"); Variant Tables= Doc.OlePropertyGet("Tables").OleFunction ("Add",Range,1,5,1,0); //TableColumnSeparators. Selection.OleProcedure("TypeText", "¹"); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", Num_Prib.c_str()); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", Name_Prib.c_str()); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", System_Prin.c_str()); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", Num_Otsek.c_str()); Selection.OleProcedure("MoveRight"); int i = 0; String NN; String NP; String NNP; String SP; String NO; ADOQueryDB->First(); while(!ADOQueryDB->Eof) { i++; NN = IntToStr(i); NP = ADOQueryDB->FieldByName(Num_Prib)->AsString; NNP = ADOQueryDB->FieldByName(Name_Prib)->AsString; SP = ADOQueryDB->FieldByName(System_Prin)->AsString; NO = ADOQueryDB->FieldByName(Num_Otsek)->AsString; Selection.OleProcedure("InsertRowsBelow" ); Selection.OleProcedure("MoveLeft"); Selection.OleProcedure("TypeText", NN.c_str()); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", NP.c_str()); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", NNP.c_str()); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", SP.c_str()); Selection.OleProcedure("MoveRight"); Selection.OleProcedure("TypeText", NO.c_str()); ADOQueryDB->Next(); } 0

@Mihay 0 / 0 / 0 Регистрация: 21.03.2012 Сообщений: 13
	05.04.2012, 10:44 [ТС]
	Спасибо большое, теперь все ОК!!! Добавлено через 11 минут Еще один маленький вопрос!!! Как помещать текст по левому или правому краю или по центру таблицы???? 0