文件名变标题

T-T-J · 发表于 2019-6-19 18:00

我有一组WORD文档，但没有标题，请哪位大咖帮我用VBA批量设置标题，标题内容为文件名

413191246se · 发表于 2019-6-20 03:10

本帖最后由 413191246se 于 2019-6-22 13:51 编辑

略。。。。。

T-T-J · 发表于 2019-6-21 00:36

为什么我处理后文件是空的呢？

413191246se · 发表于 2019-6-21 09:06

楼主，请将代码放到 Normal.dotm 中，再正确选择文件夹，我看你的软件是 Word2007，我在家里也用 2007，测试是 OK 的。

T-T-J · 发表于 2019-6-21 21:29

我是用WORD 2010

T-T-J · 发表于 2019-6-21 21:36

4楼，我还是运行不了，请把你的文件打包发来一下可否

413191246se · 发表于 2019-6-22 04:50

我的附件就是你提供的附件，现在，我运行也是和你一样了，也是空的……

duquancai · 发表于 2019-6-22 12:11

哎呀！又出幺蛾子了，怎么办？

sylun · 发表于 2019-6-22 12:35

普通处理可试试如下代码：

Sub test()
Dim myDialog As FileDialog
Dim mypath As String
Dim a As String
Dim myfilename() As String
Dim i As Integer
On Error Resume Next
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
myDialog.Title = "请指定目标文件夹"
If myDialog.Show <> -1 Then Exit Sub
mypath = myDialog.InitialFileName
a = Dir(mypath & "*.doc*")
Do While a <> ""
ReDim Preserve myfilename(i)
myfilename(i) = a
i = i + 1
a = Dir
Loop
Application.ScreenUpdating = False
For i = 0 To UBound(myfilename)
With Documents.Open(mypath & myfilename(i))
.Range(0, 0).InsertAfter Left(myfilename(i), InStrRev(myfilename(i), ".") - 1) & vbCrLf
With .Paragraphs.First '首个段落格式设置，如：
.Style = wdStyleHeading1
.Alignment = wdAlignParagraphCenter
With .Range.Font '首个段落字符格式设置，如：
.Size = 16
.NameFarEast = "方正小标宋简体"
End With
End With
.Close wdSaveChanges
End With
Next
MsgBox "共处理了" & UBound(myfilename) + 1 & "个文档。", vbInformation
Application.ScreenUpdating = True
End Sub

复制代码

413191246se · 发表于 2019-6-22 13:23

楼主，sylun 大侠的代码测试 OK！我的代码我正在研究中……。请采纳 sylun 老师的代码，但打开最终文件夹后，要自己选定所有文件。

杜老师：还得请您这样的大神来解决问题呀！我等小菜鸟，没有什么办法。

像 sylun 老师这样的好代码，我并不准备收藏，为什么？因为数组看不懂，也看不懂这个 ReDim 是干什么的，我还是用我自己看得懂的、浅显的代码来做。

		自动登录	找回密码
密码			免费注册

[求助] 文件名变标题