由于文件权限错误，无法完成保存操作 [英] 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屋！