Как создать новый документ, вставить в него текст и сохранить научился, в msdn есть понятный пример. Текст пытаюсь вытаскивать так, он вставляется, но без форматирования. Для картинок этот метод вообще похоже не подходит.
- Код: Выделить всё
Dim PathToOld As String = "D:/Word/1.doc"
Dim PathToNew As String = "D:/Word/2.doc"
Dim oWord As Application
Dim oDocNew As Document
Dim oDocOld As Document
Dim oPara1 As Paragraph
oWord = CreateObject("Word.Application")
oWord.Visible = True
oDocOld = oWord.Documents.Open(PathToOld)
oDocNew = oWord.Documents.Add
Dim oText As String = oDocOld.Range(200, 300).Text
oPara1 = oDocNew.Content.Paragraphs.Add
oPara1.Range.Text = oText
oDocOld.Close()
Спасибо.