VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 56|回复: 1

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

[复制链接]

1

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-1-6 20:40:01 | 显示全部楼层 |阅读模式
在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 ….语句一个一个输入来实现。请各位高手指点
回复

使用道具 举报

0

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-3-24 11:15:01 | 显示全部楼层
试着改成 wpsno & " -A.doc"看看,字符串连接应该这样的吧
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2020|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表