利用word同样的也可以遍历出来文件夹下的文件
视频演示：
我们有文件夹或者说是一个盘符下有很多的文件夹，同时还有很多的不同的文件...曾经有这的经历，需要将他们全部的名字输入在一个文本中，我就是一个个的点击，然后一个个的重命名的形式复制粘贴。我的天呀，非常的辛苦并且还经常错误...
有朋友告诉我可以使用Dos命令，后来我倒是学习会了，只不过我们这些的小白如何知道那些命令了，非常现实，现在就要用了呀...
好了，现在就让小白和你分享一下：
1、首先新建一个WORD的空白的文档。（不要全屏最大化）
2、将需要遍历的文件夹(同样不要全屏最大化)，点击其中的任意一个文件或者文件夹，然后按键盘上的“ctrl+A”，就是全部选择的意思。
3、“右键”按住不要放，拖动到文档上放手。（记住千万不要错误，是右键按住，同时拖动到...）
4、现在可以点击“在此创建超链接”这个选项了。
5、同样：ctrl+A 全部选择，再ctrl + shift +
F9（这个是取消超链接的快捷方式），现在全部是文本了。
6、按& ctrl+
H& 进行查找替换，替换项目为：^p (如图)
7、点击，全部替换。最后的结果就是我们想要的，看看：
所以没有DOS命令和操作，一样也可以搞定。
无需太多懂得OFFICE的word或者excel一样轻松玩转。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。2006年6月 VB大版内专家分月排行榜第一
2006年5月 VB大版内专家分月排行榜第三2005年9月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。用VBA从Word中读取表格内容
Micrsoft Word 11.0 Object
Library已被引用
& & 'Word对象定义
& & Dim objWord As New
Word.Application
& & 'Doc对象定义
& & Dim objDoc As
Word.Document
& & '读取指定文件至Doc对象
& & Set objDoc =
objWord.Documents.Open("C:\test.doc")
& & 'Table对象定义
& & Dim objTable As
Word.Table
'读取指定文件中的表1至Table对象
& & Set objTable =
objDoc.Tables(1)
'读取表格1行1列内容，并替换回车换行后显示在Excel当前Sheet的1行1列
& & Cells(1,1).Value =
Replace(mTab.Cell(1, 1).Range.Text, Chr$(13) & Chr$(7),
& & '关闭Doc对象
& & objDoc.Close False
& & '关闭Word对象
& & objWord.Quit
& & '清除Table对象
& & Set objTable =
& & '清除Doc对象
& & Set objDoc =
& & '清除Word对象
& & Set objWord =
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。 上传我的文档
 下载
 收藏
粉丝量：36
所发布文档来源于互联网和个人收集，仅用于分享交流使用，版权为原作者所有。
 下载此文档
正在努力加载中...
用VBA提取Word表格数据到Excel
下载积分：100
内容提示：用VBA提取Word表格数据到Excel
文档格式：DOC|
浏览次数：1063|
上传日期： 09:29:14|
文档星级：
全文阅读已结束，如果下载本文需要使用
 100 积分
下载此文档
该用户还上传了这些文档
用VBA提取Word表格数据到Excel
关注微信公众号查看: 3605|回复: 8
[已解决]如何使用WordVBA遍历所有页面？
阅读权限20
在线时间 小时
本帖最后由 jsyzzym 于
15:07 编辑
想用VBA遍历WORD文档中的所有页面，取得每个页面的横、竖版式，找了一些资料，写了一段脚本，但只能显示光标所在页的版式，请求各位知道的朋友给予帮助，不胜感谢！
Sub test()
& & Dim nPageC As Integer
& & Dim i As Integer
& & nPageC = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
& & Debug.Print &共& & nPageC & &页&
& & For i = 1 To nPageC
& && &&&With ActiveDocument.ActiveWindow.Panes(1)
& && && && &.Pages(i).Application.ActiveDocument.Activate
& && && && &Debug.Print .Pages(i).Application.Selection.Sections.PageSetup.Orientation
& && &&&End With
& & Next
End Sub复制代码
谢谢楼下的帮助，已经解决了这个问题，顺附上遍历所有页面的代码，以供需要之人使用，再次感谢楼下的无私帮助：Sub AllPage_InsCustomPageNum()
& & Dim nPageC As Integer
& & Dim i As Integer
& & 'rmation (wdActiveEndAdjustedPageNumber)
& & nPageC = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
& & For i = 1 To nPageC
& && &&&ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i).Select
& && &&&If Selection.PageSetup.Orientation = wdOrientLandscape Then Call InsCustomPageNum
& & Next
End Sub复制代码
阅读权限50
在线时间 小时
在PageSetup里面，逐页遍历没有意义，逐节遍历吧。
Dim aSection As Section
For each aSection in activedocument.sections
& & with aSection.Pagesetup
& && &&&debug.print .Orientation
& & end with
阅读权限20
在线时间 小时
& & & & & & & &
谢谢楼上的回复，逐页遍历主要是要往页面上添加东西，请问有好的办法，谢谢！
阅读权限50
在线时间 小时
jsyzzym 发表于
谢谢楼上的回复，逐页遍历主要是要往页面上添加东西，请问有好的办法，谢谢！
看你需要往哪里添加。比如页首，页尾。
.Goto(wdgotopage,wdgotoabsolute,aPageNum).Start
这样可以获取第aPage页页首，换成aPage+1可以获取aPage页的页尾。。。
阅读权限20
在线时间 小时
十分感谢！
阅读权限30
在线时间 小时
Call InsCustomPageNum子过程或函数未定义
补充内容 ( 11:11):
经测试，Call InsCustomPageNum的InsCustomPageNum，就是第一个程序test过程。
把debug.print改成msgbox，得到的0表示页面设置纸张的纵向，1为页面设置纸张的横向。
阅读权限50
在线时间 小时
banjinjiu 发表于
Call InsCustomPageNum子过程或函数未定义
提供一下这个自定义过程
InsCustomPageNum
阅读权限50
在线时间 小时
闻启学 发表于
提供一下这个自定义过程
InsCustomPageNum
应该就是rmation(…page)
阅读权限20
在线时间 小时
好贴，感谢，收藏。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}