主题：[求助]Word问题

 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