关于守版主的代码集的一段代码的疑问。

dzdoc

下段老大一段遍历文件夹中一段代码。

Sub Example() Dim Adoc As String, SetPsDoc As Document On Error Resume Next ChDrive "C" ChDir "C:\Documents and Settings\ZhouJianPing\My Documents\Temp" Adoc = Dir("*.doc") Application.ScreenUpdating = False Do While Adoc <> "" ' MsgBox Adoc Set SetPsDoc = Documents.Open(Adoc) SetPsDoc.Protect Type:=wdAllowOnlyFormFields, Password:="Password" SetPsDoc.Close True Adoc = Dir() Loop Application.ScreenUpdating = True End Sub

今天我将他改了一点。结果如下

Sub Example() Dim Adoc As String, SetPsDoc As Document On Error Resume Next ChDrive "C" ChDir "C:\Documents and Settings\My Documents\Temp" Adoc = Dir("*.doc") Application.ScreenUpdating = False Do While Adoc <> "" ' MsgBox Adoc Set SetPsDoc = Documents.Open(Adoc)

Selection.WholeStory Selection.Font.Size = 20

SetPsDoc.Close True Adoc = Dir() Loop Application.ScreenUpdating = True End Sub 运行时，打开并处理第一个文件后，打开第二个文件时就总是出错，指示文件名不正确不对。经调试，发现去除SetPsDoc.Close True 语后 一切正常，可以打开一个文件夹内所有文件并加以处理。

因但心跟在原贴下无人发现，所以新开一贴。版主如感不便可将他移过去。还有一个问题就就上次所提的。我已搜过所旧贴，未解决的办法面把他也跟在下面

我是从VB所编的软件，后台启动Word并加载了特定模板取得成功，可是设在特定模板中Thisdocument中的AUTOEXEC SUB（）无法启动。为什么这样呢？

将他放在WORD\startup中能启动。。

下面是有关这个AUTOEXEC SUB（）的代码：

Sub AutoExec() Dim PathDll As String PathDll = ThisDocument.Path & "\epdll.dll" Me.VBProject.References.AddFromFile PathDll MsgBox "丁中化学组 欢迎你" End Sub

下面是在VB中后台启动WORD的代码

Private Sub Form_Load()

Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True WordApp.AddIns.Add FileName:=App.Path & "\user.dot", Install:=True WordApp.Documents.Add , False, wdNewBlankDocument, True Set WordApp = Nothing End Sub

还有就是我只有一个AUTOEXEC放在了USER.dot 的THISDOCUMETN中。

[此贴子已经被守柔于2005-7-1 7:24:16编辑过]

scorpoin

楼主，能把版主的 代码集给我发一份吗，现在好像下载不了，谢谢了。zhangyh@qdc.com.cn

刚接触word 的vba

editor12

http://excelhome.net/Article/ShowArticle.asp?ArticleID=256

在正文第5行,最大字的那个,保证能下,我刚又下了一次,

守柔

先回答第一个问题：

我觉得是版本问题，在WORD2000中，我已发现了与你一样的情况，而且情况更遭糕。

我修改了一下代码，请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By shourou@ExcelHome 2005-6-20 8:18:18 '仅测试于System: Windows NT Word: 9.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim Adoc As String, SetPsDoc As Document, FilesPath As String, FileCount As Integer, StartFile As String On Error Resume Next ChDrive "C" FilesPath = "C:\Documents and Settings\wisetime\My Documents\new\" ChDir FilesPath Adoc = FilesPath & Dir("*.doc") Application.ScreenUpdating = False Do While Adoc <> "" FileCount = FileCount + 1 If FileCount = 1 Then StartFile = Adoc ElseIf Adoc = StartFile Then Exit Do End If Debug.Print Adoc Set SetPsDoc = Documents.Open(Adoc) SetPsDoc.Content.Font.Size = 11 SetPsDoc.Close True Adoc = FilesPath & Dir() Loop Application.ScreenUpdating = True End Sub '---------------------- 另外，此问题，可以使用FILEDIALOG解决更好，有关问题我在《守柔WORD编程代码集》有示例。

守柔

第二个问题，

Sub AutoExec() Dim PathDll As String PathDll = ThisDocument.Path & "\epdll.dll" Me.VBProject.References.AddFromFile PathDll MsgBox "丁中化学组 欢迎你" End Sub

从你的描述和代码情况来看，应该没有什么问题，但你没有说明是否有提示。

我感觉可能与你的宏安全性/可靠来源：是否信任对于VB项目的访问选项有关，请勾选对其的信任，因为使用VBProject.References.AddFromFile 需要获得对于访问VB项目的信任。

dzdoc

谢谢谢谢。守老大就是好。近来总是在想一个问题，应该如何以实际行动来感谢守老大呢？