紧急呼救!!WORD中文字如何灌入表格？

yangqi1213

已有多行文字，要把它灌入多行多列表框中的指定列，请指教!!!

yangqi1213

111111

LangQueS

建议楼主上传问题附件，以便大家研究解答。

dsp5000

解决方法

1、先把文本转换成表格

2、把表格复制粘贴到指定列里

yangqi1213

QUOTE:

以下是引用dsp5000在2007-10-9 13:21:42的发言：

解决方法

1、先把文本转换成表格

2、把表格复制粘贴到指定列里

基本解决。谢谢

pipiludaxian

写了个程序 但是运行不了  请高手出招啊
Sub characterintabcell()

Dim atab As Table, acell As Cell, n%, achar As Range, adanzi As String

For Each atab In ActiveDocument.Tables '遍历当前文档中的所有表格

    For Each acell In atab.Range.Cells '遍历每一表格中的所有单元格
   
      Set achar = ActiveDocument.Content
      
      If achar.Text Like "[一-龥]" Then n = n + 1 '如果achar是汉字则计数
      adanzi = Mid(achar, n, 1) '用mid从achar的第n个字符开始，提取一个字符
      acell.Range.InsertBefore adanzi '将提取出的字符插入当前单元格
      
    Next
   
Next

End Sub

banjinjiu

这是无法办到的事情，大家不要浪费精力！
这个文档有多少个字符？是填入部分字符，还是全部？未知。
这个表格是几行几列？未知。
一个单元格填入几个字符，未知。
有什么规则？有什么规律？未知。
这么多未知的东西，不能把字符想怎么填入表格，就怎么填入吧。
vba就是要找到有规律的东西去操作。