如何自动删除表格中有的多个回车符？成为一行。

xxs1025 · 发表于 2004-10-21 17:50

这个问题十分重要，也很常见。因为如果把有多个回车符的表格粘贴到excel中去的时候，表格有几个回车符就会转换成几行，这就麻烦大了。

我找了许多地方也没有找到。谢谢。

zni3zNoj.rar (2.86 KB, 下载次数: 47)

henterwu · 发表于 2004-10-21 19:26

全选表格，找找^p（还有空格），替换为空。

xxs1025 · 发表于 2004-10-21 20:06

如何用vba程序自动完成？有几百个文件！我急！

hooh · 发表于 2004-10-21 20:28

选格式，单元格，去掉自动换行．

如意 · 发表于 2004-10-21 23:27

以下是引用xxs1025在2004-10-21 20:06:00的发言：

如何用vba程序自动完成？有几百个文件！我急！

VBA[em05]

录个宏啦，操作上简单很多，而且不懂VBA一样能做。

守柔 · 发表于 2004-10-22 05:02

以下是引用xxs1025在2004-10-21 20:06:00的发言：

如何用vba程序自动完成？有几百个文件！我急！

按下图方法操作，将以下代码粘贴于全局模板中（NORMAL.DOT）

Private Sub Document_Open() Dim i As Table On Error Resume Next Application.ScreenUpdating = False For Each i In ActiveDocument.Tables i.Range.Find.Execute findtext:="^p", replacewith:="", Replace:=wdReplaceAll i.Range.Find.Execute findtext:=" ", replacewith:="", Replace:=wdReplaceAll Next i Application.ScreenUpdating = True End Sub 此代码的功能意义在于WORD模板每一次打开一个WORD文件均自动进行表格中的替换操作一个是将加表格中的回车删除,一个是将空格删除.

你可以将所有该类型文件移到同一个文件夹下,一次性打开数十个文件,WORD将自动进行文件数量打开多少,视内存大小而定.文件夹窗口中,用CTRL或者SHIFT配合鼠标点选文件再点右下方打开,可同时打开选定的文件项目).

前提,你的WORD必须将其工具/宏/安全性设为低如果不是低请在修改后关闭再重启WORD程序.

建议:表格的设计与制作应该尽量符合审美观点以及数据库特征避免无谓的合并单元格和回车换行.

后话:大量重复操作可由宏方便完成.包括对于复制到EXCEL中其实用VBA也能方便进行.

xxs1025 · 发表于 2004-10-22 07:59

一个是万分感谢，一个是感觉到知识就是力量。

另，word的表格中有表头，等等文本文件，能不能把他们自动转换成表格，先也把他们的回车符替换掉。再把几个表格自动合并成一个大表格。再贴到excel那就省事了！一贴就自动转换成表格，根本不用修改了！

能开发成一个全自动word到excel的数据库转换程序就好了。玩笑了。

[此贴子已经被作者于2004-10-22 8:04:17编辑过]

守柔 · 发表于 2004-10-22 09:13

主要是你的表格设计不合理所致。你的想法理所当然能够实现。

只要你愿意上传一些代表性的附件，和你想达到的目的与要求，以及EXCEL中的位置与文件名称等等，应该不算是个复杂的事情。

xxs1025 · 发表于 2004-10-22 10:36

我完全愿意，问题是我回复时，不会用上传啊。

xxs1025 · 发表于 2004-10-22 10:52

MDw8UB2P.rar (8.18 KB, 下载次数: 17) 我遇到的一个难题。请版主帮助为谢！

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

如何自动删除表格中有的多个回车符？成为一行。

请大虾出手！