Foxtable(狐表)用户栏目专家坐堂 → [求助]Word问题


  共有3373人关注过本帖树形打印复制链接

主题:[求助]Word问题

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/15 9:07:00 [显示全部帖子]

 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

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/15 9:57:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/15 10:59:00 [显示全部帖子]

app.ActiveWindow.Selection.ParagraphFormat.Alignment = 1

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/15 12:00:00 [显示全部帖子]

以下是引用pcxjxjhkw在2015/6/15 11:19:00的发言:
老师,字体样式呢,如何写代码

 

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


 回到顶部