VB 打开的word文件重命名并另存为不成功的问题

cunfu2010

今天在用VB时，遇到这样一个问题：打开一个已存在的word文件后，想另存为一个重新命名的文件，但用下面这句ActiveDocument.SaveAs "D:\" & i & "1.doc" 时（变量i的值是我提前设定的一部分），代码能运行，但另存为不成功，也没有错误提示，但如果直接用指定的名称，如用这句ActiveDocument.SaveAs "D:\新文件1.doc"时，就能另存成功，不知道什么原因，查了好的资料也没查到，现向各位大侠请教。

活在理想的世界

很诡异啊。我在OFFICE VBA环境下运行没问题啊。呵呵

cunfu2010

活在理想的世界 发表于 2018-3-1 20:37
很诡异啊。我在OFFICE VBA环境下运行没问题啊。呵呵

我又调试了，原因好像找到了，但不知道如何解决？
下面代码放在VB6中，运行。
Private Sub Command1_Click()
    Dim i As String, j As String, m As String, n As String
    Dim Myword As Word.Application
    Dim MyDocument As Word.Document
    Dim MyRange As Word.Range
    On Error Resume Next
    Set Myword = CreateObject("Word.Application")
    Myword.Visible = True
    Set MyDocument = Myword.Documents.Open("C:\Documents and Settings\Administrator\桌面\123.docx")
    Myword.ActiveWindow.Activate
    Myword.Selection.HomeKey Unit:=wdLine
    Myword.Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend
    Myword.Selection.Copy
    i = Clipboard.GetText()
    i = Replace(Replace(Replace(i, vbCr, ""), vbLf, ""), " ", "")
    Clipboard.Clear
    MyDocument.SaveAs "C:\Documents and Settings\Administrator\桌面\" & i & ".doc"
    MyDocument.Close
    Clipboard.Clear
    Myword.Quit
    Set MyDocument = Nothing
    Set Myword = Nothing
End Sub

上述代码中：Count:=3时，另存为不成功；Count:=1时，另存为成功不知道什么原因？

活在理想的世界

cunfu2010 发表于 2018-3-1 21:41
我又调试了，原因好像找到了，但不知道如何解决？
下面代码放在VB6中，运行。
Private Sub Command1_Cl ...

光看代码没用的。你得把出错的地方独立出来运行一下看看。

光标移到开头，向下移动3列并扩展，然后复制。

真的选中了吗？你要测试一下。

cunfu2010

活在理想的世界 发表于 2018-3-1 22:39
光看代码没用的。你得把出错的地方独立出来运行一下看看。

光标移到开头，向下移动3列并扩展，然后复 ...

都调试过了，复制成功，也赋值给变量“i”了，逐步运行能看的到，但是就是另存为的时候不成功。

cunfu2010

活在理想的世界 发表于 2018-3-1 22:39
光看代码没用的。你得把出错的地方独立出来运行一下看看。

光标移到开头，向下移动3列并扩展，然后复 ...

如果是新建一个文件，把内容复制过来，再另存为也能成功，就是用VB打开文件再另存为（ActiveDocument.SaveAs "D:\" & i & "1.doc"）不行，但直接命名（ActiveDocument.SaveAs "D:\新文件1.doc"）却能成功，不知道什么原因，开始以为是电脑的问题，现在换了几台电脑还是不行

413191246se

楼主，定位于行首，再向下连选 3 个段落呢？即：
selection.homekey unit:=wdline
selection.movedown unit:=wdParagraph,count:=3,extend:=wdextend

活在理想的世界

1. Sub d()
   
2. Dim Doc As Document
   
3. For i = 1 To 10
   
4. Selection.HomeKey 6: Selection.MoveDown , 3, 1: Selection.Copy
   
5.     Set Doc = Documents.Add
   
6.     Selection.Paste
   
7.     Doc.SaveAs2 ThisDocument.Path & "" & i & "1.doc"
   
8.     Doc.Close
   
9. Next
   
10. End Sub

复制代码

cunfu2010 发表于 2018-3-2 09:51
如果是新建一个文件，把内容复制过来，再另存为也能成功，就是用VB打开文件再另存为（ActiveDocument.Sav ...

我帮你试了下，我的没问题。

cunfu2010

活在理想的世界 发表于 2018-3-2 10:12
cunfu2010 发表于 2018-3-2 09:51
如果是新建一个文件，把内容复制过来，再另存为也能成功，就是用VB打 ...

谢谢，在word中或在excel中能够成功，但在VB6中好像有问题

cunfu2010

413191246se 发表于 2018-3-2 09:55
楼主，定位于行首，再向下连选 3 个段落呢？即：
selection.homekey unit:=wdline
selection.movedown un ...

谢谢，就是这样的