如何用VBA实现文件另存,文件名文档内指定

whitewood

Sub SplitIntoPages()
myPath = "E:\Devide\"
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
curpage = 0
Application.ScreenUpdating = False

Do

prepage = curpage
pagenum = pagenum + 1
Set myRange = myRange.GoToNext(What:=wdGoToPage)
curpage = myRange.Start
endpage = myRange.Previous.End
If curpage = prepage Then Exit Do
If curpage = prepage Then _
endpage = ActiveDocument.Content.End
ActiveDocument.Range(prepage, endpage).Copy
With Documents.Add
.Content.Paste
.SaveAs myPath & pagenum & ".doc"

.Close
End With

Loop
Application.ScreenUpdating = True

End Sub

这是一个按页保存的程序

如果没理解错的话

应该是有行的概念

[em04]

[此贴子已经被作者于2005-12-13 15:11:22编辑过]

konggs

把最后的改为这一句：

astr = Trim(Mid(ActiveDocument.Shapes(1).CanvasItems(1).TextFrame.TextRange.Text, 36, 4)) '取出文件名

konggs

或者这样取出：

astr = Right(Trim(Mid(ActiveDocument.Shapes(1).CanvasItems(1).TextFrame.TextRange.Text, 15, 25)), 4)

whitewood

非常感谢!!!