IT博客-cyberfan's blog-文章分类-oa

IT博客-cyberfan's blog-文章分类-oahttp://www.cnitblog.com/cyberfan/category/563.html正其谊不谋其利，明其道不计其功zh-cnFri, 30 Sep 2011 13:21:43 GMTFri, 30 Sep 2011 13:21:43 GMT60VBA中使用用户和组的方法http://www.cnitblog.com/cyberfan/articles/1505.htmlcyberfancyberfanFri, 12 Aug 2005 04:53:00 GMThttp://www.cnitblog.com/cyberfan/articles/1505.htmlhttp://www.cnitblog.com/cyberfan/comments/1505.htmlhttp://www.cnitblog.com/cyberfan/articles/1505.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1505.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1505.html在使用以下各节介绍的过程之前，可能需要设置对 Microsoft ADO Ext 2.5 for DDL and Security 库的引用（如果尚未设置）：
在 Visual Basic 编辑器中，指向"工具"菜单中的"引用"。将显示"引用"对话框。

选中 Microsoft ADO Ext 2.5 for DDL and Security 复选框。

一．添加和删除用户

以下过程将创建一个新的用户帐户，然后将其追加到用于当前数据库的工作组信息文件中的默认 Users 组。
注意：要在 Access 中使用下面的示例，您需要作为 Admins 组的成员登录并打开一个数据库。在下面的过程中，您要确保工作组信息文件不包含在 strUser 中指定了其名称的用户。例如，您可以先调用 DeleteUser 子例程来确保这一点。
请看以下代码：
Private Function AddUser(ByVal strUser As String, _
ByVal strPID As String, _
Optional ByVal strPwd As String) As Boolean
Dim catDB As ADOX.Catalog

On Error GoTo AddUser_Err

' 实例化 Catalog 对象。
Set catDB = New ADOX.Catalog
With catDB
' 使用到当前数据库的连接打开
' Catalog 对象。
.ActiveConnection = CurrentProject.Connection
' 创建新的用户帐户。
.Users.Append strUser, strPwd, strPID
' 向默认 Users 组追加新的用户帐户。
.Groups("Users").Users.Append strUser
End With

' 关闭 Catalog 对象。
Set catDB = Nothing

AddUser = True

AddUser_Err:
Msgbox Err.Number & ":" & Err.Description
AddUser = False
End Function
该过程首先为 Catalog 对象声明一个变量，然后实例化该对象。
注意：Catalog 对象是 Access 数据库文件中所有对象的容器。
然后，该过程打开到当前数据库的连接，并使用来自调用过程的参数，将新用户追加到 Catalog 对象的 Users 集合中。然后新用户被追加到默认的 Users 组。Users 集合包含了在工作组信息文件中定义的数据库的所有用户。
要删除现有用户，可以使用以下过程：
Private Function DeleteUser(ByVal strUser As String) As Boolean
Dim catDB As ADOX.Catalog

On Error GoTo DeleteUser
' 实例化 Catalog 对象。
Set catDB = New ADOX.Catalog
With catDB
' 在当前数据库中打开 Catalog 对象。
.ActiveConnection = CurrentProject.Connection
' 删除 strUser。
.Users.Delete strUser
End With

' 关闭 Catalog 对象。
Set catDB = Nothing

DeleteUser = True

DeleteUser_Err:
Msgbox Err.Number & ":" & Err.Description
DeleteUser = False
End Function
此过程与前面的过程类似，只是使用了 Catalog 对象的 Delete 方法删除了在 strUser String 参数中指定的用户。

二．添加和删除组

添加组的过程与添加用户的过程类似。
Private Function AddGroup(ByVal strGroup As String, _
ByVal strPID As String) As Boolean
Dim catDB As ADOX.Catalog

On Error GoTo AddGroup_Err

Set catDB = New ADOX.Catalog
With catDB
' 在当前数据库中打开 Catalog 对象。
.ActiveConnection = CurrentProject.Connection
' 创建新的组。
&160; .Groups.Append strGroup, strPID
End With

' 关闭 Catalog 对象。
Set catDB = Nothing

AddGroup = True

AddGroup_Err:
Msgbox Err.Number & ":" & Err.Description
AddGroup = False
End Function
此过程首先实例化 Catalog 对象，然后打开一个到当前数据库的连接。接下来，通过使用来自调用过程的参数，将新组追加到 Catalog 对象的 Groups 集合。
要删除现有组，可以使用以下过程：
Private Function DeleteGroup(ByVal strGroup As String) As Boolean
Dim catDB As ADOX.Catalog

On Error GoTo DeleteGroup_Err

Set catDB = New ADOX.Catalog
With catDB
' 在当前数据库中打开 Catalog 对象。
.ActiveConnection = CurrentProject.Connection
' 删除 strGroup。
.Groups.Delete strGroup
End With

' 关闭 Catalog 对象。
Set catDB = Nothing

DeleteGroup = True

DeleteGroup_Err:
Msgbox Err.Number & ":" & Err.Description
DeleteGroup = False
End Function
此过程与前面的过程类似，只是使用了 Catalog 对象的 Delete 方法删除了在 strGroup String 参数中指定的组。

下面我们来看看如何通过编程设置对数据库对象的权限。

三．通过编程设置权限

要对数据库中的各种对象设置权限，可以使用 Group 或 User 对象的 SetPermissions 方法。在下面的过程中，我们首先撤消组的所有权限，然后再赋予组特定的权限。这样可以确保该组只具有我们指定的权限：
Private Function SetGroupPermissions(ByVal strGroup As String, _
ByVal strTable As String, ByVal strObjectType As String, _
ByVal strAction As String, _
ByVal strRevokeEnum As String) As Boolean
Dim catDB As ADOX.Catalog

On Error GoTo SetGroupPermissions_Err

Set catDB = New ADOX.Catalog
With catDB
' 在当前数据库中打开 Catalog 对象。
.ActiveConnection = CurrentProject.Connection
' 撤消组的所有权限。
.Groups(strGroup).SetPermissions tblTable, _
strObjectType, strAction, strRevokeEnum

' 赋予组特定的权限。
.Groups(strGroup).SetPermissions tblTable, _
strObjectType, strAction, _
adRightRead Or adRightInsert Or adRightUpdate
End With

' 关闭 Catalog 对象。
Set catDB = Nothing

SetGroupPermissions = True

SetGroupPermissions_Err:
Msgbox Err.Number & ":" & Err.Description
SetGroupPermissions = False
End Function
在当前数据库中打开一个 Catalog 对象后，我们使用了 Groups 集合的 SetPermissions 方法，撤消了该组对 Employees 表的所有权限。第一个参数是表的名称，第二个参数显示了对象的类型，这里是表。第三个参数指定了在设置权限时要执行的操作的类型，第四个参数是一个权限常数，指定了该组没有任何权限。我们已经撤消了该组对 Employees 表的所有权限，现在可以赋予其所希望的权限。
下一个语句的前三个参数与前一个语句中的相同。第四个参数是通过使用 Or 运算符，组合不同的权限常数所创建的一个值。这里，我们赋予了读取、插入和更新该表的权限。
要对指定类型（例如上述示例中的表）的所有新对象设置权限，请将用于赋予权限的语句中的第一个参数更改为 NULL 关键字。例如：
...
catDB.Groups(strGroup).SetPermissions NULL, adPermObjTable
...

cyberfan 2005-08-12 12:53 发表评论

]]>如何在模块中创建、修改、查找、替换代码http://www.cnitblog.com/cyberfan/articles/1503.htmlcyberfancyberfanFri, 12 Aug 2005 04:52:00 GMThttp://www.cnitblog.com/cyberfan/articles/1503.htmlhttp://www.cnitblog.com/cyberfan/comments/1503.htmlhttp://www.cnitblog.com/cyberfan/articles/1503.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1503.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1503.html
正文：

第一步：在一个新mdb文件中，手动建立一模块，命名为：Create Code，复制下面的代码到模块中：
Sub TestOpenDatabase()
Dim DB As DAO.Database
Set DB = CurrentDb
MsgBox "The Database " & DB.Name & " opened successfully!"
DB.Close
End Sub

第二步：手动建立另一模块，命名为：CodeMaker，复制下面的代码到模块中：
注意：必须引用DAO3.6
Option Explicit
Dim MyModule As Module

Sub MakeCode()

Dim strIndent As String, strText As String

' Create 4 spaces for code indent.
strIndent = " "

' Build a string variable with the code to be written
' to the new module.
strText = "Sub TestOpenDatabase()" & vbCrLf
strText = strText & strIndent & "Dim DB As DAO.Database" & vbCrLf
strText = strText & strIndent & "Set DB = CurrentDB" & vbCrLf
strText = strText & strIndent & "MsgBox ""The Database "" & " & _
"DB.Name & "
strText = strText & strIndent & strIndent & """ opened " & _
"successfully!""" & vbCrLf
strText = strText & strIndent & "DB.Close" & vbCrLf
strText = strText & "End Sub"

' Create a new Module.
Application.RunCommand acCmdNewObjectModule

' Set MyModule to be the new Module Object.
Set MyModule = Application.Modules.Item(Application.Modules.Count - 1)
' Insert the code string into the new module.
MyModule.InsertText strText

' Save, close, and rename the new Module as "Created Code."

DoCmd.Save acModule, MyModule

DoCmd.Close acModule, MyModule, acSaveYes

DoCmd.Rename "Created Code", acModule, MyModule

End Sub

第三步：保存模块代码

第四步：运行MakeCode子程序，将创建一个新模块Created Code,其代码与第一步的Create Code模块是一样的.

以上实现的是创建一个已有的模块。

同理，用下面的三个子程序实现搜索、替换、修改模块代码：
Sub SearchCode()
'搜索模块中的代码
Dim StartLine As Long, StartColumn As Long
Dim EndLine As Long, EndColumn As Long

' Open the Module you want to modify.
DoCmd.OpenModule "Created Code"

' Set the Created Code Modules as the Object.
Set MyModule = Application.Modules("Created Code")

' Search for string "DB.Close".
If MyModule.Find("DB.Close", StartLine, StartColumn, _
EndLine, EndColumn) Then

' If string is found, insert new line of code using the same
' column indent.
MyModule.InsertLines StartLine + 1, _
String(StartColumn - 1, " ") & "Set DB = Nothing"
Else
MsgBox "Text not found."
End If

' Save and close the module.
DoCmd.Save acModule, MyModule
DoCmd.Close acModule, MyModule

End Sub

Sub ReplaceCode()
'替换模块中的代码
Dim StartLine As Long, StartColumn As Long
Dim EndLine As Long, EndColumn As Long

' Open the Module you want to modify.
DoCmd.OpenModule "Created Code"

' Set the Created Code Modules as the Object.
Set MyModule = Application.Modules("Created Code")

' Search for string "Set DB =".
If MyModule.Find("Set DB =", StartLine, StartColumn, EndLine, _
EndColumn) Then

' If string is found, insert new line of code using the same
' column indent.
MyModule.ReplaceLine StartLine, String(StartColumn - 1, " ") & _
"Set DB = DBEngine.OpenDatabase(""C:\Program Files\" & _
"Microsoft Office\"" & _" _
& vbCrLf & " ""Office\Samples\Inventry.mdb"")"

Else
MsgBox "Text not found."
End If

' Save and close the module.
DoCmd.Save acModule, MyModule
DoCmd.Close acModule, MyModule, acSaveYes

End Sub

Sub ModifyCode()
'修改模块中的代码
Dim StartLine As Long, StartColumn As Long
Dim EndLine As Long, EndColumn As Long
Dim strLine As String, strNewLine As String
Dim intChr As Integer, intBefore As Integer, intAfter As Integer
Dim strLeft As String, strRight As String
Dim strSearchText As String, strNewText

' The string you are searching for is:
strSearchText = "Inventry.mdb"

' The replacement string is:
strNewText = "Northwind.mdb"

' Open the Module you want to modify.
DoCmd.OpenModule "Created Code"

' Set the Created Code Modules as the Object.
Set MyModule = Application.Modules("Created Code")

' Search for string.
If MyModule.Find(strSearchText, StartLine, StartColumn, EndLine, _
EndColumn) Then

' Store text of line containing string.
strLine = MyModule.Lines(StartLine, Abs(EndLine - StartLine) + 1)

' Determine length of line.
intChr = Len(strLine)

' Determine number of characters preceding search text.
intBefore = StartColumn - 1

' Determine number of characters following search text.
intAfter = intChr - CInt(EndColumn - 1)

' Store characters to left of search text.
strLeft = Left$(strLine, intBefore)

' Store characters to right of search text.
strRight = Right$(strLine, intAfter)

' Construct string with replacement text.
strNewLine = strLeft & strNewText & strRight

' Replace the original line.
MyModule.ReplaceLine StartLine, strNewLine

Else
MsgBox "Text not found."
End If

' Save and close the module.
DoCmd.Save acModule, MyModule
DoCmd.Close acModule, MyModule, acSaveYes

End Sub

cyberfan 2005-08-12 12:52 发表评论

]]>在ACCESS2000中用ADO给组合框赋数据源http://www.cnitblog.com/cyberfan/articles/1504.htmlcyberfancyberfanFri, 12 Aug 2005 04:52:00 GMThttp://www.cnitblog.com/cyberfan/articles/1504.htmlhttp://www.cnitblog.com/cyberfan/comments/1504.htmlhttp://www.cnitblog.com/cyberfan/articles/1504.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1504.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1504.html在ACCESS2003中，通过ADO打开一个远程表,用下面的代码给窗体的组合框赋上数据源：
'前面代码省略
........
strSQL = "select * from tblTest"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient '本地游标
rst.Open strSQL, strConn, adOpenDynamic, adLockOptimistic
set me.组合框名称.Recordset = rst

在Access2000版中一试，发现不支持set me.组合框名称.Recordset = rst

二、解决方法：
1、直接定义值列表
这种方式如果行数过多，则不可行，最大长度为备注字段大小。

2、不使用组合框，而使用其他窗体进行录入，然后将选择结果回传到文本框
这种方式将耗费大的编程时间，不合算

3、将查询结果生成为mdb中的临时表。
这种方式相对于第2种方式更好一些，保存为临时表后，将组合框的数据源用临时表来赋上，当操作员关闭窗体时，将临时表删除。

4、用GetString方法解决，这是上述解决方法中的最佳解决方法(由zhuyiwen提供)，分隔符用分号";"。

cyberfan 2005-08-12 12:52 发表评论

]]>保持“原版格式” 创建便携式Word文档http://www.cnitblog.com/cyberfan/articles/1501.htmlcyberfancyberfanFri, 12 Aug 2005 04:51:00 GMThttp://www.cnitblog.com/cyberfan/articles/1501.htmlhttp://www.cnitblog.com/cyberfan/comments/1501.htmlhttp://www.cnitblog.com/cyberfan/articles/1501.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1501.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1501.html
保留版式和分页
　　在默认情况下，Word 文档的版式取决于字体。就是说，只要字体保持不变，任何人都可以按原始的版式查看并打印该文档。Word97以前的版本中创建的文档的版式由所使用的打印机内置的字体决定。如果希望文档版式与打印机无关，可以使Word按字体决定文档版式，方法是：

　　1.在"工具"菜单上，单击"选项"，然后单击"兼容性"选项卡；

　　2.在"选项"框中，清除"用打印机标准设计文档版式"复选框。

　　该选项只影响在Word中处理文档时的显示方式，它不会对文档进行永久性修改。如果要恢复文档的原始版式，选中该选项。

　　嵌入TrueType字体

　　在创建或编辑文档时，如果使用了TrueType字体(TrueType字体是一种可以任意缩放大小，而不出现锯齿、毛边等失真现象。在Windows中90%的字体都是TrueType字体)，就可将其保存或"嵌入"文档。这样，其他人就能以其原始字体查看、修改和打印文档，即使他们的计算机上没有安装TrueType字体。

　　有一点需要注意：嵌入字体的许可权由TrueType字体开发商决定。例如，有些字体不可以嵌入，而有些嵌入字体只能够查看和打印但不能修改。在文档中嵌入TrueType字体的方法是：

　　1.在"工具"菜单上单击"选项"，然后单击"保存"选项卡；
　　2.选中"嵌入TrueType字体"复选框，单击"确定"按钮，保存文档。

　　不过，嵌入TrueType字体会增大文档。同时选中"只嵌入所用字符"复选框，则只嵌入文档中使用的字体样式，这样文档的大小相对会小一些。
　　注意：选中"只嵌入所用字符"复选框后，编辑时就不能使用没有嵌入的字体字符和样式。

　　指定替换字体

　　在某些情况下，文档可能包含除TrueType字体外的其他字体。在查看文档时，如果计算机上未安装这些字体，可用与丢失的字体最接近的字体替换丢失字体：

　　1.打开文档；
　　2.在"工具"菜单上，单击"选项"，然后セ?兼容性"选项卡；
　　3.单击"字体替换"按钮，然后在"文档所缺字体"框中，单击要替换的字体，在"替换字体"框中单击用于替换缺失字体的字体。

　　Word不替换缺失字体，只是用系统字体暂时替换缺失字体来改变在屏幕上显示和打印时的外观。点击"永久替换"按键就可以将缺失字体永久替换掉。
　　经过以上操作，"便携式"Word文档创建完毕，无论你在何处浏览或打印该文档，都能够保持其原始外观。

cyberfan 2005-08-12 12:51 发表评论

]]>Word 长文件死机的处理http://www.cnitblog.com/cyberfan/articles/1502.htmlcyberfancyberfanFri, 12 Aug 2005 04:51:00 GMThttp://www.cnitblog.com/cyberfan/articles/1502.htmlhttp://www.cnitblog.com/cyberfan/comments/1502.htmlhttp://www.cnitblog.com/cyberfan/articles/1502.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1502.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1502.html遇到这种情况，先用组合键"Ctrl＋ Alt ＋ Del"关闭Word 或重新启动机器，然后用Word 重新打开这份文件，记住，此时不要进行浏览等操作。单击"文件"菜单栏，选择"另存为"命令，在弹出对话框中"保存类型"组合框下拉列表中选"纯文本"，再单击"保存"按钮。另存后，文件原有的格式信息会丢失，但大部分文本内容能够得以保留。
然后，关闭当前文件，打开刚才保存的"纯文本"文件，利用"格式"工具栏中的"样式"组合框和格式刷等工具，重建文件格式。在处理中，会遇到一些乱码，这就是造成死机的"祸根"，它一般都是表格。这种由表格造成的乱码，一般情况下，用常规技术是很难恢复的，只有删掉之后，重新调整表格方面的格式。

cyberfan 2005-08-12 12:51 发表评论

]]>PowerPoint中插入Flash动画的方法http://www.cnitblog.com/cyberfan/articles/1499.htmlcyberfancyberfanFri, 12 Aug 2005 04:50:00 GMThttp://www.cnitblog.com/cyberfan/articles/1499.htmlhttp://www.cnitblog.com/cyberfan/comments/1499.htmlhttp://www.cnitblog.com/cyberfan/articles/1499.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1499.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1499.html
以前看过看在PowerPoint中插入Flash动画的文章，基本方法是选择菜单"工具→控件工具箱→Shockwave Flash Object"，然后在地址栏位置输入Fla
sh动画文件的路径。这种插入Flash动画的方法有一个缺点是在播放幻灯片时，Flash动画会自动播放，不能自主地控制。
　　近日，发现在PowerPoint中插入Flash动画的另一种方法，可以避免出现自动播放动画的情况。
　　1、先打开一幻灯片，选择"插入→对象"，在出现的对话框中选择单选框"由文件创建"，这时对话框要求填入文件的位置，单击[浏览]，选中需要插入的Flash动画文件，最后单击[确定]返回幻灯片。
　　2、这时，在幻灯片上就出现了一个Flash文件的图标，我们可以更改图标的大小或者移动它的位置，然后在这图标上右击鼠标，选中"动作设置"。在"单击鼠标时的动作"中选中"超级链接到"，然后在下拉列表中选择"其他文件"。
　　3、这时在出现的超链接对话框中输入与之相对应的动画文件，单击[确定]，设置完成。

　　现在我们来播放幻灯片，Flash动画没有自动播放，我们需用鼠标点击这个Flash文件图标，这时会出现一个对话框，我们单击[确定]，此时才会播放动画，不需要时直接单击[关闭]按钮即可。

　　小提示：后来我发现这种方法也有它的缺陷，那就是不能设置它的播放区域，总是一播放就是原文件的大小，有时就把其他的内容给遮住了，所以您要用的时候要看好是不是符合自己的需要。

cyberfan 2005-08-12 12:50 发表评论

]]>七招挽回受损WORD文档http://www.cnitblog.com/cyberfan/articles/1500.htmlcyberfancyberfanFri, 12 Aug 2005 04:50:00 GMThttp://www.cnitblog.com/cyberfan/articles/1500.htmlhttp://www.cnitblog.com/cyberfan/comments/1500.htmlhttp://www.cnitblog.com/cyberfan/articles/1500.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1500.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1500.html
一、自动恢复尚未保存的修改
Word提供了"自动恢复"功能，可以帮助用户找回程序遇到问题并停止响应时尚未保存的信息。实际上，在你不得不在没有保存工作成果就重新启动电脑和Word后，系统将打开"文档恢复"任务窗格，其中列出了程序停止响应时已恢复的所有文件。文件名后面是状态指示器，显示在恢复过程中已对文件所做的操作，其中："原始文件"指基于最后一次手动保存的源文件；"已恢复"是指在恢复过程中已恢复的文件，或在"自动恢复"保存过程中已保存的文件。
"文档恢复"任务窗格可让你打开文件、查看所做的修复以及对已恢复的版本进行比较。然后，你可以保存最佳版本并删除其他版本，或保存所有打开的文件以便以后预览。不过，"文档恢复"任务窗格是Word XP提供的新功能，在以前的版本中，Word将直接把自动恢复的文件打开并显示出来。

二、手动打开恢复文件
在经过严重故障或类似问题后重新启动Word时，程序自动任何恢复的文件。如果由于某种原因恢复文件没有打开，你可以自行将其打开，操作步骤如下：
1．在"常用"工具栏上，单击"打开"按钮；
2．在文件夹列表中，定位并双击存储恢复文件的文件夹。对于Windows 2000/XP操作系统，该位置通常为"C:\documents and settings\yourname\Application Data\Microsoft\Word"文件夹；对于Windows 98／Me操作系统，该位置通常为"C:\ Windows\Application Data\Microsoft\Word"文件夹；
3．在"文件类型"框中单击"所有文件"。每个恢复文件名称显示为"‘自动恢复'保存file name"及程序文件扩展名；
4．单击要恢复的文件名，然后单击"打开"按钮。

三、"打开并修复"文件
Word XP提供了一个恢复受损文档的新方法，操作步骤如下：
1．在"文件"菜单上，单击"打开"命令；
2．在"查找范围"列表中，单击包含要打开的文件的驱动器、文件夹或Internet位置；
3．在文件夹列表中，定位并打开包含文件的文件夹；
4．选择要恢复的文件；
5．单击"打开"按钮旁边的箭头，然后单击"打开并修复"。

四、从任意文件中恢复文本
Word提供了一个"从任意文件中恢复文本"的文件转换器，可以用来从任意文件中提取文字。要使用该文件转换器恢复损坏文件中的文本，操作步骤如下：
1．在"工具"菜单上，单击"选项"命令，再单击"常规"选项卡；
2．确认选中"打开时确认转换"复选框，单击"确定"按钮；
3．在"文件"菜单上，单击"打开"命令；
4．在"文件类型"框中，单击"从任意文件中恢复文本"。如果在"文件类型"框中没有看到"从任意文件中恢复文本"，则需要安装相应的文件转换器。安装方法不做赘述；
5．像通常一样打开文档。
此时，系统会弹出"转换文件"对话框，请选择的需要的文件格式。当然，如果要从受损Word文档中恢复文字，请选择"纯文本"，单击"确定"按扭。不过，选择了"纯文本"，方式打开文档后，仅能恢复文档中的普通文字，原文档中的图片对象将丢失，页眉页脚等非文本信息变为普通文字。

五、禁止自动宏的运行
如果某个Word文档中包含有错误的自动宏代码，那么当你试图打开该文档时，其中的自动宏由于错误不能正常运行，从而引发不能打开文档的错误。此时，请在"Windows资源管理器"中，按住Shift键，然后再双击该Word文档，则可阻止自动宏的运行，从而能够打开文档。

六、创建新的Normal模板
Word在Normal.dot模板文件中存储默认信息，如果该模板文件被损坏，可能会引发无法打开Word文档的错误。此时，请创建新的Normal模板，操作步骤如下：
1．关闭Word；
2．使用Windows"开始"菜单中的"查找"或"搜索"命令找到所有的Normal.dot文件，并重新命名或删除它们。比如，在Windows XP中，请单击"开始"，再单击"搜索"，然后单击"所有文件和文件夹"，在"全部或部分文件名"框中，键入"normal.dot"，在"在这里寻找"列表框中，单击安装Word的硬盘盘符，单击"搜索"按钮。查找完毕，右键单击结果列表中的"Normal"或"Normal.dot"，然后单击"重命名"命令，为该文件键入新的名称，例如"Normal.old"，然后按Enter键；
3．启动Word
此时，由于Word无法识别重命名后的Normal模板文件，它会自动创建一个新的Normal模板。

七、显示混乱的解决
在你使用上述方法打开受损Word文档后，如果文档的内容显示混乱，那么你可以将最后一个段落标记之外的所有内容复制到一个新文档中，或许能够解决乱码问题，操作步骤如下：
1．选定最后一个段落标记之外的所有内容，方法是：按下Crtl+Home组合键，然后按下Crtl+Shift+End组合键，最后按下Shift+← 组合键；
2．在"常用"工具栏上，依次单击"复制"、"新建"和"粘贴"按钮。
实际上，在Word文档中，系统用最后一个段落标记关联各种格式设置信息，特别是节与样式的格式设置。如果将最后一个段落标记之外的所有内容复制到新文档，就有可能将损坏的内容留在原始文档中，而在新文档中，重新应用所有丢失的节或样式的格式设置。

cyberfan 2005-08-12 12:50 发表评论

]]>制作Word内置对话框宏http://www.cnitblog.com/cyberfan/articles/1498.htmlcyberfancyberfanFri, 12 Aug 2005 04:49:00 GMThttp://www.cnitblog.com/cyberfan/articles/1498.htmlhttp://www.cnitblog.com/cyberfan/comments/1498.htmlhttp://www.cnitblog.com/cyberfan/articles/1498.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1498.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1498.html
　　我们可以创建并执行宏，以替代人工进行的一系列费时而单调的重复性 Word 操作，自动完成任务。我们可以用宏录制器和“Visual Basic 编辑器”两种方法来创建一个宏。
　　对于一般的宏，只要用宏录制器录制即可。而有VB编程基础的用户还可以用“Visual Basic 编辑器”对已录制好的宏进行修改甚至直接用“Visual Basic 编辑器”创建新宏。

　　本来宏是用来加速日常操作的，单独的操作步骤没有制作宏的必要。但是现在各种各样的计算机考试会有一些特殊的要求，要求学生创建有一定难度的宏。笔者在辅导学生参加劳动部全国计算机及信息高新技术考试中的《办公软件应用》模块（操作员级）时就碰到了这样的问题，题目要求新建一个名为A8-A.DOC的文件，并在其中用对话框来创建一个名为A8B1的宏，使用“Alt+Shift+Z”作为快捷键，显示选定内容的字数。学生在做这道题时，按以往录制宏的方法，新建文件→录入任意文本→选择文本→录制新宏→选择“工具”的“字数统计”命令→关闭对话框→停止录制宏，一路做下来。本以为已经轻松搞定，可是试运行竟然没有反应，调出“Visual Basic 编辑器”查看宏代码，宏的内容是空的。Word的录制宏操作并不能捕获类似只显示一下对话框这样的操作。

　　有两种方法可以实现本题的要求，下面分别加以说明。

　　方法一：

　　1.新建一个文件，在考生文件夹中保存为“A8-A.DOC”，随意录入一些文本并选定；

　　2.单击“工具”菜单→“宏” →“录制新宏”，弹出“录制宏”对话框，如图1
。

　　3.在“宏名”框中输入“A8B1”，从“将宏保存在”的下拉列表框中选择当前文档“A8-A.DOC”，单击“将宏指定到”栏中的“键盘”按钮，弹出“自定义键盘”对话框；

　　4.从“将修改保存在”的下拉列表中选择当前文档“A8-A.DOC”，在“请按新快捷键”输入框单击，按“Alt+Shift+Z”键，再单击“指定”按钮，单击“关闭”按钮关闭“自定义键盘”对话框，开始录制宏；

　　5.单击菜单“工具” →“宏” →“宏”，弹出“宏”对话框；

　　6.从“宏的位置”下拉列表中选择“Word命令”，然后在上方的列表框中选择“ToolsWordCount”，再单击“运行”按钮，弹出“字数统计”对话框，单击“取消”按钮取消该对话框；

　　7.单击工具栏中的“停止录制”按钮，结束宏的录制；

　　8.测试宏，无误后保存文件。

方法二：
　　1.按方法一的第1~4步操作；

　　2.按方法一的第7步停止录制宏（这两步是为宏指定快捷键）；

　　3.单击“工具”菜单→“宏” →“宏”，在弹出的宏对话框左边宏列表中选择A8B1，再单击“编辑”按钮，打开“Visual Basic 编辑器”，如图2。

　　4.在“endsub”行之前输入“DialogswdDialogToolsWordCount　.Show”，关闭“Visual Basic 编辑器”窗口；

　　5.测试宏，并保存文件。

　　总结：从效果来看，这两种方法都达到了题目要求。但是我们查看方法一的VBA代码，其内容是Application.Run MacroName=″ToolsWordCount″，含义是运行名为“ToolsWordCount”的VB宏，其实该宏是一个Word命令，我们在录制此宏时已经看到，还可以运行其它任何Word 命令；方法二的“DialogswdDialogToolsWordCount　.Show”一句是使用Dialogs对象集的Show方法来显示“字数统计”这个Word内置对话框。我们还可用此法显示其它任一Word内置对话框。笔者认为两种方法应该都是正确的。

cyberfan 2005-08-12 12:49 发表评论

]]>VBA在报表开发中的应用http://www.cnitblog.com/cyberfan/articles/1495.htmlcyberfancyberfanFri, 12 Aug 2005 04:47:00 GMThttp://www.cnitblog.com/cyberfan/articles/1495.htmlhttp://www.cnitblog.com/cyberfan/comments/1495.htmlhttp://www.cnitblog.com/cyberfan/articles/1495.html#Feedback0http://www.cnitblog.com/cyberfan/comments/commentRss/1495.htmlhttp://www.cnitblog.com/cyberfan/services/trackbacks/1495.html
MRPII/ERP（Enterprise Resource Planning）企业资源计划系统，是指建立在信息技术基础上，以系统化的管理思想，为企业决策层及员工提供决策运行手段的管理平台。它在企业资源最优配置的前提下，整合企业所有的资源和所有的经营活动，包括供应与销售、生产计划、物料管理、财务会计等主要模块，以达到高效率经营的目标。

VBA (Visual Basic For Application),一种通用的自动化语言。VBA必须寄生于已有的应用程序(如Excel)。

我公司推行的MRPII/ERP是我公司的重点工程，该项目从立项到实施受到公司领导的高度重视，该项目的实施将增强我公司的企业管理水平和提高企业的竞争力。我们引进的是荷兰BAAN公司的软件，由于它立足于制造业，特别适合我公司，但它的报表系统是以欧洲的商业需求作为模型，它与中国传统的报表系统具有很大的区别。因此，在实施过程中报表客户化工作显得尤其迫切。由于BAAN提供的报表开发工具在开发某些特殊要求的报表时显得有些欠缺，因此，借助第三方开发工具Excel/VBA灵活方便的特点进行报表开发已是势在必行。它的开发将为公司MRPII/ERP系统的成功实施起着巨大的推动作用。

二、方案选择

在充分满足用户对报表的要求前提下，本着安全可靠、界面友好、操作方便等特点对报表进行开发，制定各种解决方案，确定出报表开发最佳的解决方法。

我们采用了三种方案进行比较：

1、借用BAAN的工具子系统进行报表开发。

2、利用BAAN提供的类和应用对象连接数据查询，通过调用第三方开发工具进行处理。我们采用VBA进行开发。

3、通过ODBC或数据库的专用接口联结数据库，再采用第三方开发工具开发。

下面重点讨论一下各种方案的优缺点：

方案一
方案二
方案三

名称
借用BAAN的工具子系统进行报表开发
借用EXCEL/VBA进行二次开发
ODBC进行二次开发

优点
1、方便、灵活、运行速度快、集成度高、界面友好。

2、安全可靠。它的安全直接由BAAN的授权决定。
1、报表格式多样。多栏打印宽度无局限。

2、数据取出后利用EXCEL的方法和功能进行处理。
1、报表格式多样。多栏打印宽度无局限。

2、数据取出后通过第三方工具编码灵活多样。

缺点
报表的宽度有限。对有特殊要求的多栏打印有局限。
1、还要在BAAN中作相关处理，且灵活性差。每个用户都必须重新编码和配置。

2、安全授权要在BAAN中限制，处理速度相对较慢。
1、用户配置繁琐。

2、安全授权要在后台数据库中限制。且ODBC为安全有隐患。

难点
需要熟悉3GL、4GL语言编程和BAAN报表开发工具
熟悉SQL查询、BAAN相关函数的功能和VBA编程。
需要熟悉SQL查询和相应的第三方开发工具的编程方法。

通过以上几个方案的比较，本着安全、快速、高效的原则。我们决定选择第一、二种方案作为本项目的突破点并进行BAAN的报表系统的开发与客户化工作。

三、实现步骤

本文着重介绍一下采用第二种方案解决问题的实现方法。我们采用目前主流编程工具和BAAN系统提供的DLL库函数将有关数据外接于外部开发。利用 Excel的报表功能强大，内置大量函数，用户对EXCEL界面熟悉等特点，使用VBA编程工具内嵌于EXCEL使其自动化，进行方便灵活地编制各种格式的报表。

1、首先，利用BAAN提供的工具查询，使用SQL语句将所需数据从后台数据库查询出来.

2、然后在EXCEL中打开新工作簿，确认其他工作簿已经关闭。选择“工具“à “宏”à “Visual basic 编辑器”(注：“宏”，指一系列EXCEL能够执行的VBA语句。)

3、在VBA编辑器的左面，可以看到“工程资源管理器”窗口。在工程资源管理器窗口的“Thisworkbook"上单击鼠标右键，选择“插入”--- >“模块”，这样就将一个模块添加到应用程序中了。(如果你没有看见“工程资源管理器”窗口，可以按Ctrl+R),在模块中写入一系列实现报表要求的VBA语句。

首先激活Baan系统的应用程序，然后连接Baan 系统中的工具查询，将数据读出，下面是做一张财务现金流量表的一个例子中的典型语句：

Set BaanObject = CreateObject("Baan4.Application") ‘激活Baan系统的应用程序 ThisWorkbook.Sheets("现金流量表（已）").Activate

Worksheets("现金流量表（已）").Range("a:s").Clear

BaanObject.Timeout = 30

On Error GoTo BaanAutomationError

QueryName = "wlxjllb" ' Baan 系统中的工具查询的名称 (物流现金流量表)

TempFunction = "easysql_to_olesql(" & Chr(34) & QueryName & Chr(34) & ", " & Chr(34) & String(800, " ") & Chr(34) & ")"

BaanObject.ParseExecFunction "ottdllsql_query", TempFunction

TempString = BaanObject.FunctionCall

Query = Mid(TempString, 30, Len(TempString) - 29) ' get query result from functioncall string

TempFunction = "olesql_parse(" & Chr(34) & Query & Chr(34) & ")"

BaanObject.ParseExecFunction "ottdllsql_query", TempFunction

QueryId = BaanObject.ReturnValue

If QueryId = 0 Then

MsgBox "Error: " & Query

GoTo BaanAutomationError

End If

Tempsequent = "tfgld106.leac" '科目

sern1 = String(12, " ")

TempFunction2 = "olesql_getstring(" & Chr(34) & Tempsequent & Chr(34) & "," & Chr(34) & sern1 & Chr(34) & ")"

BaanObject.ParseExecFunction "ottdllsql_query", TempFunction2

TempString = BaanObject.FunctionCall

sern1 = Mid(TempString, 35, 12)

Tempsequent = "tfgld106.dbcr" '借贷

sern2 = String(2, " ")

TempFunction3 = "olesql_getstring(" & Chr(34) & Tempsequent & Chr(34) & "," & Chr(34) & sern2 & Chr(34) & ")"

BaanObject.ParseExecFunction "ottdllsql_query", TempFunction3

TempString = BaanObject.FunctionCall

sern2 = Mid(TempString, 35, 1)

将取出的数据使用worksheets()函数，根据报表要求写入相应的单元格中：

例：For i = 1 To 4 '给各单元格赋值

Worksheets("现金流量表（已）").Cells(Row + i, Column) = flowininter(i) - flowoutinter(i)

Worksheets("现金流量表（已）").Cells(Row + i, Column + 1) = flowinouter(i) - flowoutouter(i)

Worksheets("现金流量表（已）").Cells(Row + i, Column + 2) = flowininter(i) - flowoutinter(i) + flowinouter(i) - flowoutouter(i)

Next I

下图是利用第二种方案将Baan 中数据外接后，再利用Eexcel/Vba 开发成的物流现金流量表报表格式：

四、结束语

利用Excel的报表功能强大，内置大量函数，用户对Excel界面熟悉等特点，使用VBA编程工具内嵌于Excel使其自动化，开发出适合我公司需求的计划、生产、财务各种报表30余种，不仅缩短了开发时间、节约了经费，而且保证了系统的安全可靠。

cyberfan 2005-08-12 12:47 发表评论

]]>