以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问这样的vba如何放入狐表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130356)
--  作者：bohe
--  发布时间：2019/1/19 21:25:00
--  请问这样的vba如何放入狐表
With Selection
     .HomeKey unit:=wdStory  \'光标置于文档首位
     .GoTo What:=wdGoToBookmark, Name:="\\page" \'定位第一页内容
     .Copy \'复制
     .EndKey unit:=wdStory \'光标置于文档页尾
     .InsertBreak   \'插入一页内容
     .Paste \'粘贴
End With
--  作者：wyz20130512
--  发布时间：2019/1/19 21:52:00
--  
http://www.foxtable.com/webhelp/scr/2121.htm
--  作者：bohe
--  发布时间：2019/1/19 22:14:00
--  
这是word中的
--  作者：bohe
--  发布时间：2019/1/20 10:32:00
--  
蓝版、甜版，请教
--  作者：有点甜
--  发布时间：2019/1/20 10:34:00
--  

参考

 

http://www.foxtable.com/bbs/query.asp?keyword=msword&boardid=0&sType=7&stable=Dv_bbs1&submit=%D5%BE%C4%DA%CB%D1%CB%F7

 
--  作者：bohe
--  发布时间：2019/1/20 11:03:00
--  
现在就是这里面的  wdstory 老出错，写成app.wdstory也不行
[此贴子已经被作者于2019/1/20 11:03:44编辑过]
--  作者：有点甜
--  发布时间：2019/1/20 11:51:00
--  

 

你在word的vba那里，msgbox弹出wdStory的值看看，然后直接填数值即可。

 

 

 

 
--  作者：bohe
--  发布时间：2019/1/20 13:04:00
--  
甜版图片点击可在新窗口打开查看，又学了一招。
--  作者：bohe
--  发布时间：2019/1/20 21:09:00
--  
表格复制问题解决了，在插入公式之前要定义表格
dim tb1 = doc.tables(1)
dim tb2 = doc.tables(2)
.....

由于表格数没有定数，这前面的变量如何定义方便些，我用数组不成功，后来是用var变量来解决的，有没有其它的方法。
--  作者：有点甜
--  发布时间：2019/1/20 22:40:00
--  
以下是引用bohe在2019/1/20 21:09:00的发言：

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

 

For i As Integer = 1 to doc.tables.count

    Dim tb = doc.tables(i)

   

Next