Word2003VBA如何移动2007格式文档到另一盘符？

413191246se

各位朋友，请不吝赐教！谢谢各位！
问题：如何用 Word 2003 VBA 宏，把 D:\My Documents\abc.docx 文档移动到 E:\FileCopy 文件夹呢？要求不改变文档格式及内容（仍为2007格式）。
*
***再附加一个小问题：怎么用 VBA 判断 4 是偶数，5 是奇数 呢？

duquancai

Function shishu(ByVal unb&) As Boolean
'    True为偶数，False为奇数
    shishu = IIf(unb Mod 2 = 0, True, False)
End Function

duquancai

Sub shishi()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.MoveFile "D:\My Documents\abc.docx", "E:\FileCopy\"
End Sub

413191246se

谢谢 杜先生！ 3 楼代码移动文档 OK！——函数完全不懂，辛苦 杜先生 了！
*
再问一个小问题：
下面是示例文档：
3422.8月份，落实纪检监察工作责任制
34322.83元，落实纪检监察工作责任制
问题：怎么用类似
ActiveDocument.Content.Find.Execute findtext:="(^13[0-9]@).([0-9]@)", MatchWildcards:=True, ReplaceWith:="\1、\2", Replace:=wdReplaceAll
这样的语句，把上面第一句示例文本的小数点，替换为顿号？但第二句示例小数点不变。我折腾半天，它们都变，搞不定，特向 杜先生 求助。

duquancai

413191246se 发表于 2017-5-17 16:10
谢谢 杜先生！ 3 楼代码移动文档 OK！——函数完全不懂，辛苦 杜先生 了！
*
再问一个小问题：

Sub shishi()
    ActiveDocument.Content.Find.Execute "([0-9]@).([0-9]@月份)", , , 1, , , , , , "\1、\2", 2
End Sub

413191246se

杜先生，“月份”不是确指，也可能是“天”，但是“元”是确指，因为“元”前面一般是小数金额，所以，楼上代码我认为未达到目标，有空时，请再给看看。（不行我用《循环遍历段落法》也行。）

duquancai

413191246se 发表于 2017-5-17 20:20
杜先生，“月份”不是确指，也可能是“天”，但是“元”是确指，因为“元”前面一般是小数金额，所以，楼上 ...

Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[0-9]@.[0-9]{1,}", , , 1)
            With .Parent
                l = Len(.Text): .Collapse 0
                If .MoveWhile("元") = 0 Then
                    .MoveEndUntil ".", -l: .Start = .Start - 1
                    .Text = "、": .Collapse 0
                End If
            End With
        Loop
    End With
End Sub