更多频道内容在这里查看
爱奇艺用户将能永久保存播放记录
过滤短视频
暂无长视频（电视剧、纪录片、动漫、综艺、电影）播放记录，
按住视频可进行拖动
&正在加载...
收藏成功，可进入查看所有收藏列表
把视频贴到Blog或BBS
当前浏览器仅支持手动复制代码
视频地址：
flash地址：
html代码：
通用代码：
通用代码可同时支持电脑和移动设备的分享播放
方式1：用手机看
用爱奇艺APP或微信扫一扫，在手机上继续观看
当前播放时间：
方式2：一键下载至手机
限爱奇艺安卓6.0以上版本
使用微信扫一扫，扫描左侧二维码，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接//71.am/udn
下载安装包到本机：&&
设备搜寻中...
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
连接失败！
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
部安卓（Android）设备，请点击进行选择
请您在手机端下载爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/udn
下载安装包到本机：&&
爱奇艺云推送
请您在手机端登录爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
180秒后更新
打开爱奇艺移动APP，点击“我的-扫一扫”，扫描左侧二维码进行登录
没有安装爱奇艺视频最新客户端？
正在检测客户端...
您尚未安装客户端，正在为您下载...安装完成后点击按钮即可下载
， 可在设置中重新打开噢！
30秒后自动关闭
史上最客气的名字“我叫谢谢”
请选择打赏金额：
播放量12.7万
播放量数据：快去看看谁在和你一起看视频吧~
更多数据：
Copyright (C) 2017
All Rights Reserved
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制
安装爱奇艺视频客户端，
马上开始为您下载本片
5秒后自动消失
&li data-elem="tabtitle" data-seq="{{seq}}"&
&a href="javascript:void(0);"&
&span>{{start}}-{{end}}&/span&
&li data-downloadSelect-elem="item" data-downloadSelect-selected="false" data-downloadSelect-tvid="{{tvid}}"&
&a href="javascript:void(0);"&{{pd}}&/a&
选择您要下载的《》剧集：
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制查看: 2376|回复: 16
求助如何根据姓名提取文件夹内相同名字的相片到WORD文档指定位置。谢谢
阅读权限50
在线时间 小时
本帖最后由 qinhuan66 于
20:34 编辑
求助如何根据姓名提取文件夹内相同名字的相片到WORD文档指定位置。谢谢
(140.71 KB, 下载次数: 28)
19:50 上传
点击文件名下载附件
_193242.gif (102.01 KB, 下载次数: 0)
19:37 上传
_192431.gif (24.18 KB, 下载次数: 0)
19:37 上传
_193507.gif (99.63 KB, 下载次数: 0)
19:37 上传
阅读权限50
在线时间 小时
有什么好的方法，麻烦各位老师帮指点一下。不胜感谢。
阅读权限95
在线时间 小时
建议使用邮件合并功能& && &
阅读权限50
在线时间 小时
dajiahaoxinku12 发表于
建议使用邮件合并功能
可是我已以生成全部（差不多1000人）的准考到到一个WORD文档了，能否用宏来解决呢？谢谢
阅读权限50
在线时间 小时
忘记说明一下了，我的准考证信息（姓名、身份证号码、报考岗位、考场地址等都是在EXCEL表格里用VBA写到WORD文档的，能否也一起把相片也到贴相片那里呢。谢谢
阅读权限50
在线时间 小时
本帖最后由 qinhuan66 于
07:53 编辑
_215039.gif (56.3 KB, 下载次数: 2)
22:09 上传
代码好下：
Private Sub CommandButton4_Click()
Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, 判断, i, j
& &Dim Str1, Str2
& &当前路径 = ThisWorkbook.Path & &\准考证发放包&
& &最后行号 = Sheets(&数据库&).Range(&B1002&).End(xlUp).Row
& && &B = InputBox(&请输入数据开始行,不能小于3行。&, &提示&)
&&C = InputBox(&请输入数据结束行，不能大于10000行。&, &提示&)
& &判断 = 0
& &导出文件名 = &准考证（参加本次考试全部人员）.doc&
& &导出路径文件名 = 当前路径 & &\& & 导出文件名
& &FileCopy 当前路径 & &\准考证打印模板.doc&, 导出路径文件名
& &With Word对象
& && &.Documents.Open 导出路径文件名
& && &.Visible = False
& && &.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument '设置位置在正文
& && &.Selection.WholeStory '全选
& && &.Selection.Copy '复制
& && &If 最后行号 & 3 Then
& && && &For i = 3 To C - 1 '复制页
& && && && &.Selection.EndKey Unit:=wdStory '光标置于文件尾
& && && && &.Selection.InsertBreak Type:=wdPageBreak '分页
& && && && &.Selection.PasteAndFormat (wdPasteDefault) '粘贴
& && && &Next i
& && &End If
& && &For i = B To C
& && &&&For j = 1 To 10 '填写文字数据
& && && &&&Str1 = &数据& & Format(j, &000&)
& && && &&&Str2 = Sheets(&数据库&).Cells(i, j)
& && && &&&.Selection.HomeKey Unit:=wdStory '光标置于文件首
& && && &&&If .Selection.Find.Execute(Str1) Then '查找到指定字符串
& && && && &&&.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
& && && && &&&.Selection.Text = Str2 '替换字符串
& && && &&&End If
& && &&&Next j
& && &Next i
& &End With
& &Word对象.Documents.Save
& &Word对象.quit
& &Set Word对象 = Nothing
& &If 判断 = 0 Then
& && &i = MsgBox(&朋友你需要的准考证已生成完毕，现已保存到“& & 导出路径文件名 & &”！如需要帮助请QQ联系&, 0 + 48 + 256 + 0, &提示：&): Unload 登录操作界面
阅读权限50
在线时间 小时
求助各位专家，是否有解决的方法。谢谢
阅读权限30
在线时间 小时
qinhuan66 发表于
求助各位专家，是否有解决的方法。谢谢
提供一个代码仅供参考（只对本文档），文档中有多少人，要在相片里放多少张照片。Sub test()
& & Dim s As Shape, a As Shape, myrange As Range, i%
& & For Each s In ActiveDocument.Shapes
& && &&&If s.Type = msoTextBox Then
& && && && &i = i + 1
& && && && &If i = 1 Then
& && && && && & Set a = ActiveDocument.Shapes.AddPicture _
& && && && && && && && &(FileName:=ActiveDocument.Path & &\相片\姓名& & i & &.jpg&)
& && && && &Else
& && && && && & Set myrange = ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i)
& && && && && & Set a = ActiveDocument.Shapes.AddPicture _
& && && && && && && && &(FileName:=ActiveDocument.Path & &\相片\姓名& & i & &.jpg&, Anchor:=myrange)
& && && && &End If
& && && && &a.Top = s.Top + 50
& && && && &a.Left = s.Left + 2
& && && && &a.Height = s.Height
& && && && &a.Width = s.Width - 5
& && &&&End If
& & Next
End Sub复制代码
感谢帮助。谢谢
阅读权限50
在线时间 小时
wx486 发表于
提供一个代码仅供参考（只对本文档），文档中有多少人，要在相片里放多少张照片。
如果相片的姓名1、姓名2换成真实姓名又如何呢。谢谢
阅读权限30
在线时间 小时
本帖最后由 wx486 于
15:32 编辑
qinhuan66 发表于
如果相片的姓名1、姓名2换成真实姓名又如何呢。谢谢
看在送花的份儿上，{:soso_e113:}又写了个代码，请测试。耐心点儿，代码运行有点慢。
Sub test()
& & Dim s As Shape, a As Shape, myrange As Range, i%, j%, arr()
& & Dim reg As Object, matches, ma, subma
& & For Each s In ActiveDocument.Shapes
& && &&&If s.Type = msoPicture Then s.Delete
& & Next
& & Set reg = CreateObject(&vbscript.regexp&)
& & With reg
& && &&&.Global = True
& && &&&.Pattern = &(姓& && &名：)(\S+)(\r)&
& && &&&Set matches = .Execute(ActiveDocument.Content)
& & End With
& & ReDim arr(1 To matches.Count)
& & For Each ma In matches
& && &&&i = i + 1
& && &&&subma = ma.submatches(1)
& && &&&arr(i) = subma
& & Next
& & For Each s In ActiveDocument.Shapes
& && &&&If s.Type = msoTextBox Then
& && && && &j = j + 1
& && && && &If j = 1 Then
& && && && && & Set a = ActiveDocument.Shapes.AddPicture _
& && && && && && && && &(FileName:=ActiveDocument.Path & &\相片& & arr(j) & &.jpg&)
& && && && &Else
& && && && && & Set myrange = ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, j)
& && && && && & Set a = ActiveDocument.Shapes.AddPicture _
& && && && && && && && &(FileName:=ActiveDocument.Path & &\相片& & arr(j) & &.jpg&, Anchor:=myrange)
& && && && &End If
& && && && &a.Top = s.Top + 50
& && && && &a.Left = s.Left + 2
& && && && &a.Height = s.Height
& && && && &a.Width = s.Width - 5
& && &&&End If
& & Next
& & MsgBox &ok&
End Sub复制代码
优秀作品，值得肯定。谢谢您。谢谢
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求这些动漫名字 谢谢谢_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
求这些动漫名字 谢谢谢
我有更好的答案
1 只有神知道的世界 同人图2 灰色乐园 游戏cg
采纳率：70%
来自团队：
只有神知道的世界。。大概是这名吧，太久没看忘了。。。
为您推荐：
其他类似问题
名字的相关知识
换一换
回答问题，赢新手礼包帮帮忙给设计一个艺术签名！王雪梅！谢谢！
来源：互联网
责任编辑：张小俊字体：
谁能帮帮忙给我设计一个艺术签名啊看看喜欢吗?帮帮忙,帮我设计一个艺术字类似于这样的啊,把字换成"只有一个你"帮忙设计一下啊,我弄了好久都没弄明白,,谢谢了谢谢谢谢啦谁帮帮忙呀~帮我设计一个艺术签名,我叫敖旭谢谢了敖旭艺术签名请查看。帮帮忙给设计一个艺术签名！王雪梅！谢谢！(图3)帮帮忙给设计一个艺术签名！王雪梅！谢谢！(图5)帮帮忙给设计一个艺术签名！王雪梅！谢谢！(图7)帮帮忙给设计一个艺术签名！王雪梅！谢谢！(图9)帮帮忙给设计一个艺术签名！王雪梅！谢谢！(图11)帮帮忙给设计一个艺术签名！王雪梅！谢谢！(图13)RT：我想知道帮帮忙给设计一个艺术签名！王雪梅！谢谢！用户回答1:帮帮忙帮我设计一个艺术签名!赵岩!谢谢!赵岩防抓取，好心游戏网提供内容，请查看原文。王雪梅 艺术签名 ok但 “抱歉，您今天上传的图片数量已超过10张，该图片不能提交” 大家帮帮忙设计一个好看的艺术签名名字:张曦文帮帮忙啦,谢...有专门免费设计软件,网上搜一下,主体词"艺术签名设计软件"防抓取，好心游戏网提供内容，请查看原文。你想个办法吧 大家帮帮忙设计一个好看的艺术签名名字:郭颖我是女生呦简...郭颖签名设计已做好了请查看下图点击图片以后就会放大观看的请另存为再从你的电脑上打开图片它又叫一笔签明星签我推荐你选用中间的艺术签or明星签不防抓取，好心游戏网提供内容，请查看原文。王雪梅 我是killox 哪个好人帮帮忙,帮我设计一个艺术签名,我叫杨艳.最好是有截图...参考如下:防抓取，好心游戏网提供内容，请查看原文。签名设计已做好了
请查看图 点击图片以后 就会放大观看的 请另存为 再从你的电脑上打开图片 不然图像又会缩小的 有需要可追问 哪个好人帮帮忙,帮我设计一个艺术签名,我黄恒.最好是有截图.谢...字如其人!签名在某种程度上反映了你的个性和特质,所以,别指望他人、甚至软件能帮上你!自己的签名就要自己设计、自己会写,这样才是最有意防抓取，好心游戏网提供内容，请查看原文。它又叫 一笔签 明星签我推荐你选用中间的艺术签or明星签不错的
求一个高手帮帮忙,帮我设计一个艺术签名!急用,我的名字:汤勤...亲我帮你设计好啦:-D手机不能贴图的哦~!请留下你的邮箱哦~!一定要追问留下哦~我才能第一时间看的到~~我会第一时间回复~祝你O(∩_防抓取，好心游戏网提供内容，请查看原文。希望你喜欢潇洒大气签艺术签/常用签/连笔签反书签花体签/明星签/一笔签公文签/商务签 这个密码的字元是什么意思，求大神帮帮忙给我一个...答：就是字符。。。。。防抓取，好心游戏网提供内容，请查看原文。邮件已发送 365********@qq.com
签名见附件蘑菇街密码怎么设啊!帮帮忙设计一个答：蘑菇街密码怎么设啊!帮帮忙设计一个？，可以到：追折网（今天的零花钱,赚了吗?）防抓取，好心游戏网提供内容，请查看原文。相关解决方法如下：哪位大侠帮帮忙给设个几个个性签名啊？名字：刘铁柱答：牛刀小试防抓取，好心游戏网提供内容，请查看原文。
这个是怎么设置的？在哪里可以去掉？？帮帮忙，...答：这个是别人设置的权限，让你不能留言，要取消权限也是要对方设置才行防抓取，好心游戏网提供内容，请查看原文。王雪梅
"抱歉,您今天上传的图片数量已超过10张,该图片不能提交"
你想个办法吧
王雪梅 我是killox
签名设计已做好了 请查看图 点击图片以后 就会放大观...编程题、帮帮忙问：1兔子繁殖问题。设有一对新生的兔子，从第三个月开始他们每个月都生一...答：这不是斐波那契数列问题吗。f(1)=1(第1个月有一对兔子）f(2)=1(第2个月还是一对兔子）f(3)=防抓取，好心游戏网提供内容，请查看原文。
我的电脑虚拟内存不小心叫我给设置错了哪位好心的...答：不用贴出CPU的，这个跟CPU没什么关系，你应该贴出你的实际内存；一般把虚拟内存设置为你自己实际内存的1.5倍为最佳。防抓取，好心游戏网提供内容，请查看原文。参考如下 :
一不小心手贱把路由器清空出厂值了，父母回来要搞...问：一不小心手贱把路由器清空出厂值了，父母回来要搞我的，求大神帮帮忙！...答：登陆192.168.1.1，账号密码一般都是admin，进入路由，在防抓取，好心游戏网提供内容，请查看原文。正常情况下,2元我们是不给予设计的,不是说我们看不起这2元,只是我们要是真的收费这么低廉那简直是在亵渎签名设计这门艺术。
此次推出2元设计旨在宣传"第一签名设计...昨天QQ好友被删了许多，今天想重新设置分组，却苦...问：昨天QQ好友被删了许多，今天想重新设置分组，却苦于想不到好听的分组名...答：Only_________。┏┓-正在输入（这里可以放亲戚）-正防抓取，好心游戏网提供内容，请查看原文。
怎样给儿童定位手表添加号码，在哪设置求大仙帮帮忙问：怎样给儿童定位手表添加号码，在哪设置求大仙帮帮忙答：一般来说，儿童手表都要对应的手机安装APP才可以。安装APP后，手表用的手机卡，还要开通流量，然防抓取，好心游戏网提供内容，请查看原文。李娜 我设计好了啊 ,我怎么给你啊?请点击我的回答左下方【继续追问】里面补充邮箱地址,我发给你。
注:一定要在左下方【继续追问】里补充邮箱地址,这样我才能及时收到提...求各位大神帮帮忙，surfacert2给还原出厂设置，...问：码，忘记以前怎么设置的。随便输了，现在里面都是繁体字，应用商店也无...答：SurfaceRT平板电脑如果绑定了微软账户，可是不想每次都防抓取，好心游戏网提供内容，请查看原文。
防抓取，好心游戏网提供内容，请查看原文。王超
."龙飞艺术签名软" 是完全免费的
你可以去下载,试一试,不行的话,请追问首先是你自己把自己玩累了，我就是把它当游戏玩，本来就是娱乐，当自己过于执着一段代码，而不是娱乐，交友，怎么都会累。我就是仅仅当做娱乐，每天两小时，刷刷世界，打打战场等等。其次魔兽是退步好多，但是我敢说防抓取，好心游戏网提供内容，请查看原文。
一如果是在游戏里打架的话那肯定MC赢咯，MC就是不用MOD不用指令不开创造，仗着人多也能把迷你狗们打到喊爹吧，适合打架的MOD我看非无尽贪婪莫属，无尽套穿满后不会再受到任何伤害，剑的伤害是∞，也就是说防抓取，好心游戏网提供内容，请查看原文。望采纳,谢谢谢邀。首先说一下王者荣耀的评分系统，根据你的击杀数，被杀数，助攻数还有参团率等一系列因素给你的评分。首先这个分数在有些情况下是很不合理的。举个栗子，李元芳打野很强，抢大龙小龙很快，偷到主宰对团队的贡献防抓取，好心游戏网提供内容，请查看原文。
当然是选贵的....如果是只送一个的话……荣耀水晶与王者水晶兑换的最好。芈月：大秦宣太后（用了红桃皇后代替一下....）小乔：天鹅之梦钟无艳：海滩丽影孙尚香：杀手不太冷（没找到图.....）韩信：教廷防抓取，好心游戏网提供内容，请查看原文。冯小华连笔签名以图片的模式上传(手机登陆是看不到的),满意请记得采纳,团队需要您的支持,谢谢合作。感谢邀请，本人先说明一下，我的世界创始于2009年，迷你创建于啥时候？2015年！说minecraft抄袭垃圾迷你的，咋TM想的你！要你这么说Notch从2009年穿越到2015年抄袭迷你，再跑回去，防抓取，好心游戏网提供内容，请查看原文。
谢谢小秘书邀请(????)王者荣耀玩猴子用什么名字？个人认为玩猴子不一定非要去用与猴子相关的名字，既然题主就是有这样的需要，我绞尽脑汁想到了几个我个人认为还不错的名字。吃我一棒放屁都暴击齐天如果感觉只防抓取，好心游戏网提供内容，请查看原文。凌乱中…
一星期前处个王者荣耀cp，加了微信一看，还挺好看。两个人发展感情很快，每天早安晚安，后来一起玩了游戏，我惊奇的发现，这个姑娘是真能bb啊，要是说玩的不好说几句队友，很正常，她会把全部说话开开，一个劲嘲防抓取，好心游戏网提供内容，请查看原文。陈超??、 我有个弟弟也叫这个名字、、、、我遇到最尴尬的一件事就是差点失去了我的第一次。当时正在包夜，一个女的从我身边走过，看着她火辣的身材加上黑丝皮裙就没忍住一直盯着看，想看她做哪台机，谁知她突然转头和我对视五秒钟，然后问我看什么。我鬼使神防抓取，好心游戏网提供内容，请查看原文。
我玩过的手游挺多，有保卫萝卜，植物大战僵尸，剑侠情缘手游等等，真正让我着迷的只有皇室战争，这是2016年现象级的全球最佳手游，2017年第二季度依然是最具吸引力手游之一，位列全球手游收入榜第二，3分钟防抓取，好心游戏网提供内容，请查看原文。+
梁荣强 de签名
签名设计已做好了
请查看下图
点击图片以后就会放大观看的 请另存为 再从你的电脑上打开图片
它又叫 一笔签 明星签
我推荐你选用中间的艺术签or明星...首先王者荣耀是属于一个推塔游戏再到团战游戏，而不是各打各的。实事证明车队打排位上分比起单排上分容易2.5倍，车队的胜率也比单排多19%左右。今天聊一下很多玩家都会遇到的情况。如果团灭敌方之后，是集合推防抓取，好心游戏网提供内容，请查看原文。
小伙苦战195分钟获胜，后台却没有战绩，找客服理论无果只好以跳楼相逼。很多玩家放弃LOL转战王者荣耀，就是因为手机游戏时间短，一把只要十几二十分钟。而今天要说了这位玩家足足玩了195分钟王者荣耀，手机防抓取，好心游戏网提供内容，请查看原文。答：王雪梅
今天是全中国和全高考生的大日子，那就是高考。对于高考想必很多人都是紧张的，尤其是家长和考生，三年来的努力都在7、8、9三日里体现了，在此小编也祝各位能够取得一个好成绩，上自己理想的大学。对于考试紧张压防抓取，好心游戏网提供内容，请查看原文。问：因为工作有太多方面涉及签名，我想能把自己的名字写的漂亮一点儿，谢谢...我最后悔的是李白。。。哈哈手残个人觉得这些英雄容易买了后悔王者荣耀的英雄很多，但是新手就那么几个，虽然各种活动看上去能领的福利不少，但是能换成英雄的并不多，不是土豪的话，基本上一个月也就能搞1,2个英防抓取，好心游戏网提供内容，请查看原文。答：达到伊娃wot属于比较冷门的类型，但好制作比较精良，虽然根据游戏性的需求做了点妥协，但还是有一定的真实度的，但“黄金五九”之类的做法还是有点反胃。毕竟wot的题材和操作门槛没办法让绝大部分人适应（虽然已经很简防抓取，好心游戏网提供内容，请查看原文。
一般都会删除存档，但是千万不要这样做，发现自己辛辛苦苦创造的世界没有，真的会受到很大的打击。之前我的存档就被朋友不小心给删了一次，当时真的眼泪都在眼眶里打转了，那段时间真的心情非常的糟糕……“我的世界防抓取，好心游戏网提供内容，请查看原文。答：
《迷你世界》抄袭《Minecraft》是事实，有买《Minecraft》的版权的话，为什么《迷你世界》官方至今没把版权证明拿出来？《迷你世界》的皮肤人设极渣，还收费！艹！那么渣的皮肤也收费！《迷你世界防抓取，好心游戏网提供内容，请查看原文。答： 笔顺没有变化，正常写 建议打印出来，描摹多练习就可以写很好了 请采纳~ 那我们就来谈谈王者荣耀1v1模式厉害的英雄????(?￣???￣??)1、不知火舞火舞一套技能几乎是可以直接秒人的，特别是二技CD短，伤害高，还会减速，而且六段位连跳，可以直接让人吐血，但到了后期，能防抓取，好心游戏网提供内容，请查看原文。帮帮忙给设计一个艺术签名!王雪梅!谢谢!王雪梅艺术签名ok但"抱歉,您今天上传的图片数量已超过10张,该图片不能提交"你想个办法吧王雪梅我是killox签名设计已做好了请查看图点击图片以后就会放大观...帮帮忙帮我设计一个艺术签名!赵岩!谢谢!赵岩大家帮帮忙设计一个好看的艺术签名名字:张曦文帮帮忙啦,谢...有专门免费设计软件,网上搜一下,主体词"艺术签名设计软件"为您准备的好内容:
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 好心游戏网 版权所有
京ICP备号-1 京公网安备02号