[求助]如何将下载的长文档的格式去除

haogan7510 · 发表于 2005-7-19 16:51

请问如何将从网上下载的超长文档的格式全部一下去除.

例如将各段缩进格式去除.(缩进的距离不同的)

将各段中的空行去除.(行数也不一样)

太大的文档发不上去，发个小点的做个例子,请各位指点.谢谢!!!

l4ISm6sz.rar (8.43 KB, 下载次数: 18)

konggs · 发表于 2005-7-19 16:56

新朋友，欢迎！

用复制、编辑/选择性粘贴/文本格式。

haogan7510 · 发表于 2005-7-19 18:23

谢谢konggs!

可我试了还是不行啊！我选择粘贴无格式文本了，缩进的字符还是没变化。

konggs · 发表于 2005-7-19 18:35

你那缩进，用查找“ ”空格，替换为“”(空)，还有查找“^p^p”，替换为“^p”

或用老大的代码替换空行。

代码是：

Sub DelBlank() Dim i As Paragraph, n As Long Application.ScreenUpdating = False '关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环 If Len(i.Range) = 1 Then '判断段落长段,此处可根据文档实际情况 i.Range.Delete '进行必要的修改可将任意长度段落删除 n = n + 1 '计数 End If Next MsgBox "共删除空白段落" & n & "个!" Application.ScreenUpdating = True '恢复屏幕刷新 End Sub

一句话，你的需要用几次查找/替换。

haogan7510 · 发表于 2005-7-19 19:09

非常感谢！！

问题解决了。

这代码是在VBA中的吗？

haogan7510 · 发表于 2005-7-19 19:16

实在不好意思，行的删除我还没明白。

konggs · 发表于 2005-7-19 19:59

简单的把老大的代码复制到VBA中，运行一下，OK！

haogan7510 · 发表于 2005-7-20 10:04

成了！！！谢谢konggs ！！！！

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