将WORD按要求整理为excel文件，超复杂、谢谢！

yjlexcelhome · 发表于 2011-10-14 21:24

方法不错,学习中.

siikou · 发表于 2012-2-22 22:49

太牛了，原来这这样的文件也能转换呀，五体投地了

ak47ok · 发表于 2013-6-6 13:26

本帖最后由 ak47ok 于 2013-6-6 13:30 编辑

KCFONG 发表于 2011-9-30 03:12
I had done a primary macro.
I think you can complete the other problem
I still not found out why
...

不知怎么回事，现在运行4楼的文件都是出错：下标越界（错误9）

If Trim(Range("a" & R)) Like "*【性状】*" Then
      If Asc(Trim(Range("a" & R - 4))) < 65 Or Asc(Trim(Range("a" & R - 4))) > 122 Then
         品名 = Range("A" & R - 4): 拼音 = Range("A" & R - 3): 英文 = Range("A" & R - 2): 简述 = Range("A" & R - 1)
      ElseIf Asc(Trim(Range("a" & R - 5))) < 65 Or Asc(Trim(Range("a" & R - 5))) > 122 Then
         品名 = Range("A" & R - 5): 拼音 = Range("A" & R - 4): 英文 = Range("A" & R - 3) & " " & Range("A" & R - 2): 简述 = Range("A" & R - 1)
      End If
         ARR(TR, 1) = Trim(品名): ARR(TR, 2) = Trim(拼音): ARR(TR, 3) = Trim(英文): ARR(TR, 4) = Trim(简述)

提示是最后一段中的 “ARR(TR, 2) = Trim(拼音)”出错
麻烦高手指点，谢谢！

ak47ok · 发表于 2013-6-6 20:43

SOS，请求打救！谢谢！

KCFONG · 发表于 2013-6-6 22:44

Upload all your files

ak47ok · 发表于 2013-6-7 15:24

本帖最后由 ak47ok 于 2013-6-7 15:32 编辑

再次感谢KCFONG 版主！
具体的要求仍与一楼的附件一样，只是将WORD里面的内容重新完善了一下，原文是网上下载的、可能是OCR识别的、有些文字错误，对关键的字眼完善了。重新上个附件、看看如何完善代码。

麻烦版主费心、谢谢！！

ak47ok · 发表于 2013-6-7 15:28

本帖最后由 ak47ok 于 2013-6-8 06:48 编辑

KCFONG 发表于 2013-6-6 22:44
Upload all your files

可能是本楼原来的内容误导了，我的文件及问题在16楼的附件已说明，麻烦版主费心！

KCFONG · 发表于 2013-6-7 22:26

Upload all your files, and tell me what is your problem

ak47ok · 发表于 2013-6-8 06:49

KCFONG 发表于 2013-6-7 22:26
Upload all your files, and tell me what is your problem

我的文件及问题在16楼的附件已说明，麻烦版主费心！再次感激！

KCFONG · 发表于 2013-6-9 00:06

see if help you
please test

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

[求助] 将WORD按要求整理为excel文件，超复杂、谢谢！