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

guo

求助高手，WORD文档每行的格式是一样的，现在想转换成Excel文档，如何处理？谢谢了！

约定的童话

全选复制粘贴过去分列呢？

guo

试过了分不了

guo

复制过去所有列都在一列中了

zpy2

guo 发表于 2022-12-18 13:26
复制过去所有列都在一列中了

正则表达式？
select * from 正则表达式拆分字符串到表格;
cli_split_data~正则表达式拆分字符串到表格~,(?=身)~F_A;

cli_split_data~正则表达式拆分字符串到表格split~[，：]~F_A;
create temp table aa as
select  fillna(iif(substr(F_A,1,2)='身份',rowid,'')) 组,* from 正则表达式拆分字符串到表格splitsplit;
create temp table bb as
select (row_number() over ( partition by 组))%2  行,* from aa;
select row_number() over () 序,group_concat(F_A,'</td><td>') F_A from bb where 行=0 group by 组;

guo

谢谢五楼高手。能有更简单的方法吗？

zpy2

guo 发表于 2022-12-18 19:11
谢谢五楼高手。能有更简单的方法吗？

在线工具，只需要复制粘贴。

guo

7楼高手，请帮忙给我例题中的三个对象做一个吧，谢谢！

413191246se

1. Sub a1219_PayTable()
   
2.     Dim i As Paragraph
   
3.     With ActiveDocument
   
4.         With .Content.Find
   
5.             .Execute "身份证号：", , , 0, , , , , , "^p^&", 2
   
6.             .Execute "，", , , 0, , , , , , ",", 2
   
7.             .Execute ",^p", , , 0, , , , , , "^p", 2
   
8.         End With
   
9.         
   
10.         For Each i In .Paragraphs
    
11.             If Asc(i.Range) = 13 Then i.Range.Delete
    
12.         Next
    
13.         
    
14.         .Select
    
15.         Selection.ConvertToTable Separator:=wdSeparateByCommas, NumColumns:=4, AutoFitBehavior:=wdAutoFitFixed
    
16.         Selection.Tables(1).Style = "网格型"
    
17.         
    
18.         With .Content.Find
    
19.             .Execute "身份证号：", , , 0, , , , , , "", 2
    
20.             .Execute "姓名：", , , 0, , , , , , "", 2
    
21.             .Execute "薪资月份：", , , 0, , , , , , "", 2
    
22.             .Execute "发薪金额：", , , 0, , , , , , "", 2
    
23.         End With
    
24.         
    
25.         With .Tables(1).Rows(1)
    
26.             .Select
    
27.             Selection.InsertRowsAbove 1
    
28.         End With
    
29.         
    
30.         With .Tables(1).Rows(1)
    
31.             .Cells(1).Range.Text = "身份证号": .Cells(2).Range.Text = "姓名": .Cells(3).Range.Text = "薪资月份": .Cells(4).Range.Text = "发薪金额"
    
32.             With .Range.Font
    
33.                 .Name = "黑体"
    
34.                 .Bold = True
    
35.             End With
    
36.         End With
    
37.     End With
    
38. End Sub

复制代码

搓手搓脚

身份证号,340222****5015,姓名,谷小兵,薪资月份,2022-05-01,发薪金额,5600.00(换行符)
身份证号,412322****3052,姓名,王德彪,薪资月份,2022-03-01,发薪金额,46740.00(换行符)
身份证号,420800****4210,姓名,田学义,薪资月份,2022-03-01,发薪金额,8100.00(换行符)
设置成这样的格式然后选中，插入----表格-->文本转换成表格。

修改好的案例我上传附件了。