word下vba的存盘问题，老大们帮忙看看

alan_yee

各位大侠，我在word的下用vb写了几句程序控制word以内容中的内容为文件名存盘，可一执行就提示“运行时错误‘5487’ 由于文件许可权错误，word无法完成保存操作。……"

下面是我得代码。帮忙看看呀 ，先谢谢

Sub Macro2() Dim cc, cc1, cc2, cc3 As String cc1 = ActiveDocument.Tables.Item(1).Cell(1, 2).Range.Text cc2 = ActiveDocument.Paragraphs(3).Range.Text cc3 = ActiveDocument.Tables.Item(1).Cell(4, 4).Range.Text cc = Trim(Right(cc2, 8) + Mid(cc3, 5, 5)) + ".doc" 'dhtrimall (Right(cc2, 9) + cc3 + cc1)

Debug.Print cc ChangeFileOpenDirectory _ "C:\Documents and Settings\lxkj\My Documents\" ActiveDocument.SaveAs FileName:=cc, FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False

End Sub

守柔

太乱了。

你的代码，cc2取得的也是表格中的文本，CC1、CC3取得的文本中均包含段落标记。

而且CC1又没有用处.

本来很简单的一件事复杂了。

也无需“+” 号， 用“&" 便可以了.

保存的代码中ChangeFileOpenDirectory后的路径可以直接写在SAVEAS filename后面再在上变量cc3即可.

上传你的附件写清楚要求帮你完成吧!

alan_yee

谢谢你的回复，果然是高手[em31]，

我的文档中有一个表格，这段代码的原意是取出表格和文件第一段落中的部分内容生成文件名，以利于今后的查找和统计，变量中cc1 的是一个段落的几个字，cc2，cc3 是表格中的两个单元格的内容。本来文件名应该是cc1+cc2+cc3。但后来发现有问题，因此去掉一个cc2排除一下，可还是不行，后来我也发现段落标记和单元格内容取出后后面都有一个黑点，是不是你讲的段落标记呢？我用left（）和right（）去掉他们后就可以存盘了，有没有简单的办法呢？不过还是要谢谢你！

顺便问问word文件中属性项目里可以自己定义一些内容比如办公室、部门等,这些属性在代码中如何修改和添加呢？

守柔

出现错误5487 在楼主代码中的主要问题是文件名中包含有段落标记。

请参考以下代码：

Sub GetSaveName() Dim c1 As String, c2 As String, c3 As String, ColCount As Integer, RowCount As Integer Dim finame As String With ActiveDocument.Tables(1) '取出单元格中不包括段落标记的文本 c1 = Range(Start:=.Cell(1, 2).Range.Start, End:=.Cell(1, 2).Range.End - 1) '取出cell(4,4)单元格中第五个字符开始,不包含段落标记的字符数 c2 = Range(Start:=.Cell(4, 4).Range.Start + 5, End:=.Cell(4, 4).Range.End - 1) ColCount = .Columns.Count RowCount = .Rows.Count End With '取出表格下面的第三个段落中的前三个字符(表格属性为无环绕): c3 = Mid(ActiveDocument.Paragraphs(ColCount * RowCount + RowCount + 3).Range, 1, 3) finame = c1 & c2 & c3 Debug.Print finame ActiveDocument.SaveAs FileName:="C:\Documents and Settings\???\My Documents\AppliOffice\AppliWord\" & finame & ".doc" End Sub

[此贴子已经被作者于2004-7-4 6:53:55编辑过]

alan_yee

太谢谢了，

由于我不是每天上网，所以今天才能回复，谢谢你。已经按照你的方法搞定它，

[em31]