vbs提取word文字为文件名

『壹』 vbs 复制word一段内容到另一个word文档

你这个问题描述得有点偏差，应该是用于电脑操作考试的吧？我对这个问题的回理解如下：答1、打开vbs，点击＂文件＂，选择＂另存为＂，把名称那一条改为c．doc，然后点保存，c．doc就建好了（此时不要关闭这个文档）。2、分别打开a、b文档（此时下面任务条上就同时打开了C、a、b三个文档），切换到a文档，选中a文档的第一段（要把段落符号一起选中，不然格式复制不下来），按鼠标右键，选择＂复制＂，再切换到C文档，在光标闪烁处按鼠标右键，选＂粘贴＂，a中的第一段就复制到C中了。再切换到b文档，选中第一段后，按复制，再切换到c文档，按粘贴……以此类推，在 a、b、C三个文档中来回切换，复制完后（要在C文档这个窗口），直接点保存就全保存到C中了。然后关闭全部文档，a、b不用保存修改。

『贰』 vbs批量替换word中部分文本

方法如下：

1. 把一批.doc文件拖拽到这个VBS文件上，松开手，再按提示运作就行了。

2. 不打开doc文件就能够批量替换的vbs程序
   On Error Resume next
   Set objWord = CreateObject("Word.Application")
   If Wscript.Arguments.Count <> 0 Then
   Findstr=InputBox(chr(13)&" 输入要查找的字符串 ", "输入查找字符","vbs")
   If Findstr = "" Then WScript.Quit
   replstr=InputBox(chr(13)&" 输入要替换的字符串 ", "输入替换字符","word vba")
   For i=0 To WScript.Arguments.Count-1
   filepath=WScript.Arguments(i)
   kkk(filepath)
   Next
   objWord.Documents.close
   else
   WScript.Quit
   End If

   
   

   sub kkk(abcpath)
   objWord.Visible = True
   Set objDoc = objWord.Documents.Open(abcpath)
   Set objSelection = objWord.Selection
   objSelection.HomeKey 6
   With objSelection.Find
   .Text = Findstr
   .Replacement.Text = replstr
   .Forward = True
   .Wrap = wdFindContinue
   .MatchWildcards = True
   .Execute ,,,,,,,,,,2
   End With
   objWord.Documents.Save
   end sub

『叁』 怎么批量把word的“标题”设置成为“文件名”

VBS加工
代码如下所示

选项显式
错误继续下一步“避免程序崩溃的容错语句”。重命名的文件可能已经存在。忽略错误。

Dim fso，fs，f
创建相应的变量
Dim strNewName
Const strCurrentPath = "，"

Msgbox "根据文本文件的第一行批量重命名VBS程序"

『肆』 求救：word批量命名：用word内容首行命名！

你好，批量给文件命名需要借助相关工具进行，具体操作如下：

1、点击添加文件把我们的文件一一添加进来。