如何用宏命令使所有word表格自动标题行重复（默认第一行）

打开Word2007文档，选中表格标题行。

单击“布局”选项卡。

在“表”中单击“属性”按钮。

在“表格属性”对话框中单击“行”选项卡。

选中“在各页顶端以标题行形式重复出现”选项，单击“确定”按钮。

方法二打开Word2007文档，选中表格标题行。

单击“布局”选项卡。

在“数据”中单击“重复标题行”按钮。

word用批处理代码,将文件名作为word第一行生成题目

如果那些行都是以回车符结尾的，应该可以。

如果那些行很长，比如那一行是一个大段落（不止一行）里的一部分，那就不行。

若你说的那个序号用键盘打上去的，那么可以全选文档后，查找：[0-9]@,*^13点‘高级’，勾上‘使用通配符’和‘突出所有在该范围内找到的项目’。

如果那个序号是用软键盘插入的数学序号，那么就得先将序号复制下面的中括号里，比如⒈⒉⒊查找：[⒈⒉⒊⒋]*^13其它内容与上面一样。

查找全部后，对应的内容就会被选中了。

如何将excel里的特定信息提取到word里

fo %%i in (*.txt) do call :e_name ＂%%i＂ pause exit :e_name fof ＂delims=＂ %%i in ("findstn .* %1") do ( set ＂st=%%i＂ setlocal enaledelayedexpansion set st=!st:*:=! set st=!st: =! set st=!st: =! en %1 !st!.txt endlocal goto :eof ) 以上？榕?？理？热荩?部梢宰约杭由稀癅echo off”。

在打包文件？扔小4伺?？理凡遇到特殊字符？t自？犹?^，所以如果你？？？？文件都有“”这？不能作？槲募??淖址?？t不适用。

这？？批？理要在txt同一？？文件？A（目？）？冗\行。

批？理速度比较慢。

因此我？？了一？？exe程序：先选？裎募？A，然后设置一下（例如是否保留空格，是否替？Q诸如“”这些字符，也可以自定义所要剔除的字符），按“开始更名”就可以了。

此程序基於delphi7？？出？恚？热荼容^长（主要是函？担???圆毁N出？砹耍?绻?阈枰?闯绦蚝痛?a也可以另附给你。

打包中一？？叫“笑？”的文件？A（目？），是一？？？y？目？，里面有若？？？txt文件，可以？y？程序的功能。

若你不明白程序使用方法，也可以拿这？？目？去？，就不用？?哪愕？底中≌f？?腻e名。

希望？δ阌？椭?？ ps：回答？？题附件居然不能超过200k，？]办法，只有上？鞯竭@里？你下载： 或者到到我iask资料里下载：

纠正答案：求提取txt文件第一行作为文件名的批处理命令bat上次？

"at对文件的读写、判断等操作极弱，所以推荐VBS。

"使用也很简单：记事本输入→保存到目标文件夹，命名为“RenameText.vs”文件→双击运行。

----代码开始----- Option Explicit On Eo Resume Next " 容错语句，避免程序崩溃 "有可能重命名文件已经存在，忽略错误。

Dim fso,fs,f Dim i Dim stNewName Const stCuentPath = ＂.＂ "当前目录 Msgox ＂根据文本文件第一行批量重命名的VBS程序＂ & vclf & vclf & ＂Ceated By Shotway＂,0,＂ ＂ Set fso = Wscipt.CeateOject(＂Scipting.FileSystemOject＂) Set fs = fso.GetFolde(stCuentPath).Files i = 0 Fo Each f In fs "遍历当前文件夹内每个文件 If LCase(ight( ,3))=＂txt＂ Then "判断是否是文本文件 stNewName = Tim(fso.OpenTextFile(f, 1, False).ReadLine） "得到第一行 "以下剔除不能作文件名的特殊字符 stNewName = Replace(stNewName, ＂\＂, ＂＂) stNewName = Replace(stNewName, ＂＂, ＂＂) stNewName = Replace(stNewName, ＂:＂, ＂＂) stNewName = Replace(stNewName, ＂*＂, ＂＂) stNewName = Replace(stNewName, ＂?＂, ＂＂) stNewName = Replace(stNewName, ＂＂＂＂, ＂＂) stNewName = Replace(stNewName, ＂＂, ＂＂) stNewName = Replace(stNewName, ＂＂, ＂＂) stNewName = Replace(stNewName, ＂|＂, ＂＂) stNewName = left(stNewName,30) "有时第一行文字太多了，就选30个字符了 =stNewName & ＂.txt＂ i = i + 1 End if Next Msgox i & ＂个文件改名完成！（忽略重名）＂ Set fs = Nothing Set fso = Nothing