保存的文件名

xlpfd

word文件名存盘时每次都是固定一个文件名，如何设置每次保存的文件名为文档内容的第一行？

konggs

Sub FileSave()

a = ActiveDocument.Paragraphs(1).Range.Text

ActiveDocument.SaveAs a & ".doc"

End Sub

xlpfd

不能用

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-23 5:30:58 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00034^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim FN As String, myRange As Range On Error GoTo ErrHandle '进入错误处理行 With ActiveDocument '定义一个RANGE对象为文档第一个段落文本,但不含段落标记(如果包含段落标记会出错) Set myRange = .Range(.Paragraphs(1).Range.Start, .Paragraphs(1).Range.End - 1) If myRange.End > 10 Then '如果大于10个字符,取10个字符 FN = VBA.Left(myRange, 10) ElseIf myRange.End = 0 Then '如果第一个段落为空白段落,则进入错误处理 GoTo ErrHandle Else FN = myRange.Text '返回文本内容 End If .SaveAs FN '另存为 End With Exit Sub ErrHandle: '错误处理(主要针对空白段落,第一个段落中包含非法的文件名,如分页符,分节符等) MsgBox "无效的文件名错误!", vbExclamation End Sub '----------------------

其实楼主搜索一下，关于这个，一大箩。

nisg

excel怎么做

henterwu

.SaveAs [a1]

henterwu

以下是引用守柔在2005-9-23 5:29:37的发言： '* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-23 5:30:58 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00034^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim FN As String, myRange As Range On Error GoTo ErrHandle '进入错误处理行 With ActiveDocument '定义一个RANGE对象为文档第一个段落文本,但不含段落标记(如果包含段落标记会出错) Set myRange = .Range(.Paragraphs(1).Range.Start, .Paragraphs(1).Range.End - 1) If myRange.End > 10 Then '如果大于10个字符,取10个字符 FN = VBA.Left(myRange, 10) ElseIf myRange.End = 0 Then '如果第一个段落为空白段落,则进入错误处理 GoTo ErrHandle Else FN = myRange.Text '返回文本内容 End If .SaveAs FN '另存为 End With Exit Sub ErrHandle: '错误处理(主要针对空白段落,第一个段落中包含非法的文件名,如分页符,分节符等) MsgBox "无效的文件名错误!", vbExclamation End Sub

如果只想提取前十个字符是否可以简化成：

.SaveAs mid(trim(ActiveDocument.Paragraphs(1).Range.Text),1,10)

xp+office2003测试通过。