跟着孙兴华学习Excel VBA 第四季 双剑合壁 Word VBA登场 【全剧终】ExcelVBA WordVBA

孙兴华zz:
10月3日我家中95岁老人去世，10月送老人骨灰回老家，家中亲戚较多，不方便录制，暂停了一个月，即日起恢复录制，请大家耐心等待，笔记会在上传完毕后一并发出。

【回复】一直想知道孙老师是干什么职业的[滑稽][滑稽][滑稽]，如此无私奉献又不靠这挣钱，还花这么多时间精力，简直当代活雷锋[支持][支持][支持][打call][打call][打call]
萤火之森紧:
孙老师格局非常大，非常感谢能够无私奉献，中国能够多些像孙老师这样的人，中国必将强大，实现伟大复兴梦！再次感谢孙老师！致敬！！！

孙兴华zz:
更多免费课程： cv10222110 课件和笔记下载： （1）百度网盘 https://pan.baidu.com/s/1ULVWAsYwlsg6TNRF0yxg8Q 【提取码】1234 （2）115网盘 https://115.com/s/sw38hm53zdy# 【提取码】qf57 （3）永硕网盘 http://721p.ys168.com/ （4）阿里云盘 https://www.aliyundrive.com/s/Lnbnvt5Qq7K （5）腾讯云盘 https://share.weiyun.com/vvoV5Xpe （6）和彩云 https://caiyun.139.com/m/i?175CjfDADFd5D 【提取码】uZRk （7）蓝奏云 https://wwe.lanzoui.com/b01nshvub

【回复】回复 @孙兴华zz :您好，第四季的笔记在哪可以得到呢？网盘中好像没有
【回复】回复 @孙兴华zz :感谢🙏
oba5168:
感谢老师，每一季所带来的惊奇，从人工到逐步实现自动化，不仅缩短时间，更带来工作上的便利，vba、word、power query，混搭使用，确实带来惊艶，单一vba无法满足需求，但三者混搭，不仅缩短逻辑思考的复杂性，更使复杂变简易，相信，老师开课的初终，也是如此，希望透过不同的组合，让不是专业的设计者，也可享受设计的乐趣，我是这样觉得。

【回复】看到你的评论，我决定再看一遍，努力学会
M某黄H:
第45集交个作业 在海外软件都是英文版 用中文会有点乱码 就改成英文变量了： Sub WordtoPDF() With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Select the folder contains doc files to convert:" If .Show Then folderPath = .SelectedItems(1) End If End With If IsEmpty(folderPath) Then Exit Sub If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" End If docFileName = Dir(folderPath & "*.doc*")

【回复】Do While docFileName <> "" Set docFile = Word.Application.Documents.Open(folderPath & docFileName) filePath = docFile.Path docNameStr = Split(docFileName, ".")(0) docFile.ExportAsFixedFormat OutputFileName:=(filePath & "\" & docNameStr & ".pdf"), _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=docFile.Range.Information(wdNumberOfPagesInDocument), _ Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True docFile.Save docFile.Close docFileName = Dir Loop End Sub
【回复】回复 @M某黄H : 你这个运行正常吗？我运行“Set docFile = Word.Application.Documents.Open(folderPath & docFileName)”时 为什么提示“424 要求对象”呢？
孙兴华zz:
第四季笔记下载： （1）蓝奏云下载 https://wws.lanzous.com/b01nshrzc （2）永硕网盘下载 http://720p.ys168.com/ 本人其它课程： PowerQuery 零基础入门到M函数【强烈推荐】：BV1oa4y1j75e 新版PowerBI全集【强烈推荐】: BV1sV411U7U8 Python办公自动化全集【强烈推荐】：BV1gt4y1D7W8 Python网络爬虫全集【强烈推荐】：BV1Wh411d7hq Excel基础与函数篇：BV1Z7411c7U6 MySQL：BV1Dk4y1d71j ExcelVBA第一季：BV1Tg4y1876G ExcelVBA第二季：BV1Yi4y18796 ExcelVBA第三季：BV1CZ4y157QA Python基础篇：BV1HE41157bu 正则表达式：BV1kp4y1C7c8 Numpy：BV1R64y1u7zX Pandas：BV1Dt4y1C7Mx

【回复】第四季的笔记弄个百度云呗
饭肉丸:
每次遇到是选python还是VBA来操作办公软件的时候，就像是你去找人办事。一个人干脆利落，实力强劲，一个人做事还行，但是做事磨磨蹭蹭，但是他是个关系户！！！ 唉，考虑到工作当中，word可能遇到的主要是批量调整格式，还有跟excel 结合的场景，还是选择了关系户[大哭]

【回复】[支持]有时关系比能力更强大。
看视频要名字:
Sub s04e45() Dim doc As Document, ck As Object, f As Variant, fname As String Dim pth As String Word.Application.ScreenUpdating = False Set ck = Word.Application.FileDialog(msoFileDialogFilePicker) ck.Show For Each f In ck.SelectedItems fname = Split(Dir(f), ".")(0) Set doc = Word.Application.Documents.Open(f) pth = doc.Path doc.ExportAsFixedFormat OutputFileName:=(pth & "\" & fname & ".pdf"), _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=doc.Range.Information(wdNumberOfPagesInDocument), _ Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True

【回复】疑惑为何wordvba关闭屏幕刷新不好使[疑惑]
我high啪鬼:
大佬，第四季度的笔记里面有好多页损坏了，麻烦再发一遍[抱拳][抱拳][抱拳]

【回复】谢谢老师，可能是我电脑的office版本问题，换了个电脑就好了[抱拳][抱拳][抱拳]
【回复】这个发了一年多了，应该是您网盘那边下载行的宽带，不是一个运营商，也有可能是网盘的服务器问题，到咱们的vba合集评论区置顶中，还有更多的网盘提供，有天翼云盘，腾讯云盘，永硕网盘，等等
饭肉丸:
也没啥事，就是想要发条评论来夸一下孙老师[打call]

彩色土豆椅:
最后的配乐太伤感了，难过得我马上点开了下一个时长最长的课，相聚能久些[打call]

沐柔宝宝:
谢谢孙老师，正好都是用到的[热词系列_仙人指路]

coolstarssss:
请教孙老师： 我想在一个Word文件的几个特定位置插入表格，表格的行数会根据每次操作时的源数据发生变化。 Word的其余部分是固定格式，不需要变化。 1. 请问怎样定位要操作的表格位置？ 2. 有没有必要把这个要操作的Word文件存成一个模板以方便操作？ 3. 如果孙老师已经在课程里讲过了，能不能烦请告诉我章节，我自己去学习？ 谢谢老师！

【回复】回复 @孙兴华zz :没想到孙老师回复这么快！ 谢谢老师，我去学习一下，有问题再请教。
【回复】S04E22-S04E32 这些集都是讲表格的，但是您的问题。这样操作反而复杂，建议使用 https://www.bilibili.com/video/BV1Z7411c7U6?spm_id_from=333.999.0.0 这个视频P22这一节课
【回复】回复 @孙兴华zz :谢谢孙老师，刚才学习了一下您说的“视频P22”，邮件合并，抱歉并不太适合我的需求。 我想操作的表格跟您本系列中S04E27中的比较类似，有一些正文，中间的特定几个地方插入不同的表格。 我的初步设想是， 1. 先在目标位置放上特定的文字作为标记。比如【待替换表格1】，【待替换表格2】。 2. 然后用代码遍历整个文档，找到对应标记后，生成表格，覆盖该标记。 3. 执行下一个。 孙老师还有没有更加便捷的方法来进行定位呢？谢谢！ 谢谢！
酒尔柳寺:
我的天希望我今年能把四季都看完[哭泣]非常感谢孙老师

fengdobostian:
非常感谢孙老师的分享， 真的很感谢。学到很多东西。