主题：[求助]VBA问题

 新增一个word

 

Dim app As New MSWord.Application
'新建文档
Dim missing = System.Reflection.Missing.Value
Dim nDoc = App.Documents.Add(missing, missing, missing, missing)
nDoc.SaveAs("d:\test.doc")
app.quit
msgbox("新建word成功")

 

 删除一个文件

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

app.CentimetersToPoints(0)

 你的代码想体现什么效果啊，根本不知道你想做什么。

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

 例子上传上来。

  汗，代码没问题，测试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

 改动循环顺序比较好。

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