[求助]如何插入文件名与Selection.Text相近的文件?

majian

在Word环境中用VBA编制一个CAPP软件，碰到一些问题，请教各位高手。

问题2:插入doc文件，其文件名是Selection.Text的内容加几个字符，如何实现

Sub 插入验收单()

wpsno = Selection.Text

If wpsno = "C001" Then

Documents.Add Template:= _

        "C:\WINDOWS\Application Data\Microsoft\Templates\验收单.dot", NewTemplate _

        :=False, DocumentType:=0

       

        '新建一个文件，并指定新文件使用的模板为验收单.dot

 

 

 

For i = 1 To a1

         ChangeFileOpenDirectory "E:\capp\"

    Selection.InsertFile FileName:="C001-A.doc", Range:="", ConfirmConversions:= _

        False, Link:=False, Attachment:=False

         '插入A类焊缝验收单，验收单数量通过a1循环来控制

Next i

End Sub

现在的问题是插入的文件名字和Selection.Text(wpsno)的内容是相关的，是其加上”-A”。也就是说wpsno的内容是C001，我需要插入的文件就是C001-A.doc。
   wpsno的内容是C002, 我需要插入的文件就是C002-A.doc。我不知道如何实现将插入的文件的文件名设置成wpsno+" -A.doc"，试了一下，总是提示出错。否则从C001到C999,我只能用很多的if then else if ….语句一个一个输入来实现。请各位高手指点。

[此贴子已经被作者于2007-1-2 8:52:40编辑过]

konggs

片断代码，又没有附件，无法测试。

仅靠感觉：

wpsno = Selection.Text
Dim j As Long
For j = 1 To 999
If wpsno = "C" & Format(j, "000") Then
    Documents.Add Template:= _
        "C:\WINDOWS\Application Data\Microsoft\Templates\验收单.dot", NewTemplate _
        :=False, DocumentType:=0
       
        '新建一个文件，并指定新文件使用的模板为验收单.dot
End If
For i = 1 To a1
         ChangeFileOpenDirectory "E:\capp\"
    Selection.InsertFile FileName:="C" & Format(j, "000") & "-A.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
         '插入A类焊缝验收单，验收单数量通过a1循环来控制
Next i
Next j

感觉似乎majian兄对VBA不是很了解。

majian

版主好，我对VBA确实是初学者，有很多基本概念还没有搞清楚。

刚才的问题我是没有解释清楚，要求插入的文件的文件名就是当前selection.txt的内容加上 “-A”这两个字符。我举C001-C999的例子并不是说是从C001-C999共999个文件进行判断。selection.txt的内容也可以是 C1002,那就要求插入文件名为C1002-A。这里的关键是如何将需要插入的文件名设置成wpsno+ -A.doc ，而不需要管wpsno到底是何内容。

也就是说

 wpsno=selection.text 

Selection.InsertFile FileName:="WPSno+"-A ".doc", Range:="", ConfirmConversions:= _

        False, Link:=False, Attachment:=False  

filename就是wpsno+ -A.doc ，我是不知道如何表示出来，对VBA的语法什么的太不熟悉了。

关于附件，其实我要编的CAPP文件现在是完成了一半，就是工艺编制，这个已经没有问题了。你帮我解决的统计焊缝及现在的问题都是在CAPP软件的第二个过程中我无法自己解决的问题，即根据已经编制好的工艺打印焊缝验收单过程中出现的问题。因为这个过程需要调用很多文件，所以无法放上去，另外这一部分的源码还在编制阶段，就没放上。CAPP文件的第一部分的完成版本要1M左右，这里无法上传，我放到自己的网站上面了，http://www.broadcastenglish.com/majian.dot

        False, Link:=False, Attachment:=False  

filename就是wpsno+ -A.doc ，我是不知道如何表示出来，对VBA的语法什么的太不熟悉了。

关于附件，其实我要编的CAPP文件现在是完成了一半，就是工艺编制，这个已经没有问题了。你帮我解决的统计焊缝及现在的问题都是在CAPP软件的第二个过程中我无法自己解决的问题，即根据已经编制好的工艺打印焊缝验收单过程中出现的问题。因为这个过程需要调用很多文件，所以无法放上去，另外这一部分的源码还在编制阶段，就没放上。CAPP文件的第一部分的完成版本要1M左右，这里无法上传，我放到自己的网站上面了，http://www.broadcastenglish.com/majian.dot

       

[此贴子已经被作者于2007-1-2 9:25:41编辑过]

konggs

请仔细看。

我用到：&来连接。