由于文件权限错误,无法完成保存操作 [英] Save operation can not be completed due to a file permission error
问题描述
子宏1()
Dim docNew As Document
Dim k As Integer
Dim ks作为字符串
k = 0
设置docNew = Documents.Add
jk0 =D:\ gstk_doc \''doc文档路径
s = Dir(jk0,vbDirectory)
Do while s<> '开始循环。
如果s<> 并且s<> ..然后
设置doc = Documents.Open(jk0& s,ReadOnly:= True,Visible:= True)''打开doc文件
doc。激活
每个我在ActiveDocument.Paragraphs
如果左(Trim(i.Range.Text),2)=`` 那么
k = k + 1
如果k< 10然后
ks =t000&修剪(Str(k))
否则
如果k< 100然后
ks =t00&修剪(Str(k))
否则
如果k< 1000然后
ks =t0&修剪(Str(k))
否则
ks =t&修剪(Str(k))
结束如果
结束如果
结束如果
i.Range.Copy
docNew.Close SaveChanges:= wdSaveChanges
设置docNew = Documents.Add(可见:=假)
随docNew
.Content.Paragraphs.Last.Range.Select
''Selection.Paste''这是被选中的文档被粘贴覆盖,
.SaveAs FileName: =D:\ gstk_doc \\\\\\\\ ks& Mid(Trim(i.Range.Text),3,15)& .doc
结束
''docNew.Close
否则
i.Range.Copy
随着docNew
.Content.Paragraphs.Last.Range.Select
Selection.Paste''这是被选中的文档被粘贴覆盖,
结束
结束如果
下一页我
doc.Close
结束如果
s = Dir''查找下一个目录。
循环
结束次级
Sub 宏1()
Dim docNew As Document
Dim k As Integer
Dim ks As String
k = 0
Set docNew = Documents.Add
jk0 = "D:\gstk_doc\" ''doc文档路径
s = Dir(jk0, vbDirectory)
Do While s <> "" '' 开始循环。
If s <> "." And s <> ".." Then
Set doc = Documents.Open(jk0 & s, ReadOnly:=True, Visible:=True) ''打开 doc文件
doc.Activate
For Each i In ActiveDocument.Paragraphs
If Left(Trim(i.Range.Text), 2) = "``" Then
k = k + 1
If k < 10 Then
ks = "t000" & Trim(Str(k))
Else
If k < 100 Then
ks = "t00" & Trim(Str(k))
Else
If k < 1000 Then
ks = "t0" & Trim(Str(k))
Else
ks = "t" & Trim(Str(k))
End If
End If
End If
i.Range.Copy
docNew.Close SaveChanges:=wdSaveChanges
Set docNew = Documents.Add(Visible:=False)
With docNew
.Content.Paragraphs.Last.Range.Select
'' Selection.Paste ''这是被选中的文档被粘贴覆盖,
.SaveAs FileName:="D:\gstk_doc\gstk_dt\" & ks & Mid(Trim(i.Range.Text), 3, 15) & ".doc"
End With
'' docNew.Close
Else
i.Range.Copy
With docNew
.Content.Paragraphs.Last.Range.Select
Selection.Paste ''这是被选中的文档被粘贴覆盖,
End With
End If
Next i
doc.Close
End If
s = Dir '' 查找下一个目录。
Loop
End Sub
推荐答案
我不知道为什么有些文件不能分开并保存在单独的文件中。谢谢!
I don''t know why some documents can not be parted and saved in separate files.thank you!
这篇关于由于文件权限错误,无法完成保存操作的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!