Dim app As New MSWord.Application
try
'新建文档
Dim missing = System.Reflection.Missing.Value
Dim nDoc = App.Documents.Add(missing, missing, missing, missing)
nDoc.Range(Start:=0, End:=0).InlineShapes.AddPicture(FileName:= _
"d:\test2.jpg" _
, LinkToFile:=False, SaveWithDocument:=True)
Dim count = nDoc.Characters.Count
Dim rng As MSWord.Range = nDoc.Range(Start:=0, End:=count)
App.Selection.ParagraphFormat.LineSpacingRule = Microsoft.Office.Interop.Word.WdLineSpacing.wdLineSpaceSingle ''单倍行距
With app.Selection.ParagraphFormat ''首行不缩进
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.FirstLineIndent = app.CentimetersToPoints(0)
.CharacterUnitFirstLineIndent = 0
End With
nDoc.SaveAs("d:\test.doc")
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try