[讨论]向守版主学习VBA

tudi6709

守版主你太伟大了，帮助我解决照片编辑的问题，谢谢，中国的软件会在守版主的带领下成长。

高手就是高手。还得向版主多学习请教。

还有一个问题请教守版主：有N台电脑比如说10台，10人每天写的文档(报告)备份，每台机器多有一个指定备份文件夹。其中的任意一台电脑备份的文档，同时在其余9台上备份。但不是所有的文档都备份，在存档的时候选择，是否备份？？？？(多台备份)

向版主求一段代码解决上述问题？？？？？

望你在百忙中注意休息。

守柔

首先谢谢楼主的夸奖. 不过这个程序搞得时间长了一些(主要是对楼主的思路没有完全掌握),有点对不住其他网友了.希望论坛能成为你的爱好和留连之地。

在同一台电脑中备份倒也容易无非搞个对话框,在保存或者退出时询问一下是否要保存,简单. 问题是N台电脑,备份文件如何写入到其它机器上呢? 没搞到请楼主提示一下,你自己机器上如何将备份文件存到其它电脑上的? 将其路径与文件名写一下.

还是备份文件是以WROD的备份文件(.BAK),还是直接以WORD的DOC形式?

tudi6709

守版主你好。

我就是不懂，只是在工作中遇到的问题，向你请教可能是我想入非非了。现在我暂时请教一台电脑备份。还是备份文件是以WROD的备份文件(.BAK),还是直接以WORD的DOC形式。这两种形式，有什么区别。

例：我写了一份报告很重要需要备份(选择性的备份)，或者是只要文件名为：比如(2004)04-0456号*******，****为还有一些文字字符。在保存时就会弹出备份的对话框，选择是否备份。文件备份到一个固定的文件夹，但这个报告经常需要改动。备份文件夹一定是最后一次改动的内容。

谢谢版主

七叶一枝梅

用network对象，前题是要有其他几台机子备份文件夹的写权限，但这样做很不安全！

请查看Windows2000server帮助文件中的“文件服务器角色”。注意可将机子设为“文件服务器”的“角色”。

守柔

七兄的阅历着重让人佩服.

我做了一个简单一点的文档,请楼主试一下,此功能相当于选项/保存/保存备份文件.

它将在你当前文档的所在文件夹位置中保存一个名为:Microsoft Word Backup Document的备份文件.如有需要,双击直接打开.

每次打开该文件时,会询问是否需要备份,如果需要,则在每次保存前自动产生备份文件,如果不需要或者关闭前未保存,则不会产生备份文件.

4gKxaCJ4.zip (6.91 KB, 下载次数: 12)

2004-11-1 10:36 上传

点击文件名下载附件
[讨论]向守版主学习VBA

tudi6709

谢谢守版主：

真是活雷锋，有求必应，但是还有点改动就好了。

备份文档能保存到指定文件夹就好了。不一定是当前文件夹。当备份文件到指定文件夹，如 遇到重复文件名时，提醒用户：是不覆盖它，还是换名存盘。

版主还有一事相求，照片编辑的密码能告诉了吗？？？？

守柔

以下代码供楼主参考：（粘贴于活动文档的THISDOCUMETN代码窗口中）

Sub FileSave()

Dim ActDoc As String, MyDialog As FileDialog, YN As Byte, SavFile As String

On Error Resume Next

Application.ScreenUpdating = False

YN = MsgBox("你确认需要创建文档备份件*.doc吗?Yes 创建,No不创建!", vbYesNo + vbInformation + vbDefaultButton1)

Me.Save

If YN = vbNo Then

Exit Sub

Else

ActDoc = Me.FullName

Rep: Set MyDialog = Application.FileDialog(msoFileDialogSaveAs)

With MyDialog

.Title = "保存备份文件"

If .Show = -1 Then

.Execute

SavFile = .SelectedItems(1)

Else

MsgBox "您不能否定自己的选择!", vbOKOnly + vbInformation

GoTo Rep

End If

End With

Documents.Open ActDoc

Documents(SavFile).Close

End If

Application.ScreenUpdating = True

End Sub