Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
 Аватар для Within_t
34 / 21 / 11
Регистрация: 20.10.2013
Сообщений: 577

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

13.07.2019, 14:25. Показов 1693. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток! (использую 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
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.07.2019, 14:25
Ответы с готовыми решениями:

Появление рамки на границе анимированного объекта
Не знаю, может не в тему, но многие здесь пользуются adobe flash professional. Сделал такой ролик со свечей. Пару минут анимации...

Возникновение рамки при вставке рисунка из другого листа
Помогите пожалуйста. Описание в кратце: В ячейки одного листа собрал некие рисунки (с прозрачным фоном). При копировании макросом...

Рамки на некоторых страницах пропали и наложились на рамки других страниц
делал лабораторную и столкнулся с такой проблемкой: рамки,на некоторых страницах пропали и наложились на рамки других страниц. и с...

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для 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
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33399 / 21509 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
13.07.2019, 14:58
Лучший ответ Сообщение было отмечено Within_t как решение

Решение

У меня только 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);
         }
, рисуется рамка...
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.07.2019, 14:58
Помогаю со студенческими работами здесь

Расстояние справа от рамки до текста не равно расстоянию слева от рамки до текста
Я написал такой код: &lt;html&gt; &lt;head&gt; &lt;title&gt;Мой сайт&lt;/title&gt; &lt;style&gt; .chasi{ padding:10px; border:5px solid black; ...

Сохранение текущего листа с сохранением имени листа и присвоением новой книге имени текущего листа
Sub Save_as() With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = ThisWorkbook.Path &amp; &quot;\&quot; &amp; &quot;new book name&quot;...

Запуск макроса (написанного для актив. нужного листа) с др. листа (сложно)
Подскажите пожалуйста, есть большие макросы которые работают на активном листе, существует какой-то способ не прописывая везде нужный лист...

Сохранение листа книги в файле - проблема с защитой листа и привязкой макросов
С толкнулся с такой проблемой при сохранении листа в файле вот код который сохраняет лист в файле Sub red_row() ...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
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-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru