jcst.net
当前位置:首页 >> 如何用VBA读取worD表格单元格中的字符 >>

如何用VBA读取worD表格单元格中的字符

假设 Word 文档中有这样一个表格 Word VBA 参考代码: Public Sub ReadTableData() MsgBox ActiveDocument.Tables(1).Cell(2, 1).Range.TextEnd Sub 运行效果:

假如有规律的话可用数组,相对简单一点,要不用INSTR查找,嗯,就烦了 第一,提取 :之前的字符 DIM s,arr s="War_ID : SM3766R12-CA88770.9-23" arr=split(s,":") msgbox arr(0) 得到的是:分号前的字符串, 第二个 问题 Sub aaa() Dim s, arr ...

你还是截图说明一下,是否需要VBA来解决,还要以实际来判断。

'仅 供 参 考 '此段代码没有对数据进行校验 Sub SearchCell() Dim inp As String Dim r As Row, c As Cell Dim CELL_ENDING As String CELL_ENDING= vbCr & Chr(7) 'word表格单元格文本结束符 inp = InputBox("输 入 关 键 字:") inp = inp & C...

Sub test() Dim doc As Document Set doc = Documents.Open("d:\某文件.doc") '打开d盘根目录下名为 某文件.doc 的文档 MsgBox doc.Tables(1).Cell(2, 3).Range.Text '显示该文档第1个表格第2行第3列的单元格的文本End Sub

比如,把A1:A10的内容都乘以3:这样办: 我们找一个空白的单元格,输入3,选择它,复制,再选择A1:A10,在编辑里找【选择性粘贴】勾丫运算】下的“乘”,确定。OK

'代码已经测试过,请注意保持良好习惯,及时采纳,谢谢。 Sub PasteToWordDoc() ' ' 需要引用MIcrosoft Word 12.0 Object Library(注:12.0是版本号,可以不同) ' Application.ScreenUpdating = False '关闭屏幕刷新' Selection.Copy Dim wdAp...

Sub Macro2() Dim r, p, r0, p0, rr, pp p= Selection.Information(wdActiveEndPageNumber) '当前页码 r= Selection.Information(wdFirstCharacterLineNumber) '当前行 '数行数 p0 = p rr = r Do Selection.MoveDown Unit:=wdLine, Count:=1 pp ...

可以使用VBA,读取Word文档中的所有表格,并把数字类型的单元格读出来计算。 下面是示例代码,自己适当改改就可以用了。 Dim tbs,tb, rgSet tbs = documents(1).TablesFor t1 = 1 To tbs.Count Set tb = tbs(t1) For i = 1 To tb.Rows.Count For...

可用CreateObject函数创建对EXCEL的引用,然后就可打开EXCEL工作簿,将表格中的数据复制到WORD中,参考代码如下: Set xlapp = CreateObject("excel.application")With xlapp.Open("带路径的EXCEL文件名") .Sheets(1).Range("A1:H8").Copy '粘贴...

网站首页 | 网站地图
All rights reserved Powered by www.jcst.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com