[求助]Word 中怎样实现中文、半角字符间自动加一个空格

Violet_trans · 发表于 2007-8-6 09:36

用测试文档完全没有问题！非常漂亮！！

我也不知道自己做的对不对。我将压缩包内的文档打开，文档所带宏全部复制到 Normal.doc 中，打开自己的文档，运行，然后提示：

运行时错误‘424’：

要求对象

点击“调试”，停在 Sub myreplace() 的第一个 Do 下的“With myRange.Find”。我不知道是宏不能复制还是怎么了……

sylun 大哥！

[em06][em04]

附一个文档吧。请打开“隐藏文字”。我不知道没有嵌入 Trados Workbench 的 Word 显示起来，跟我这里一样不。

mFYCxQpk.rar (49.44 KB, 下载次数: 13)

[此贴子已经被作者于2007-8-6 9:47:09编辑过]

sylun · 发表于 2007-8-6 13:03

楼主可试作如下修改：先右击“normal”，选插入-模块，再将附件文档中Thisdocument模板的代码全部复制到新建的模块中，然后将代码顶部的两个“Public”改为“Dim”。

其实这样的程序是初级的，高级的方法还未学会。论坛中VBA高手很多，我还不算。

Violet_trans · 发表于 2007-8-6 13:22

好的，好的，我去试试！

就算你不是顶尖高手，也是一流高手啊！毕竟，回头望，后面黑压压的还有我们这么多菜鸟呢～

Violet_trans · 发表于 2007-8-6 13:28

OK！搞定！！

呵呵～～

无比感谢啊！！！！以后我就跟着你“混”了！！

Violet_trans · 发表于 2007-8-7 17:50

由于老板脑子进水，要我别改动文档，直接输出报告。所以，我又要麻烦 sylun 兄对程序做出修改。等程序完工了。我要另开一帖，向版主，为 sylun 兄申请精华。因为这个程序将是我国本地化翻译界的第一个此类型的程序。以专业本地化翻译人员的眼光来看，我有理由坚信，任何一家本地化公司都会争相下载这个程序的！！！它将为 QA 工作省去多少时间、精力，提高多少精度和效率啊！！！

【sylun 兄，我对不起你，几乎天天找你麻烦】

[em23][em23][em23]

sylun · 发表于 2007-8-7 19:57

也许我写的程序可明显提高楼主的工作效率，但从VBA技术角度看，该程序只是初级作品，精华就更无从谈起了。我的VBA水平也只是初级的。也许楼主对VBA并不了解，所以才容易说出过头的话来。反正我尽量按楼主的要求去做就行了，楼主不必往我头上扣帽子，这样才会给我动力。

[此贴子已经被作者于2007-8-7 19:58:25编辑过]

Violet_trans · 发表于 2007-8-8 09:11

我不懂程序，我不知道一个程序是初级还是高级。我只知道，它效果好不好。我没有恭维的意思吖～句句实话。高手的眼里或许觉得这个程序很简单、很初级，但对于我们这种行外人来说，它就是一个 Perfect！完美无缺！所以说出行内人觉得过头的话，也不足为奇呀！

好比上学。如果一直上下去：初中了，就不会像小学时一样觉得初中生无所不能，高中了就不会像初中时一样觉得高中生深不可测，大学了，就不会像高中时代一样认为大学生了不起。

学习编程不是义务教育，每个人都要经历。无数跟我一样的人，还没有进门可能就放弃了继续。编程没那么容易，对于我这个年纪的人来说，要是用以谋生，是没有九年时间循序渐进的。

但是碰上这么个老板，我哭也不是啊……我不是天才，没那么神奇：两个礼拜就学会编程。我只想说，我要辞职，我要离开北京。

sylun · 发表于 2007-8-8 19:09

对原程序作了一些调整，可选择生成不同的报告，分别添加于指定的不同文档。勉强可以通过简单测试，请楼主再作测试，如确须调整或补充，请提出。

YJn27soT.rar (23.37 KB, 下载次数: 74)

Violet_trans · 发表于 2007-8-9 10:08

感谢 sylun 的辛勤劳动！！！（Violet_trans 谨献上鲜花一束……）

怪我没有表达清楚。

不做修改直接检查输出的报告，需要和原来的一样是明细报告。我想，也许相当于跳过了原程序的替换吧～（我不懂吖，瞎猜的）
页码、所在行，随原始文档（即，未作改动的文档）。

【是这样的：QA 只负责检查交送来的文档某处某处有错，检查完了，再大致统计一下各种错误以便根据质量交付“劳务费” —— QA 对交送来的文档是不做改动的，他会对文档进行检查，检查完毕后，如果有问题需要修改，会将交送来的文档原封不动地返回给负责该文档的译员或公司，同时附上一份明细检查报告，用以告知译员或公司某处某处需要改动】

我是[em35]，sylun 兄，再写两句吧？

[em23][em23][em23]

sylun · 发表于 2007-8-9 11:41

简单修改的话，可试将过程Sub myreplace()部分中的
If mychoose = 7 Then .Execute Replace:=wdReplaceOne
修改为（原文档不作任何更改）
If mychoose = 7 Then .Execute Format:=False, replacewith:="^&", Replace:=wdReplaceOne
或者修改为（只对原文档有问题处加上颜色标记）
If mychoose = 7 Then .Execute replacewith:="^&", Replace:=wdReplaceOne

[此贴子已经被作者于2007-8-9 12:25:26编辑过]

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