01 2023 档案

学科网格式修正 sections find
摘要：Sub 学科网格式修正() '删除第二节内容 'MsgBox ActiveDocument.Sections.Count ActiveDocument.Sections(2).Range.Delete '删除节符号"^b"，用替换功能实现 Set wd = ActiveDocument.Conten 阅读全文
posted @ 2023-01-31 23:28 沭水之虾 阅读(27) 评论(0) 推荐(0) 编辑
vba word另存为PDF
摘要：Sub 另存为PDF() s = ActiveDocument.Name i = InStrRev(s, ".") - 1 ActiveDocument.SaveAs2 filename:=ActiveDocument.Path & "\" & Left(s, i) & ".PDF", FileFo 阅读全文
posted @ 2023-01-27 22:12 沭水之虾 阅读(506) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示