[已解决]怎么能把WORD中的带蓝色的表格中的文字提出来放在原地

guogongyi

怎么能把WORD中的带蓝色的表格中的文字提出来放在原地，就是不要该表格了，并加为一级大纲。谢谢

最佳答案

月排行榜 / 总排行榜

开辆小富康

2013-9-2 07:53

判断表格若是一行的，进行上述代码的转换

1. Sub ConverTbl_1Row()
   
2. Dim tbl As Table
   
3. For Each tbl In ActiveDocument.Tables
   
4. If tbl.Rows.Count = 1 Then
   
5. tbl.Select
   
6. Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
   
7. Selection.Style = ActiveDocument.Styles("标题 1")
   
8. End If
   
9. Next tbl
   
10. 
    
11. End Sub

复制代码

跳转到最佳答案楼层

ppp710715

将带蓝色的表格选中，再运行：

1. Sub 表格转换成文字()
   
2.     Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _
   
3.         NestedTables:=True
   
4.     Selection.Style = ActiveDocument.Styles("标题 1")
   
5. End Sub

复制代码

guogongyi

ppp710715 发表于 2013-9-1 21:29
将带蓝色的表格选中，再运行：

谢谢老师，可是我的这种表格很多，能不能不用单个选择一次性自动操作呢？

开辆小富康

判断表格若是一行的，进行上述代码的转换

1. Sub ConverTbl_1Row()
   
2. Dim tbl As Table
   
3. For Each tbl In ActiveDocument.Tables
   
4. If tbl.Rows.Count = 1 Then
   
5. tbl.Select
   
6. Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True
   
7. Selection.Style = ActiveDocument.Styles("标题 1")
   
8. End If
   
9. Next tbl
   
10. 
    
11. End Sub

复制代码

guogongyi

开辆小富康 发表于 2013-9-2 07:53
判断表格若是一行的，进行上述代码的转换

很好，达到了我想的效果，谢谢