Word中VBA替换指定位置字符

yjwdjfqb

Word中VBA替换指定位置字符
批量将　Word中VBA替换指定位置字符　请老师们帮帮忙，谢谢老师了！
Word中VBA替换指定位置字符.rar (141.87 KB, 下载次数: 25)

2019-8-30 22:13 上传

点击文件名下载附件

小花鹿

循环打开文档，读取表格内容，替换后重新写入，保存                                                                       

413191246se

楼主，请备份后试用：

1. Sub tet循环遍历文件夹_替换指定位置字符()
   
2.     On Error Resume Next
   
3.     Dim fd As FileDialog, i As Long, doc As Document, p As String
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
5.     If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
   
6.     Set fd = Nothing
   
7.     If MsgBox("是否处理文件夹 " & p & " ?", vbYesNo + vbExclamation, "循环遍历文件夹_通用") = vbNo Then Exit Sub
   
8.     With Application.FileSearch
   
9.         .NewSearch
   
10.         .LookIn = p
    
11.         .SearchSubFolders = True
    
12.         .FileName = "*.doc"
    
13.         If .Execute > 0 Then
    
14.             For i = 1 To .FoundFiles.Count
    
15.                 Set doc = Documents.Open(FileName:=.FoundFiles(i))
    
16.                 doc.Range(Start:=doc.Tables(2).Range.Cells(16).Range.Start, End:=doc.Tables(2).Range.Cells(41).Range.End).Select
    
17.                 Selection.Find.Execute " ", , , 0, , , , , , "", 2
    
18.                 doc.Range(Start:=doc.Tables(2).Range.Cells(17).Range.Start, End:=doc.Tables(2).Range.Cells(42).Range.End).Select
    
19.                 Selection.Find.Execute "；", , , 0, , , , , , "，", 2
    
20.                 doc.Close savechanges:=wdSaveChanges
    
21.             Next i
    
22.             MsgBox "处理完毕！共处理 " & .FoundFiles.Count & " 个文件！", vbOKOnly + vbExclamation, "循环遍历文件夹_通用"
    
23.         Else
    
24.             MsgBox "未发现文件！", vbOKOnly + vbCritical, "循环遍历文件夹_通用"
    
25.         End If
    
26.     End With
    
27. End Sub

复制代码

yjwdjfqb

413191246se 发表于 2019-8-31 10:37
楼主，请备份后试用：

•                 doc.Range(Start:=doc.Tables(2).Range.Cells(16).Range.Start, End:=doc.Tables(2).Range.Cells(41).Range.End).Select
•                 Selection.Find.Execute " ", , , 0, , , , , , "", 2
•                 doc.Range(Start:=doc.Tables(2).Range.Cells(17).Range.Start, End:=doc.Tables(2).Range.Cells(42).Range.End).Select
•                 Selection.Find.Execute "；", , , 0, , , , , , "，", 2
  

老师你好，很好用，就是没有看懂，这个指位置是怎么确定的，请老师帮帮讲解下好吧，谢谢老师了！

413191246se

* Range 就是区域、范围，它有起点 .Start，有终点 .End，因为是第2个表格，具体是哪个单元格，是逐步测试来的，先选定一个假定的单元格，如果不对，就增加数字，就是这样。
* 两者都是竖向单元格列区域。一个是“团员”区域，一个是“分号”区域。区域内(Selection)全部替换。

yjwdjfqb

413191246se 发表于 2019-8-31 20:21
* Range 就是区域、范围，它有起点 .Start，有终点 .End，因为是第2个表格，具体是哪个单元格，是逐步测试 ...

谢谢老师了！