怎样把WORD文档转换成电子表格形式

guo

谢谢9楼高手

zpy2

guo 发表于 2022-12-19 17:07
7楼高手，请帮忙给我例题中的三个对象做一个吧，谢谢！

https://club.excelhome.net/forum.php?mod=viewthread&tid=1642435&page=2&mobile=

12楼在线工具 搜 正则表达式拆分字符串

wy198268

请问这是咋回事，和你们做的不一样呢

Harry=

自己动手也很快写成

zldccmx

zldccmx

1. 
   
2. Sub Txt2Table()
   
3.     Dim Arr, Brr, X, Y, I, J
   
4.     Arr = ThisDocument.Range.Text
   
5.     Arr = Replace(Arr, "：", vbTab)
   
6.     Arr = Replace(Arr, "，", vbTab)
   
7.     X = Split(Arr, ",")
   
8.     For I = 0 To UBound(X) - 1
   
9.         If X(I) <> "" Then
   
10.             Y = Split(X(I), vbTab)
    
11.             ReDim Brr(1 To UBound(X) + 1, 1 To (UBound(Y) / 2 + 1)) '重新定义一个二维数组
    
12.             For J = 0 To UBound(Y) - 1 Step 2
    
13.                 Brr(1, (J + 2) / 2) = Y(J) '写入表头
    
14.             Next
    
15.             Exit For
    
16.         End If
    
17.     Next
    
18.     For I = 0 To UBound(X) - 1
    
19.         If X(I) <> "" Then
    
20.             Y = Split(X(I), vbTab)
    
21.             For J = 1 To UBound(Y) Step 2
    
22.                 Brr(I + 2, (J + 1) / 2) = Y(J) '写入数据
    
23.             Next
    
24.         End If
    
25.     Next
    
26.     Selection.EndKey Unit:=wdStory '切换到文档末尾
    
27.     Selection.TypeParagraph '插入一行
    
28.     '插入表格，行数、列数 根据数组 Brr 决定
    
29.     With ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=UBound(Brr), NumColumns:=UBound(Brr, 2))
    
30.         .Style = "网格型"
    
31.         For I = 1 To UBound(Brr)
    
32.             For J = 1 To UBound(Brr, 2)
    
33.                 .Rows(I).Cells(J).Range.Text = Brr(I, J) '数据写入表格
    
34.             Next
    
35.         Next
    
36.         .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
37.     End With
    
38. End Sub
    

复制代码

是木由柚子

413191246se 发表于 2022-12-19 20:13

这个咋用啊  我复制到EXCEL里面  说第一句报错