Установка рамки в границе листа

@Within_t · Регистрация: 20.10.2013

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

Доброго времени суток! (использую embarcadero xe2)

Путаюсь сделать такую рамку

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    bool     fStart;     
    Variant  vVarApp,
             vVarDocs,
             vVarDoc,
             vVarParagraphs,
             vVarParagraph,
             vVarRange,
             vVarTables,
             vVarTable,
         vVarCell;
    __fastcall TForm1(TComponent* Owner);
};

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(!fStart)
    {
        try
        {
            vVarApp=CreateOleObject("Word.Application");
            fStart=true;
        }
        catch(...) {}
 
        vVarApp.OlePropertySet("Visible",true);            
        vVarDocs=vVarApp.OlePropertyGet("Documents");      
        vVarDocs.OleProcedure("Add");                       //Создаем документ
        vVarDoc=vVarDocs.OleFunction("Item",1);           
        vVarDoc.OleProcedure("Activate");              
        vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
 
             vVarDoc.OlePropertyGet("Borders",10).OlePropertySet("LineStyle",1);
             vVarDoc.OlePropertyGet("Borders",10).OlePropertySet("LineWidth",2);
             vVarDoc.OlePropertyGet("Borders",10).OlePropertySet("Color",1);
    }
}

Он запускается, но при открытии документа, вылетает "неизвестная ошибка" и все, может что не так делаю

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
    With Selection.Sections(1)
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
    End With
End Sub

@volvo · 13.07.2019, 14:47

Как ты в Word-е нарисовал эту рамку, для начала? Я не про код, я про то, как это сделать с использованием менюшек.

@Within_t · 13.07.2019, 14:54 **[ТС]**

@volvo · 13.07.2019, 14:58

У меня только OfficeXP, там по другому. Но неважно, я уже нашел. Вот так:

C++
1
2
3
4
5
6
7
8
9
10
11
        vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs"); // это у тебя было, дальше - по другому:
 
        Variant borders = vVarApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Sections").
            OlePropertyGet("First").OlePropertyGet("Borders");
 
         for(int k = 1; k <= 4; k++)
         {
            borders.OleFunction("Item", -k).OlePropertySet("LineStyle", 1);
            borders.OleFunction("Item", -k).OlePropertySet("LineWidth", 2);
            borders.OleFunction("Item", -k).OlePropertySet("Color", 1);
         }

, рисуется рамка...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@volvo Супер-модератор 33399 / 21509 / 8236 Регистрация: 22.10.2011 Сообщений: 36,907 Записей в блоге: 12
	13.07.2019, 14:47
	Как ты в Word-е нарисовал эту рамку, для начала? Я не про код, я про то, как это сделать с использованием менюшек. 0

@Within_t 34 / 21 / 11 Регистрация: 20.10.2013 Сообщений: 577
	13.07.2019, 14:54 [ТС]
	0

Установка рамки в границе листа

Решение