PPTX上做出来的内容，想弄在word上面，求大神帮忙，谢谢。

yfywl282005

     本人在精准扶贫工作，工作任务量太大了，按照政府要求要做“明白卡”（就是用于展示每一户建档立卡贫困户的综合类信息的一张文档）一直都是用PPTX来制作的，10个人一起弄，共150份，平均每人15份就完成了，这样虽然用传统的复制粘贴就能完成，可现在问题来了，要让我一个人去完成原来10个完成的任何，一个人做150份，头大呀，本以为用“word”功能中的“邮件合并”功能，把数据全部弄在“excel”里面，批量调用就可以了，但后面一试才知道"幻灯片"里面却不支持这个“邮件合并”功能；这可怎么办？
    1、我试着把“PPTX”里面编辑的表格弄到“word”里面弄，通过插入“文本框”什么的，但最终还是弄不出来在“PPTX”里面编辑出来的效果；所以也弄不了“邮件合并”
    2、我想找到一种能在“PPTX”里面，就可以直接批量调用“EXCEL”中数据的方法，也没找到
所以求助高人，有什么办法可以解决，谢谢。

PPTX需要弄成这样

（此版式是用PPTX制作的，WORD无法做到，纸张大小是42*29.7）

daibao88

PPT也支持vba的，可以使用代码

cwpccna

1. Sub test1()
   
2. 
   
3. iweizhi = 14
   
4. 
   
5. 
   
6. '生成合同文件
   
7. Dim yangbenpath As String
   
8. yangbenpath = Application.ActiveWorkbook.Path & Sheets("明细").Cells(iweizhi, 23).Value '获取修改文件《测试.doc》的位置
   
9. 
   
10. Dim deskpath As String
    
11. Dim weizhi As Variant
    
12. 
    
13. Dim WdApp, Wd
    
14. Application.ScreenUpdating = False
    
15. Set WdApp = CreateObject("word.application")
    
16. Set Wd = WdApp.Documents.Open(yangbenpath)  '打开文件《测试.doc》
    
17. WdApp.Visible = True
    
18.   WdApp.Selection.Find.ClearFormatting
    
19. 
    
20.        'weizhi = Split(Sheets("明细").Cells(iweizhi, 24).Value, ",") '以,号分隔的数据赋值
    
21.        Dim i As Long
    
22.        'For i = 0 To UBound(weizhi)
    
23.        For i = 23 To 32 Step 1
    
24. 
    
25. 
    
26.         '替换cells(23,23)到cells（32，24）里面对应的内容
    
27.         WdApp.Selection.Find.Replacement.ClearFormatting
    
28.         With WdApp.Selection.Find
    
29.         .ClearFormatting
    
30.         .Text = Sheets("明细").Cells(i, 23).Value
    
31.         .Replacement.ClearFormatting
    
32.         .Replacement.Text = Sheets("明细").Cells(i, 24).Value
    
33.         .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    
34.         End With
    
35. 
    
36. 
    
37.        Next i
    
38. 
    
39. deskpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & ""    '获取桌面位置路径
    
40. Wd.SaveAs deskpath & Sheets("明细").Cells(3, 24).Value & ".doc" '另存到桌面，文件名称为合同名
    
41. 
    
42. WdApp.Visible = True
    
43. Set Wd = Nothing
    
44. Set WdApp = Nothing
    
45. 
    
46. Application.ScreenUpdating = True
    
47. 
    
48. 
    
49. 
    
50. 
    
51. End Sub

复制代码

卡卡西大人

为啥要你一个人做以前那么多人的工作？领导是想要你下岗吗？