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

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

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

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

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

C++

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

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++

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");

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

	19.10.2017, 04:33

Опции темы