word文件名匯總代碼

1. 關於圖片批量導入word中並在圖片上方附加文件名的VBA代碼編輯

Sub 批量插入圖片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" 『這里輸入你要插入圖片的目標文件夾
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '這兩句移到這里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例調整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此處修改相片寬,單位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
執行此代碼後，彈出的選擇對話框， 全選目標文件夾下的所有圖片文件之後，點擊確定。然後靜靜的等待電腦完成處理工作，次數word會進入無響應狀態。圖片越多，無響應的時間越長。

2. 怎麼批量修改word文件名,我又許多這樣的文件，怎麼把這些不同的文件名統一成代碼或日期什麼的……

需要修改名字的文檔全部選中，右鍵-重命名，輸入你需要的名字。比如輸入日期2010-11-11，確定，文檔名稱就會出現變成2010-11-11（1），2010-11-11（2），2010-11-11（3），。。。。。。
希望對你有幫助哦~

3. word文件如何批量改名

使用dos命令來，在文件所自在目錄 dir/b>1.txt 獲得文件名，存在1.txt裡面。
然後用excel打開1.txt，與人員名單表格對應。做成ren A.doc B.doc 樣式（將A名稱替換為B名稱），注意中間的空格，存為txt文件。
然後新建txt輸入下面代碼。重復 ren A.doc B.doc
@echo off
echo 正在替換文件名，請稍等......
#示例
ren A.doc B.doc
#說明：把A文件名替換成B文件名
echo 替換文件名完成!
echo. & pause

另存為.bat，執行即可

4. 將N個word文檔的文件名匯總成一張電子表格，應該怎麼做簡便

方法：使用「批處理」。

1、在桌面新建一個txt文檔陵告毀，輸入以下內容（L為文件所在磁碟，cd知識題庫為路尺備徑，>C:a.txt為輸出到C盤下的A.txt文檔）。

@echo off

L:

cd知識友穗題庫

dir *.doc /s/B/N >C:a.txt

echo 文件已經導出請在C盤查看~

pause
exit

5. 在百度文庫下載的word文件打開後全是代碼，怎麼辦

在您下載文檔時，若您的電腦上已安裝了迅雷、快車等下載軟體，則有可能導致下載失敗。所下載下來的文件是一個網頁，error.html，而不是想要下載的文檔附件。文件名可能是error.word，而且文件打開後，還是亂碼。
第一步：選擇下載軟體的「設置」或「配置」操作；

第二步：找到「監視瀏覽器」和「檢查迅雷（或快車）是否譽襲睜禪昌是IE默認的下載工具」，取消這兩項的勾選；
第三步：應用再確認，就OK了慶歲。
祝你成功。

6. 如果批量提取多個WORD的文件名。

假如你d:\word目錄下
復雹坦塌制如下代碼:
dir d:\word\*.doc >d:\word.txt
在桌面新建一個文本文檔，將代碼粘貼進入，將文本文檔信羨的後綴名改為.bat
雙擊運行，它會把d:\word目錄下的word文件全部找出來寫在d:\word.txt文件里。源圓。。

7. 如何批量提取多個Word的文件名

批量提取多個Word的文件名的具體步驟如下：

需要准備的材料分別是：電腦、Word文檔。回

1、首先打開電腦，右鍵答點擊桌面空白處新建一個文本文檔。

2、然後在彈出來的窗口中點擊打開「」

8. 將N個word文檔的文件名匯總成一張電子表格，應該怎麼做簡便

有一個折中的辦法：首先你的N個文件夾必須在同一目錄下，在此目錄下新建一個文本文件，打開，輸入
dir
/s
>>doc.txt
，另存為一個.bat文件(保存類型選所有文件)。
關掉後運行這個.bat文件，則可在這個目錄下生成一個doc.txt的文本，裡面就有你要的所有文件的名稱了。你再把這個文本導入到EXCEL中加工一下就OK了。

9. 怎麼批量把word的「標題」設置成為「文件名」

VBS處理
代碼如下

Option Explicit
On Error Resume Next ' 容錯語句，避免程序崩潰 '有可能重命名文件已經存在，忽略錯誤。

Dim fso,fs,f
Dim i
Dim strNewName
Const strCurrentPath = "."

Msgbox "根據文本文件第一行批量重命名的VBS程序" & vbcrlf & vbcrlf & "Created By Shortway",0,"QQ:380710203"

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set fs = fso.GetFolder(strCurrentPath).Files
i = 0
For Each f In fs '遍歷當前文件夾內每個文件
If LCase(right(f.name,3))="txt" Then '判斷是否是文本文件
strNewName = Trim(fso.OpenTextFile(f, 1, False).ReadLine) '得到第一行

'以下剔除不能作文件名的特殊字元
strNewName = Replace(strNewName, "\", "")
strNewName = Replace(strNewName, "/", "")
strNewName = Replace(strNewName, ":", "")
strNewName = Replace(strNewName, "*", "")
strNewName = Replace(strNewName, "?", "")
strNewName = Replace(strNewName, """", "")
strNewName = Replace(strNewName, ">", "")
strNewName = Replace(strNewName, "<", "")
strNewName = Replace(strNewName, "|", "")

strNewName = left(strNewName,50) '有時第一行文字太多了，就選50個字元了

f.name=strNewName & ".txt"
i = i + 1
End if
Next
Msgbox i & "個文件改名完成！（忽略重名）"
Set fs = Nothing
Set fso = Nothing

將以上代碼粘貼到記事本中，然後另存為後綴為vbs文件，如「標題修改.vbs」，把要處理的文件與vbs文件放在同一文件夾中，然後運行vbs文件，數據無價，修改時請先實驗測試。