Заполнение таблицы в шаблоне Word - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Заполнение таблицы в шаблоне Word»

textual
Листинг программы
  1. oTable.Rows.Item(1).Cells(1).Range.InlineShapes.AddPicture(FileName:= _
  2.         "c:/path/to/picture.jpg", LinkToFile:=False, _
  3.         SaveWithDocument:=True)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.533 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут