本人小白，想著用vba修改檔案夾內word檔案名為word首行，結果卡到Name WORD_name As WORD_title這一句了，怎么改都提示，什么無效的程序呼叫或引數。求大神給看看，咋回事。。。
Option Explicit
Sub 打開檔案夾檔案and逐個重命名為標題名()
Dim WORD_title As String, EXCEL_name As String, EXCEL_name2 As String, WORD_name As String, Count As Integer '定義word類
Dim Wordapp As Word.Application
Dim WordD As Word.Document '定義word類
'Wordapp.ScreenUpdating =False '螢屏重繪
With Application.FileDialog(msoFileDialogFilePicker) ' Open the file dialog
.AllowMultiSelect = True
.Show
For Count = 1 To .SelectedItems.Count
WORD_name = Dir(.SelectedItems(Count))
Set Wordapp = New Word.Application
Wordapp.Visible = True '可見
Set WordD = Wordapp.Documents.Open(.SelectedItems(Count)) '打開檔案
WORD_title = ActiveDocument.Paragraphs(1).Range.Text
WordD.Save
WordD.Close '關閉檔案
Set WordD = Nothing
WORD_title = WORD_title & Mid(WORD_name, Application.Find(".", WORD_name)) '過度下，名字為加上擴展名的
'Wordapp.Quit '退出Word物件
Name WORD_name As WORD_title
Next Count
End With
End Sub
uj5u.com熱心網友回復：
WORD_title = ActiveDocument.Paragraphs(1).Range.Text你自己看看 WORD_title 的值是不是“回車換行”或“換行”結束的？
uj5u.com熱心網友回復：
沒有換行，是我把字號調大了些，沒有換行符
uj5u.com熱心網友回復：
呵呵，不懂別裝懂！你就沉浸在你自己的世界里玩吧…………
uj5u.com熱心網友回復：
真沒看懂，你說那個WORD_title后有換行符？可是沒有啊
uj5u.com熱心網友回復：
雖沒換行符，但是它有1個回車符啊！！！！！
uj5u.com熱心網友回復：
別人叫你“吃飯”、“喝酒”，你是不是只吃“飯”或只喝“酒”，不吃菜了？？？uj5u.com熱心網友回復：
有一些字符，不是用眼睛去看，而是用“心”去看…………
有一些細節上的問題，別人從“大方向”去推斷的，
不可能達到所有的推論都能與事實“精確一致”，
在你自己也不能“肯定”的時候，你不就能舉一反三的驗證一下？
uj5u.com熱心網友回復：
有回車符？我再看看，謝謝耐心指教uj5u.com熱心網友回復：
終于找到大神說的回車符了，可算把這個程式弄過去了，謝謝哈
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/11939.html
標籤：VBA
上一篇：【求助】使用cdo發送郵件的時候用STARTTLS方式的安全連接
下一篇：excel打開就報32809