我想做的是在EXCEL中用VBA替换WORD中的内容，为什么我的SELECTION对象没有内容，求助

well-read

已上传，谢谢

QQ214189912

well-read 发表于 2018-9-15 16:03
已上传，谢谢

1. Sub tihuan()
   
2.     Dim wdapp As Object, wd As Object
   
3.     Dim i As Integer
   
4.     Dim it As String
   
5.     Set wdapp = CreateObject("word.application")
   
6.     wdapp.Visible = True
   
7.     Application.DisplayAlerts = False
   
8.     Application.CutCopyMode = False
   
9.     Application.ScreenUpdating = False
   
10.     With Application.FileDialog(msoFileDialogFilePicker)
    
11.         .Title = "请选择模版文件"
    
12.         .AllowMultiSelect = False
    
13.         .Filters.Clear
    
14.         .Filters.Add "Word Files", "*.doc;*.docx"
    
15.         If .Show = 0 Then
    
16.             Exit Sub
    
17.         End If
    
18.         it = .SelectedItems(1)
    
19.     End With
    
20.     Set wd = wdapp.documents.Open(it)
    
21.     'Set wd = GetObject(it)
    
22.     'For i = 3 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
    
23.     With wd.Content.Find
    
24.         .ClearFormatting
    
25.         .Replacement.ClearFormatting
    
26.         .Text = "设计单位"
    
27.         .Replacement.Text = "aaaaaaaaaaaaaa"
    
28.         .Execute Replace:=2 'wdReplaceAll
    
29.         .Forward = True
    
30.         .Wrap = 1 'wdFindContinue
    
31.         .Format = False
    
32.         .MatchCase = False
    
33.         .MatchWholeWord = False
    
34.         .MatchByte = True
    
35.         .MatchWildcards = False
    
36.         .MatchSoundsLike = False
    
37.         .MatchAllWordForms = False
    
38.     End With
    
39.     'Next i
    
40.     wd.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Cells(1, 1)
    
41.     wd.Close True
    
42.     wdapp.Quit
    
43.     Set wd = Nothing
    
44.     Set wdapp = Nothing
    
45.     Application.DisplayAlerts = True
    
46.     Application.CutCopyMode = True
    
47.     Application.ScreenUpdating = True
    
48. End Sub

复制代码

well-read

QQ214189912 发表于 2018-9-15 16:53

谢谢大侠，可以了，一定要content, selection不行的吗？