❶ Excel 请帮助，怎么VBA批量更改文件名
附件 VBA 递归算法 批量提取 & 修改文件名代码如下：点击选择文件夹 按钮 选择文件夹， 在C 列输入新文件名后， 点击 重命名按钮 批量重命名12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758 Option ExplicitPrivate Fso As Object, Mypath As String Sub 选择文件夹() Dim Fo Call 清除 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择要批量重命名文件的文件夹" .Show If .SelectedItems.Count = 0 Then Exit Sub Mypath = .SelectedItems(1) & "\" End With Set Fso = CreateObject("Scripting.FileSystemObject") Set Fo = Fso.getfolder(Mypath) Call 递归(Fo)End Sub Sub 获取文件名(Folder) Dim Fi, filename As String, r As Integer For Each Fi In Folder.Files r = Range("A65536").End(xlUp).Row + 1 filename = Fi.Name Cells(r, 1) = Folder.Path & "\" Cells(r, 2) = Fso.getbasename(filename) Cells(r, 4) = "." & Fso.GetExtensionName(filename) r = r + 1 NextEnd Sub Sub 递归(Folder) Dim Fi, Fo Call 获取文件名(Folder) If Folder.subFolders.Count > 0 Then For Each Fo In Folder.subFolders Call 递归(Fo) Next End IfEnd Sub Sub 重命名() Dim i As Integer, r As Integer, Rng As Range r = Range("A65536").End(xlUp).Row For Each Rng In Range("C2:C" & r) If Rng = "" Then MsgBox "请将新文件名填写完整!", 64, "提示": Exit Sub Next For i = 2 To Range("A65536").End(xlUp).Row Name Cells(i, 1) & Cells(i, 2) & Cells(i, 4) As Cells(i, 1) & Cells(i, 3) & Cells(i, 4) Next MsgBox "文件名修改完成!", 64, "提示" Call 清除End Sub Sub 清除() Dim r As Integer r = Range("A65536").End(xlUp).Row If r = 1 Then Exit Sub Range("A2:D" & r).ClearContentsEnd Sub
❷ 如何在word中利用vba改变文档标题的字体和字号大小
编辑→查找查找内容:[0-9]√突出显示……高级→√使用通配符→查找全部这样就选中所有的数字，然后格式→字体→……
❸ 怎么用vba批量设置wps文本的标题求代码，谢谢！
先把WPS文本的文件夹的地址，文件名提取出来，然后新建一个新的列，里面放新的文件名，然后再写一个生命名的代码！
❹ 请问如何用VBA实现自动修改更新文件名称
是可以的，在打开此文件时调用一个事件处理程序，代码写上另存表格为你需求的那个文件名就行了。如下示例未具体给定保存的文件名位置，应注意在文件名前加上自己需要的路径。
❺ 如何用VBA快速修改文件名
Sub批量改名()DimFolderNameAsString,wbNameAsString,cValueAsVariantDimwbList()AsString,wbCountAsInteger,iAsInteger,strAsString,exnameAsStringFolderName="G:360data重要数据桌面新建文件夹"'文件夹路径'创建文件夹中工作簿列表wbCount=0wbName=Dir(FolderName&""&"*.xls*")WhilewbName<>""wbCount=wbCount+1ReDimPreservewbList(1TowbCount)wbList(wbCount)=wbNamewbName=DirWendIfwbCount=0ThenExitSub'从每个工作簿中获取数据Fori=1TowbCountcValue=GetInfoFromClosedFile(FolderName,wbList(i),"sheet1","a1")exname=Mid(wbList(i),InStr(wbList(i),"."))NameFolderName&""&wbList(i)AsFolderName&""&cValue&exnameOnErrorResumeNextNameFolderName&""&wbList(i)AsFolderName&""&cValue&i&exnameNextiEndSub'====================从未打开表中获取信息===========================(ByValwbPathAsString,_wbNameAsString,wsNameAsString,cellRefAsString)AsVariantDimargAsStringGetInfoFromClosedFile=""IfRight(wbPath,1)<>""ThenwbPath=wbPath&""IfDir(wbPath&""&wbName)=""ThenExitFunctionarg="'"&wbPath&"["&wbName&"]"&_wsName&"'!"&Range(cellRef).Address(True,True,xlR1C1)r=0OnErrorResumeNextGetInfoFromClosedFile=ExecuteExcel4Macro(arg)EndFunction
❻ EXCEL vba 如何更改文档属性，如标题、作者等
下面是VBA代码功能：
当前文档的上面添加文字dzwebs文字。
然后，又设置第一段居中对齐，并在该段落之后添加半英寸的间距。将dzwebs的格式设为36磅，隶书字体。
Dim rngFormat As RangeSet rngFormat = ActiveDocument.Range(Start:=0, End:=0) With rngFormat .InsertAfter Text:="dzwebs" .InsertParagraphAfter With .Font .Name = "隶书" .Size = 36 .Bold = True End With End With With ActiveDocument.Paragraphs(1) .Alignment = wdAlignParagraphCenter .SpaceAfter = InchesToPoints(0.5) End With
部分代码解释：
Dim rngFormat As Range定义变量
Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)设置rngFormat变量的位置，位于文档的最上面
With rngFormat里面的代码功能是设置字体字号等属性End With
With ActiveDocument.Paragraphs(1) .Alignment = wdAlignParagraphCenter .SpaceAfter = InchesToPoints(0.5)End With该代码代码功能是添加段后距离为0.5英寸
❼ 如何用vba修改文件夹的名称
用name 就可以，格式如下name 文件夹路径\旧名字 文件夹路径\新名字
❽ 怎样用VBA批量修改批注里的标题名称
将含有标题名称的和不含的 区分处理即可：【注：不含标题的批注里不能含有类似批注标题的 “:”+换行，否则“:”之前的内容会当作标题来处理。】Sub M2() Dim c As Comment, s$, n As Integer For Each c In ActiveSheet.Comments n = InStr(1, c.Text, ":" & vbLf) If n = 0 Then s = "自定义的标题:" & vbLf & c.Text Else s = "自定义的标题:" & vbLf & Mid(c.Text, n + 2) End If c.Text Text:=s c.Shape.TextFrame.Characters.Font.Bold = msoFalse '使正文内容不为加粗体 NextEnd Sub
❾ 如何利用VBA代码或者脚本代码批量修改word文档的正文标题
操作步骤。第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker).Title = "选择目标文件夹"If .Show = -1 ThenmyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithmyPas = InputBox("请输入打开密码：")With Application.FileSearch.LookIn = myPath.FileType = msoFileTypeWordDocumentsIf .Execute > 0 ThenFor i = 1 To .FoundFiles.CountSet myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "大家好".Replacement.Text = "你好".Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllmyDoc.SavemyDoc.CloseSet myDoc = NothingNextEnd IfEnd WithApplication.ScreenUpdating = TrueEnd Sub第五，保存上面代码，退出VB编辑模式，返回Word文档界面。第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。
❿ vba多个word同时改标题大小
操作步骤：第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker).Title = “选择目标文件夹”If .Show = -1 ThenmyPath = .SelectedItems(1)ElseExit SubEnd IfEnd WithmyPas = InputBox(“请输入打开密码：”)With Application.FileSearch.LookIn = myPath.FileType = msoFileTypeWordDocumentsIf .Execute > 0 ThenFor i = 1 To .FoundFiles.CountSet myDoc = Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas)Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = “大家好”.Replacement.Text = “你好”.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllmyDoc.SavemyDoc.CloseSet myDoc = NothingNextEnd IfEnd WithApplication.ScreenUpdating = TrueEnd Sub第五，保存上面代码，退出VB编辑模式，返回Word文档界面。第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。
