Из StringGrid в Word по шаблону

@hodas4 · Регистрация: 08.05.2011

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

Есть шаблон Word с закладками.
Вывожу в него данные из StringGrida при помощи кода:

Кликните здесь для просмотра всего текста

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
void __fastcall TForm5::Button2Click(TObject *Sender)
{
bool DontOverwrite = true;
 Variant v2,v1, vApp, vDocs, vDoc, vSelection;
String vAsCurDir=GetCurrentDir();
String  path1 = vAsCurDir+"\\shablon\\BI_new.doc" ;    // файл шаблона
String  path2 = vAsCurDir+"\\directum\\BI.doc" ;   // куда будем сохранять результат
CopyFile(path1.c_str(),path2.c_str(),DontOverwrite);
String  imns = "imns";
String InsertText = "text", InsertText2 = "text2";
 
  vVarApp = CreateOleObject("Word.Application");
  vVarApp.OlePropertySet("Visible", true);
  vVarDocs = vVarApp.OlePropertyGet("Documents");
  vVarDocs.OleProcedure("Open", StringToOleStr(path2));
  vVarDoc = vVarDocs.OleFunction("Item", 1);
  vVarDoc.OleProcedure("Activate");
  v1 = vVarDoc.OlePropertyGet("Bookmarks");
 
    // заполняем данными в закладки
    for (int j=1;j<=(Form3->StringGrid1->RowCount);j++)
{         imns = "imns";
      imns=imns+j;
      InsertText=Form3->StringGrid1->Cells[0][j];
    v2 = v1.OleFunction("Item", StringToOleStr(imns));
  v2.OlePropertyGet("Range").OlePropertySet("Text", StringToOleStr(InsertText));
}
 
  // сохраняем и закрываем документ
     vVarDocs.OleProcedure("Save");
    vVarApp.OleProcedure("Quit");
}

Так вот проблема в том, что строк в шаблоне около 30. Данных выводится к примеру 5. Получается остается 25 пустых строк таблицы, что не красиво. Может подскажите как после заполнения данными удалять пустые строки? Или может будет другой вариант избавления от пустых строк?

@hodas4 · 28.09.2017, 09:37 **[ТС]**

Проблему решил написав макрос VBA и запуская его из под с++

Кликните здесь для просмотра всего текста

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
25
26
27
28
29
30
31
32
33
34
35
36
Sub MacOfSet()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Columns.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Columns(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Columns(i).Delete
Next i
Next Tbl
End With
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Rows.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Rows(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Rows(i).Delete
Next i
Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True
End Sub

Запускаю из под с++ после заполнения данными вот так:

Кликните здесь для просмотра всего текста

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
void __fastcall TForm5::Button2Click(TObject *Sender)
{
bool DontOverwrite = true;
 Variant v2,v1, vApp, vDocs, vDoc, vSelection;
String vAsCurDir=GetCurrentDir();
String  path1 = vAsCurDir+"\\shablon\\BI_new.doc" ;    // файл шаблона
String  path2 = vAsCurDir+"\\directum\\BI.doc" ;   // куда будем сохранять результат
CopyFile(path1.c_str(),path2.c_str(),DontOverwrite);
String  imns = "imns";
String InsertText = "text";
 
String  fio = "fio";
String InsertText2 = "text";
 
String  stryk = "stryk";
String InsertText3 = "text";
 
String  ip = "ip";
String InsertText4 = "text";
 
String  tel = "tel";
String InsertText5 = "text";
 
  vVarApp = CreateOleObject("Word.Application");
  vVarApp.OlePropertySet("Visible", false);
  vVarDocs = vVarApp.OlePropertyGet("Documents");
  vVarDocs.OleProcedure("Open", StringToOleStr(path2));
  vVarDoc = vVarDocs.OleFunction("Item", 1);
  vVarDoc.OleProcedure("Activate");
  v1 = vVarDoc.OlePropertyGet("Bookmarks");
 
    // заполняем данными в закладки
    for (int j=1;j<=(Form3->StringGrid1->RowCount);j++)
{         imns = "imns";
 imns=imns+j;
 
fio = "fio";
fio = fio+j;
 
stryk = "stryk";
stryk = stryk+j;
 
ip = "ip";
ip = ip+j;
 
tel = "tel";
tel = tel+j;
 
      InsertText=Form3->StringGrid1->Cells[0][j];
    v2 = v1.OleFunction("Item", StringToOleStr(imns));
  v2.OlePropertyGet("Range").OlePropertySet("Text", StringToOleStr(InsertText));
 
      InsertText2=Form3->StringGrid1->Cells[1][j];
    v2 = v1.OleFunction("Item", StringToOleStr(fio));
  v2.OlePropertyGet("Range").OlePropertySet("Text", StringToOleStr(InsertText2));
 
      InsertText3=Form3->StringGrid1->Cells[2][j];
    v2 = v1.OleFunction("Item", StringToOleStr(stryk));
  v2.OlePropertyGet("Range").OlePropertySet("Text", StringToOleStr(InsertText3));
 
      InsertText4=Form3->StringGrid1->Cells[4][j];
    v2 = v1.OleFunction("Item", StringToOleStr(ip));
  v2.OlePropertyGet("Range").OlePropertySet("Text", StringToOleStr(InsertText4));
 
      InsertText5=Form3->StringGrid1->Cells[5][j];
    v2 = v1.OleFunction("Item", StringToOleStr(tel));
  v2.OlePropertyGet("Range").OlePropertySet("Text", StringToOleStr(InsertText5));
}
        
 
 
 
 //запуск макроса
WideString macr("MacOfSet");
        vVarApp.OleProcedure("Run",macr);
 
 
 
 
 
  // сохраняем и закрываем документ
     vVarDocs.OleProcedure("Save");
    vVarApp.OleProcedure("Quit");
    ShowMessage("Данные экспортированы в WORD");
}

@Gagoose · 19.10.2017, 04:33

hodas4,

C++
1
2
C=Sheetxls.OlePropertyGet("Rows",3);
C.OleProcedure("Insert");

код вставляет строку в таблицу после

C++
1
2
C=Sheetxls.OlePropertyGet("Rows",3);
C.OleProcedure("Delete");

вероятно удалит)

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

Опции темы