Foxtable(狐表)用户栏目专家坐堂 → word报表的问题


  共有2446人关注过本帖平板打印复制链接

主题:word报表的问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106675 积分:542564 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/2 9:18:00 [只看该作者]

麻烦下次发代码直接贴出来即可,不要发这种有行号的代码,看着费劲。

18 wrt.ReplaceOne("[试题]",st.replace(chr(10),"") )
wrt.ReplaceOne("[试题2]","[试题3]")
19 Dim img As Image = GetImage(wjm)
20 If img.width>400 Then
21 wrt.ReplaceWithImage("[试题3]",wjm,400,400*img.height/img.width)
22 Else
23 wrt.ReplaceWithImage("[试题3]",wjm,img.width,img.height)
24 End If
25 Else

 回到顶部