在VBA里面如何取得当前word文档的当前目录路径

yeaky 2005-05-30 08:52:54

像asp里面的server.mapmath 一样的东西在vba里面有没有啊？

...全文

1430 1 打赏收藏举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

大雄 2005-05-30

打赏
举报

回复 1

ActiveDocument.Path

Word使用VBA实现拆分文档页数实现步骤：新建一个记事本，添加以下代码 Sub 利用VBA实现Word文档的拆分() On Error Resume Next Dim doc1 As Document, newdoc As Document, a, page1%, page2%, i1%, i2%, i3%, dk As FileDialog, b$ Dim doc2 As Document Dim zb, yb, sb, xb a = InputBox("请输入分割页数（默认每隔1页分割一次）",

读取WORD表格中的内容并写入到EXCEL中

最近需要批量操作一些word文件，大约四十几个文件把。一个一个手动操作真的太low了，所以研究了一下word的宏，VBA编写代码，批量操作。 Sub 批量操作WORD() Dim path As String Dim FileName As String Dim worddoc As Document Dim MyDir As String MyDir = "...

任务场景：文件夹内已经汇总了几十上百篇Doc/Docx文档，可能是各部门的总结，可能是工会入会申请，或者其它半格式化（毕竟不是表格）内容，如果没有VBA帮忙，你就要挨个打开，之后copy-n-paste里面的特定内容到你的Excel表里；你在网上白嫖了一段代码，但是发现能用是能用，但是摘出来的信息有几个突出问题：1）到处夹空格、夹不可见符号；2）因为Word排版的关系，抓到Excel里面有很多空单元格；3）抓出来的同类信息不在同一列（举例来说，同是一份俱乐部申请，A的“自我介绍“部分写1段，B的“自我

d.tables(1).Cell(14, 2) = myWS.Cells(i, 67).Text + myWS.Cells(i, 68).Text + myWS.Cells(i, 69).Text '选举结果。Set d = wd.documents.Open(p & "生成的文件/" & myWS.Cells(i, 1).Text & myWS.Cells(i, 2).Text & ".doc") '打开新文档。

Office开发/ VBA

5,174

社区成员

17,906

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章