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

xxs1025 · 发表于 2004-10-25 09:51

http://club.excelhome.net/viewthread.php?tid=66256

还是一样的问题，到了那个地方就说不对。这个地址的问题与我的问题完全一样，麻烦版主再想想。谢谢！

我的试了一下，只需要对文件中的每个表格都自动运行平均分布各行及各列就完全达到了我的目的。只要贴到excel中表格完全一样就行了。谢谢！请您指导！

守柔 · 发表于 2004-10-25 10:02

估计是因为你的电脑中的语言设置与我的电脑不一致。你录入宏，设置一个表格的网格线，再看一下它的[.Style = "网格型" ]，与代码中的更改一下即可。这个代码的作用即似将第一第二段的文字转化为表格，并且列宽同下面的表格的4列的列宽相等（最后一列为6列），则表格线相一致。

xxs1025 · 发表于 2004-10-25 10:08

设置一个表格的网格线在那里设的？我找不到地方。我录了一个自动平均分布列宽和行高的宏。可惜只能对一个表格有用。能不能象第一个宏一样对所有的表格都有用呢？我把第一个宏的循环套用了一下，还是不行。我搞不定了。谢谢！

xxs1025 · 发表于 2004-10-25 10:09

我的装　的是　office2000专业版，请问版主您装的是具体那个 xp版？谢谢！

xxs1025 · 发表于 2004-10-25 10:24

对这个文件的每个表格再要想用录入宏，平均分布各列了不行了。因为表头不齐。

就是希望各列的列宽完全一样。贴粘到excel去不会产生列不一样的情况。谢谢!!!

xxs1025 · 发表于 2004-10-25 10:28

IEFQh3kc.rar (5.64 KB, 下载次数: 10)

守柔 · 发表于 2004-10-25 11:00

你的心情我理解。

你录的宏，需要保存在当前文档中，否则保存在NORMAL中，我到哪里去看。

另外，只要上述我的代码能够通过，则不存在粘贴到EXCEL中的问题。

这样操作：

录制宏，保存在活动文档中：表格，插入表格，所有数据按WORD默认设置即可，确定后停止录制。然后你将宏代码粘贴到论坛上，我再一下。

21楼的代码我这里运行多次，完全正常。主要就是[.Style = "网格型" ]这里的中文问题，此问题以前还有对于样式中的宏代码，其中的中文，有些机器上不能运行。

xxs1025 · 发表于 2004-10-25 12:51

BMKrwgRp.rar (6.7 KB, 下载次数: 5) 忙，没有时间详细说明了。谢谢!

xxs1025 · 发表于 2004-10-25 13:39

Sub Macro1() ' ' Macro1 Macro ' 宏在 2004-10-25 由 xx 录制 ' ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _ 5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed End Sub

xxs1025 · 发表于 2004-10-25 16:29

尊敬的版主：您好！我上网查到了一个办法。网址：http://www.pcdog.com/info/2393.htm。其中的vba可以解决我想解决的问题。对您的热心帮助我十分感谢！心情很激动啊！！！

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

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

问题上传

刚才忘记上传了。

上传