上百个文件排版问题请教

bth168

各位版主及高手：

我下载了一些网页文件，我批量转换成word格式，但文档的顶部和尾部都有一些无用的段落，我已经编辑一宏，在文档打开时运行宏可以去掉这些段落，只保留有用的段落。但有上百个文件要先打开，再运行宏，很麻烦！请教如下问题：

能否编辑一个VBA,在不打开文档的情况下，一次性选择需要排版的文档，并自动运行该宏？

只要能达到该目的，这个宏也可帮我修改一下，文档如附件，宏在“改名.doc”里，其他文档是需要排版的文档。

拜托各位！

NbowSI7a.rar (199.03 KB, 下载次数: 40)

2005-8-16 14:38 上传

点击文件名下载附件
上百个文件排版问题请教

bth168

版主们，救救我呀

守柔

你的文件中，少一个CSS链接样式。

以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-19 09:23:43 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyDialog As FileDialog, GetStr As String, MyDoc As Document Dim vrtSelectedItem As Variant, MyFind As Variant, MyReplace As Variant, RepCount As Byte Dim i As Paragraph On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 MyFind = Array(" ", "^l") MyReplace = Array("", "^p") '定义一个文件夹选取对话框 Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件 .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 '以隐藏窗口方式打开指定选定的DOC文件 Set MyDoc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False) With MyDoc '取得单元格文本内容 GetStr = .Tables(1).Cell(2, 1).Range '刷新正文内容 .Content = GetStr '进行两次替换,看情况,可以增加 For RepCount = 0 To 1 .Content.Find.Execute findtext:=MyFind(RepCount), replacewith:=MyReplace(RepCount), Replace:=wdReplaceAll Next '遍历文档 For Each i In .Paragraphs '删除空行 If Len(i.Range) = 1 Then i.Range.Delete Next '设置全文样式 .Paragraphs.Style = "正文首行缩进 2" '设置标题(首段样式和格式) With .Paragraphs(1) .Style = "标题 2" .Range.Font.Underline = True .Range.Font.Bold = True .Alignment = wdAlignParagraphCenter End With '设置最后一段的样式和格式 .Paragraphs.Last.Style = "正文" .Paragraphs.Last.Alignment = wdAlignParagraphRight '切换回来页面视图中 .ActiveWindow.View.Type = wdPrintView '保存并关闭 .Close True End With Next vrtSelectedItem End If End With Application.ScreenUpdating = True '恢复屏幕更新 End Sub '----------------------

bth168

守柔:

我望穿秋水，终于看到了你的身影，我想我获救了！一试代码，不同非凡的答案，在此非常的感谢您在百忙中花这么多时间为我解答！但不知这个程序可否再完美一点，其实是我想偷懒

:

因为所有文件中，少一个CSS链接样式，所以程序执行时，每打开一个文件都要点“确定”，文件太多比较麻烦，能否让跳出的确定询问框在后台运行，并且自动确定？

程序运行完后，再次打开WORD,还是会跳出询问框，也是一件麻烦的事。我试过了，只要在关闭文档前，先复制文档到一

空白文档，以第一行标题为文档名保存在同一文件夹下，再关闭两个文件，这样打开新的文件名就不会有提示了？（或者在关闭文件时直接另存在WORD格式，并以第一行标题为文档名保存在同一文件夹下，这样有几次提示要确定），可否把代码加在上面的程序的，实现这样的目的？

[此贴子已经被作者于2005-8-19 11:08:43编辑过]

守柔

这个问题,用VBA来解决,几乎是非常困难的,你应该在源文件上下功夫,把这个CSS链接样式库删除才是.

我初步试了一下,无法解决自动确定的事,如果你源文件上解决了,根本不会有些事,所以,你后面的问题也就不存在了.