none
For.....Next语句请教!!! RRS feed

  • 问题

  •  

    Private Sub CommandButton9_Click()


    ActiveDocument.Pages(1).Activate                 '图层代码

    ActiveDocument.Unit = cdrMillimeter              ‘单位代码
     
        Dim 1c As Layer
        Set 1c = ActiveDocument.Pages(1).CreateLayer(TextBox2.Text & "_D")   ’新建一图层


        Dim impflt As ImportFilter
        Dim impopt As StructImportOptions
        Set impopt = New StructImportOptions
        impopt.Mode = cdrImportFull

        
        Dim strFile As String   ’置入语句

        Dim FN As Integer

               For  FN = 0 To  18 Step + 1

        strFile = TextBox1.Text & "\" & Dir(TextBox1.Text & "\" & TextBox2.Text & "_" & "FN".psd")     ‘搜索图片并置入 
        Set impflt = 1c.ImportEx(strFile, cdrPSD, impopt)
        impflt.Finish        ‘置入完毕
               
        Dim s1 As Shape                         ’移动位置
        Set s1 = ActiveShape
        s1.SetPosition 91, 403

        Next FN


    End Sub

     

    说明:

    Textbox1.Text是路径

    Textbox2.Text是文件名

     

    问题

    这是要置入一组文件,文件名规则是:111111_0.psd,111111_1.psd  .......111111_18.psd

    需要置入一个文件并移动一下位置,然后置入另一个文件,再移动到另一个位置,每个文件的移动位置都是不一样的。

    用FOR .....NETX语句要怎么写??或者有别的解决方法??

     

    2008年11月22日 6:59

答案