Foxtable(狐表)用户栏目专家坐堂 → 请问这样的vba如何放入狐表


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

主题:请问这样的vba如何放入狐表

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


加好友 发短信
等级:五尾狐 帖子:1077 积分:9929 威望:0 精华:0 注册:2008/9/2 11:34:00
请问这样的vba如何放入狐表  发帖心情 Post By:2019/1/19 21:25:00 [显示全部帖子]

With Selection
     .HomeKey unit:=wdStory  '光标置于文档首位
     .GoTo What:=wdGoToBookmark, Name:="\page" '定位第一页内容
     .Copy '复制
     .EndKey unit:=wdStory '光标置于文档页尾
     .InsertBreak   '插入一页内容
     .Paste '粘贴
End With

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


加好友 发短信
等级:五尾狐 帖子:1077 积分:9929 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2019/1/19 22:14:00 [显示全部帖子]

这是word中的

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


加好友 发短信
等级:五尾狐 帖子:1077 积分:9929 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2019/1/20 10:32:00 [显示全部帖子]

蓝版、甜版,请教

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


加好友 发短信
等级:五尾狐 帖子:1077 积分:9929 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2019/1/20 11:03:00 [显示全部帖子]

现在就是这里面的  wdstory 老出错,写成app.wdstory也不行
[此贴子已经被作者于2019/1/20 11:03:44编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1077 积分:9929 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2019/1/20 13:04:00 [显示全部帖子]

甜版图片点击可在新窗口打开查看,又学了一招。

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


加好友 发短信
等级:五尾狐 帖子:1077 积分:9929 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2019/1/20 21:09:00 [显示全部帖子]

表格复制问题解决了,在插入公式之前要定义表格
dim tb1 = doc.tables(1)
dim tb2 = doc.tables(2)
.....

由于表格数没有定数,这前面的变量如何定义方便些,我用数组不成功,后来是用var变量来解决的,有没有其它的方法。

 回到顶部