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、點擊添加文件把我們的文件一一添加進來。