无效的过程调用或参数

[三十多的程序猿]

本人小白，想着用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

[舉杯邀明月]

WORD_title = ActiveDocument.Paragraphs(1).Range.Text

你自己看看 WORD_title 的值是不是“回车换行”或“换行”结束的？

[三十多的程序猿]

引用 1 楼 舉杯邀明月 的回复：

WORD_title = ActiveDocument.Paragraphs(1).Range.Text

你自己看看 WORD_title 的值是不是“回车换行”或“换行”结束的？

没有换行，是我把字号调大了些，没有换行符

[舉杯邀明月]

呵呵，不懂别装懂！

你就沉浸在你自己的世界里玩吧…………

[三十多的程序猿]

引用 3 楼 舉杯邀明月 的回复：

呵呵，不懂别装懂！

你就沉浸在你自己的世界里玩吧…………

真没看懂，你说那个WORD_title后有换行符？可是没有啊

[舉杯邀明月]

虽没换行符，但是它有1个回车符啊！！！！！

[舉杯邀明月]

别人叫你“吃饭”、“喝酒”，你是不是只吃“饭”或只喝“酒”，不吃菜了？？？

[舉杯邀明月]

有一些字符，不是用眼睛去看，而是用“心”去看…………


有一些细节上的问题，别人从“大方向”去推断的，
　不可能达到所有的推论都能与事实“精确一致”，
　在你自己也不能“肯定”的时候，你不就能举一反三的验证一下？

[三十多的程序猿]

引用 5 楼 舉杯邀明月 的回复：

虽没换行符，但是它有1个回车符啊！！！！！

有回车符？我再看看，谢谢耐心指教

[三十多的程序猿]

引用 7 楼 舉杯邀明月 的回复：

有一些字符，不是用眼睛去看，而是用“心”去看…………


有一些细节上的问题，别人从“大方向”去推断的，
　不可能达到所有的推论都能与事实“精确一致”，
　在你自己也不能“肯定”的时候，你不就能举一反三的验证一下？

终于找到大神说的回车符了，可算把这个程序弄过去了，谢谢哈