主题：[求助]VBA问题

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

谢谢

我在电脑上已制作了一个 word模板文件，设置首行缩进2个字符，固定行距，该模板替换了原word模板文件。

 例子上传上来。

  汗，代码没问题，测试n久，才知道不能按常理出牌..

 

 

Dim app As New MSWord.Application

try
   
    '新建文档
    Dim missing = System.Reflection.Missing.Value
    Dim nDoc = App.Documents.open("d:\test.doc")
    nDoc.Range(Start:=0, End:=0).InlineShapes.AddPicture(FileName:= _
    "d:\test2.jpg" _
    , LinkToFile:=False, SaveWithDocument:=True)
   
    app.Selection.WholeStory
    With  app.activeWindow.Selection.ParagraphFormat    ''首行不缩进
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .FirstLineIndent = 0
        .CharacterUnitFirstLineIndent = 0.01
    End With
   
    app.visible = True
   
    ' nDoc.save
catch ex As exception
    msgbox(ex.message)
finally
    ' app.Quit
End try

可否如此改

 改动循环顺序比较好。

另：如何判断一个word文档是否处于打开状态，若处于打开状态则关闭之

 http://www.foxtable.com/help/topics/2713.htm