none
请帮助我弄一个word 2003中插入对象的宏代码 RRS feed

  • 问题

  • 我用的是Windows xpWord 2003,请帮我弄一个插入对象的VBA,由于平时插入对象弄的比较多,所以我需要一个插入对象的宏,录制我会录制的,但无法让录制的宏灵活地让自己用。操作过程如下:插入—对象—点击“由文件创建”—“链接到文件前打钩—显示为图标前打钩—点击“浏览”—再到公文包里的临时文件夹里选择一个文件—点击“更改图标—把文件名称以外的字符都删了,只留下文件名称作为图标的题注(具体操作就省了,不在这里一一打出来了),录制后的代码如下:

    Sub Macro2()

    '' Macro2 Macro

    ' 宏在 <chsdate Day="26" IsLunarDate="False" IsROCDate="False" Month="5" Year="2012" w:st="on">2012-5-26</chsdate> news 录制

    '

        Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", FileName _

            :="D:\My Documents\1 公文包\临时资料\9 凤飞飞.doc", LinkToFile:=True, DisplayAsIcon _

            :=True, IconFileName:= _

            "C:\WINDOWS\Installer\{90110804-6000-11D3-8CFE<chmetcnv HasSpace="False" Negative="True" NumberType="1" SourceValue="150048383" TCSC="0" UnitName="C" w:st="on">-0150048383C</chmetcnv>9}\wordicon.exe" _

            , IconIndex:=1, IconLabel:="9 凤飞飞"

    End Sub

    上面的操作只会插入一个特定的文件,我的目的是要运行宏的时候,就会跳出一个1 公文包\临时资料的文件夹让自己选文件,手工选了之后,就会按上面录制的宏自动插入对象(那个选的文件)。插入的对象可能是pdf文件等,不一定是word文档,能不能帮我把宏改一下,满足我的要求,谢谢!



    • 已编辑 开心的水 2012年6月3日 8:54
    • 已移动 ThankfulHeart 2012年6月3日 9:01 Office编程 (发件人:Visual Basic)
    2012年6月3日 8:48