Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何创建WORD文档并且存储到指定的文件夹


  共有9964人关注过本帖树形打印复制链接

主题：如何创建WORD文档并且存储到指定的文件夹
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/31 21:26:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/31 22:30:00 [显示全部帖子] 

执行下面的代码
app.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/31 22:42:00 [显示全部帖子]

以下是引用cxabc123在2013-8-31 22:37:00的发言：

        app.Selection.Find.ClearFormatting()

        app.Selection.Find.Text = "[照片]"       

        app.Selection.Find.Replacement.ClearFormatting()

        app.Selection.Find.Replacement.Text = r("照片")       

        app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)

这个事例中的能够替换到需要的地方而

app.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")
只能把照片复制到光标的位置，如何让照片替代Word文档中"[照片]"的位置，并能否设置照片的大小


选中某个位置，选中某个对象，然后替换。先自己。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/31 23:03:00 [显示全部帖子]

 哎……就不能自己看看帮助么？如果是模板的话，在开始的地方加入特殊字符xxxx，在结束插入特殊字符xxxx，然后就可以选中这块区域了，然后插入图片不就行了？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/1 21:56:00 [显示全部帖子]

以下是引用cxabc123在2013-8-31 23:39:00的发言：
 App.Selection.Find.ClearFormatting()
            App.Selection.Find.Text = "《图片》"
            App.Selection.Find.Replacement.ClearFormatting()  

     rng.Find.Execute("《图片》") 
    rng.Select()

            App.Selection.InlineShapes.AddPicture(""C:\SamplePicture.jpg"")
这样设置可以把图片插入到指定的位置，但是图片的大小如何设置，请指点

[此贴子已经被作者于2013-8-31 23:39:07编辑过]


这个简单，比如，你可以《图片1》《图片1》里标记图片宽度和高度，然后插入之前对图片进行一下处理（生成一个合适的图片）

Dim bmp As New bitmap(getimage("d:\test.jpg"), 20, 30)
bmp.save("d:\temp.jpg")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/1 22:11:00 [显示全部帖子]

以下是引用cxabc123在2013-9-1 22:01:00的发言：
把图片装进表格，对 表格长高锁定就可以了


图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询