Вставка таблицы после текста (Ms WOrd)

26.07.07

✎

10:45

Не могу вставить таблицу после текста, я делаю так:
Ворд = СоздатьОбъект ("Word.Application");
Док = Ворд.Documents.Add();
Док.Range (0,0).InsertAfter (" Состояние склада(ов) на " + Строка (ВыбДата));
Выд = Док.Paragraphs.Item(1).Range;
Выд.Font.Size = 18;
Выд.Font.Name = "Times New Roman";
Док.Paragraphs(1).Alignment = 1;
Док.Content.InsertParagraphAfter();
Док.Tables.Add(Док.Range (1,2), 2, 2);

Ворд.Visible = 1;

Но таблица либо затирает часть текста , либо полность весь текст, т.е. пишется в начало документа

1 mikecool

26.07.07

✎

10:47

была у меня хорошая ссылка(утеряна), что-то типа "Объектная модель МС ворд с точки зрения .НЕТ" - шикарно было все по ворду расписано, я ею пользовался в свое время... поищи и обрящешь...

2 mikecool

26.07.07

✎

10:49

кажется эта
http://www.gotdotnet.ru/LearnDotNet/NETFramework/22156.aspx

3 dk

26.07.07

✎

10:49


 
    Selection.TypeParagraph();
 
    
 
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter;
 
    
 
    Если СписокСотрудников.КоличествоСтрок() > 0 Тогда
 
        Таб = Документ.Tables.Add(Selection.Range, СписокСотрудников.КоличествоСтрок() + 1, 4);
 
    Иначе
 
        Таб = Документ.Tables.Add(Selection.Range, 2, 4);
 
    КонецЕсли;    //"Если СписокСотрудников.КоличествоСтрок() > 0 Тогда
 
    
 
    Таб.Columns.PreferredWidthType    = wdPreferredWidthPoints;
 
    Таб.Columns(1).PreferredWidth    = WordApp.CentimetersToPoints(1.3);
 
    Таб.Columns(2).PreferredWidth    = WordApp.CentimetersToPoints(7);
 
    Таб.Columns(3).PreferredWidth    = WordApp.CentimetersToPoints(5);
 
    Таб.Columns(4).PreferredWidth    = WordApp.CentimetersToPoints(3);
 
    
 
    Таб.Style                    = "Сетка таблицы";
 
    Таб.ApplyStyleHeadingRows    = xlTrue;
 
    Таб.ApplyStyleLastRow        = xlTrue;
 
    Таб.ApplyStyleFirstColumn    = xlTrue;
 
    Таб.ApplyStyleLastColumn    = xlTrue;
 
    
 
    Таб.Cell(1, 1).Range.Text    = "№№";
 
    Таб.Cell(1, 1).Range.Font.Bold    = xlTrue;
 
    
 
    Таб.Cell(1, 2).Range.Text    = "ФИО Работника";
 
    Таб.Cell(1, 2).Range.Font.Bold    = xlTrue;
 
    
 
    Таб.Cell(1, 3).Range.Text    = "№ текущего счета в рублях";
 
    Таб.Cell(1, 3).Range.Font.Bold    = xlTrue;
 
    
 
    Таб.Cell(1, 4).Range.Text    = "сумма перечислений";
 
    Таб.Cell(1, 4).Range.Font.Bold    = xlTrue;