Заполнение таблицы в шаблоне Word - Visual Basic .NET
Формулировка задачи:
Доброго времени суток господа.
Вопрос возможно для знатоков прост...
Создаю документ Word, в котором пара таблиц. прописать тексты в нужных ячейках, форматы и т.п. не вопрос. Есть 2-ва затыка. 1-вый в первой ячейке в прописывается текст, нужно вставить в определенное место в тексте .jpg - мой код:
2-ой затык - внедрить объект Excel, а именно таблицу шаблон.
Прошу подсказать в каком направлении двигаться.
Спасибо.
Листинг программы
- oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 3, 5, DefaultTableBehavior:=Microsoft.Office.Interop.Word.WdDefaultTableBehavior.wdWord9TableBehavior, AutoFitBehavior:=
- Microsoft.Office.Interop.Word.WdAutoFitBehavior.wdAutoFitFixed)
- oTable.Range.ParagraphFormat.SpaceAfter = 6
- With oTable.Rows.Item(1)
- .Cells.Merge() 'Обьеденяю ячейки первой строки.
- .Range.Style = "Сильное выделение" 'Стиль в ячейке.
- .Range.Font.Size = 13 'Размер шрифта.
- .Range.Text = "Справка – wwwwwwwwwwwwwwwwwwwwww ''Foto'' за " & Format(Now, "dd.MM.yy") 'Текст в ячейке 1.
- .Range.Select()
- oWord.Selection.Start = 158 ':
- 'oWord.Selection.End = 168
- 'oWord.Selection.MoveRight(Unit:=WdUnits.wdCharacter, Count:=79)
- End With
- 'oTable.Cell(1, 1).Select()
- 'oTable.Cell(1, 1)
- ' Range:=oWord.Selection.Range,
- oTable.Rows.Item(1).Range.InlineShapes.AddPicture(FileName:="D:\foto\BackgroundImage\Foto.jpg", Range:=oWord.Selection.Range, LinkToFile:=False, SaveWithDocument:=True)
- oTable.Rows.Item(1).Range.ParagraphFormat.SpaceAfter = 1 'Интервал междустрочный.
Решение задачи: «Заполнение таблицы в шаблоне Word»
textual
Листинг программы
- oTable.Rows.Item(1).Cells(1).Range.InlineShapes.AddPicture(FileName:= _
- "c:/path/to/picture.jpg", LinkToFile:=False, _
- SaveWithDocument:=True)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д