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

halfxxj

在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 ….语句一个一个输入来实现。请各位高手指点

camelcamel

试着改成 wpsno & " -A.doc"看看，字符串连接应该这样的吧