能否直接从Range中得到表格的Cell,而不用先得到一个table?

isonme 2003-11-24 05:50:15

在WORD操作中，TABLE里有一个RANGE，它或许是从TABLE的第二行开始，又或许是从TABLE的第三行开始，请问，能不能不用得到TABLE而直接从RANGE中得到CELL？

...全文

51 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

feelsu 2003-11-26

打赏
举报

回复

Selection.MoveRight(COleVariant("1"),COleVariant("1"),COlVariant("0"))

isonme 2003-11-25

打赏
举报

回复

求Selection的MoveRight用法，请给出个例子，VB中为Selection.MoveRight Unit:=wdCell, Count:=1, Extend:=wdMove，请问VC该怎么写，回答的，马上给分，谢谢

isonme 2003-11-25

打赏
举报

回复

up

分享C#操作Word表格的常用方法总结，c#操作word的代码比较少

vb 读写WORD复杂表格，复杂表格，复杂表格。

文件提取器程序，文件提取器将所选文件名存到Word表格中(VB6.0源代码编写)irecordcount = File1.ListCount 'On Error Resume Next '创建word应用程序，这一句话打开word2000 Set wdapp = CreateObject("Word.Application") '在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate '在word中增加一个表格 Set atable = .ActiveDocument.Tables.Add(.Selection.Range, irecordcount + 1, 3) '三代表列数 atable.Cell(1, 1).Range.InsertAfter "窗体名称" atable.Cell(1, 2).Range.InsertAfter "窗体说明" atable.Cell(1, 3).Range.InsertAfter "窗体文件" '指定表格内容 For i = 0 To irecordcount - 1 If Right(File1.List(i), 3) = "frm" Or Right(File1.List(i), 3) = "bas" Or Right(File1.List(i), 3) = "Dsr" Then atable.Cell(i + 2, 1).Range.InsertAfter Mid(File1.List(i), 1, Len(File1.List(i)) - 4) atable.Cell(i + 2, 3).Range.InsertAfter File1.List(i) Else End If Next i End With

VC++操纵word,进行word表格的填写

利用delphi的字符串，导出Word文档，可以导出表格到word。方法超简单，没什么技术含量，勿喷。不用任何控件（包括第三方控件和自带控件），附带一个例子。编程重在方法，希望对你有所帮助。

3,248

社区成员

48,531

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章