甜老师,以下代码未能实现:取消首行缩进。麻烦您帮我优化一下代码 ,谢谢
Dim app As New MSWord.Application
try
'新建文档
Dim missing = System.Reflection.Missing.Value
Dim nDoc = App.Documents.Add(missing, missing, missing, missing)
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")
Dim fileName = "d:\test.doc"
'app.Documents.Open(fileName)
app.Documents(fileName).Range(Start:=0, End:=0).InlineShapes.AddPicture(FileName:= _
"d:\test2.jpg" _
, LinkToFile:=False, SaveWithDocument:=True)
app.Documents.save
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try