Excel读取Word带格式的字符

xiaoxiaose · 发表于 2011-4-17 18:42

本帖最后由 xiaoxiaose 于 2012-1-6 20:23 编辑

我将Word中内容读取到Excel中（同时读取文本和文本格式，比如颜色等），遇到两个问题，请教各位

1、是否只能一个个的读取字符，并读取该字符的格式（如下所示），这样做效率太低，有没有更好的读取方法？

For Each mark In doc.Bookmarks                                                                            '读取word书签中的内容
Set wordChr = mark.Range.Characters
      Set cellFill = cellFill.Offset(1, 0)
         For ii = 1 To wordChr.Count
            cellFill.Characters(ii, 1).Text = wordChr(ii).Text
            cellFill.Characters(ii, 1).Font.ColorIndex = wordChr(ii).Font.ColorIndex
            cellFill.Characters(ii, 1).Font.Bold = CBool(wordChr(ii).Font.Bold)
            cellFill.Characters(ii, 1).Font.Underline = CBool(wordChr(ii).Font.Underline)
            cellFill.Characters(ii, 1).Font.Italic = CBool(wordChr(ii).Font.Italic)
            cellFill.Characters(ii, 1).Font.Name = wordChr(ii).Font.Name
      Next
next
2、上述程序运行无误，但填充后，每个单元格只能现实出254个Characters（带格式的汉字）？
如果说每个单元格中带格式Characters的数量上限是255，那么其余的字符去哪了呢？
而且为什么可以手动向一个单元格中粘贴几百个字符，然后再手动设置文本格式，就可以完整的现实出来呢？

自己研究后，解决了显示字符上限254个的问题，但仍然存在效率低下的问题，具体见示例，注意要读取带格式的字符哦

[ 本帖最后由 xiaoxiaose 于 2011-4-20 21:45 编辑 ]

xiaoxiaose · 发表于 2011-4-17 18:51

自己up一下

xiaoxiaose · 发表于 2011-4-17 22:19

wj2368 · 发表于 2011-4-19 19:04

原帖由 xiaoxiaose 于 2011-4-17 18:42 发表
我将Word中内容读取到Excel中（同时读取文本和文本格式，比如颜色等），遇到两个问题，请教各位

1、是否只能一个个的读取字符，并读取该字符的格式（如下所示），这样做效率太低，有没有更好的读取方法？

For ...

上传附件吧

xiaoxiaose · 发表于 2011-4-20 18:05

示例已上传，请赐教啊

wj2368 · 发表于 2011-4-20 20:09

原帖由 xiaoxiaose 于 2011-4-20 18:05 发表
示例已上传，请赐教啊

不知道是不你要的效果

xiaoxiaose · 发表于 2011-4-20 21:45

原帖由 wj2368 于 2011-4-20 20:09 发表

不知道是不你要的效果

不是的，这样字符就没有格式了，现在看起来有颜色，是因为单元格本来就有颜色设置，换一个单元格就没有格式了

xiaoxiaose · 发表于 2011-4-20 23:07

解决两个问题：
1、带字符格式导入时，字符数量限制
2、如何快速的带字符导入

xiaoxiaose · 发表于 2011-5-9 21:47

自己好像找到方法了，用XML，碰到相同问题的同志，提醒一下吧

liucqa · 发表于 2012-1-6 23:53

怎么用呀，给个附件让俺学习一下

		自动登录	找回密码
密码			免费注册

[讨论] Excel读取Word带格式的字符