主题：[求助]Word问题

如何用Dim app As New MSWord.Application实现：

 1、你可以录制宏，参考vba的代码，然后改成foxtable的代码

 

 插入图片，参考

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    app.Documents.Open(fileName)
    app.Documents(fileName).Range(Start:=0, End:=0).InlineShapes.AddPicture(FileName:= _
        "C:\Documents and Settings\Administrator\My Documents\My Pictures\02.bmp" _
        , LinkToFile:=False, SaveWithDocument:=True)
    app.Documents.save
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

 

-----------------

 

页眉 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59069&skin=0

 

-------------------

 

水印 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=69160&skin=0

 

再请教一问题：

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.TypeText(Text:="123456")

   
    app.ActiveWindow.Selection.InlineShapes.AddPicture(FileName:= _
        "d:\test.jpg" _
        , LinkToFile:=False, SaveWithDocument:=True)

    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.TypeText(Text:="789")

    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try

谢谢

app.ActiveWindow.Selection.ParagraphFormat.Alignment = 1

app.ActiveWindow.Selection.Font.Color = Color.F romARGB(0,10,10,10).ToARGB

老师，字体样式呢，如何写代码

 

你自食其力吧，我也是通过录制宏才知道代码是怎样的。