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

well-read

Sub tihuan()
    On Error Resume Next
    Dim i As Integer
    Dim it As String
    Set wdapp = CreateObject("word.application")
    Dim myrange

    Application.DisplayAlerts = False
    Application.CutCopyMode = False
    Application.ScreenUpdating = False

    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "请选择模版文件"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Word Files", "*.doc;*.docx"
        If .Show = 0 Then
            Exit Sub
        End If
        it = .SelectedItems(1)
    End With
    Set wd = wdapp.documents.Open(it)
     wd.ActiveWindow.Selection.Copy
     range("a1").Select
     ActiveSheet.Paste
     Debug.Print ActiveSheet.range("a1")
     With wd.ActiveWindow.Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "设计单位"
            .Replacement.Text = "aaaaaaaa"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
    End With
    wd.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Cells(1, 1)
    wd.Close True
    wapp.Quit
    Set wd = Nothing
    Set wapp = Nothing
    Application.DisplayAlerts = True
    Application.CutCopyMode = True
    Application.ScreenUpdating = True
End Sub

well-read

没有哪位大侠遇到过这个问题吗，还是这是无解的？

fxl447098457

什么无解，先弄清楚word里面的selection代表什么吧。什么都没选中的时候。selection对象只代表一个插入点。一个插入点能有什么内容呢。

duquancai

fxl447098457 发表于 2018-9-13 09:33
什么无解，先弄清楚word里面的selection代表什么吧。什么都没选中的时候。selection对象只代表一个插入点。 ...

这些小白都一样，要么思路不对，要么没理解概念，然后就说不行，就说无解等等。大神你要理解这些小白啊！

xyxcc177

环境变量问题
With wd.ActiveWindow.Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "设计单位"
            .Replacement.Text = "aaaaaaaa"
            .Forward = True
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=2
    End With

well-read

xyxcc177 发表于 2018-9-13 10:54
环境变量问题
With wd.ActiveWindow.Selection.Find
            .ClearFormatting

大侠，能说清楚点吗，谢谢了

well-read

duquancai 发表于 2018-9-13 09:38
这些小白都一样，要么思路不对，要么没理解概念，然后就说不行，就说无解等等。大神你要理解这些小白啊！

能帮我改下代码吗，谢谢．

well-read

fxl447098457 发表于 2018-9-13 09:33
什么无解，先弄清楚word里面的selection代表什么吧。什么都没选中的时候。selection对象只代表一个插入点。 ...

我也试过了，selectall全部了，也没用啊，能帮我改下代码吗，谢谢大侠

well-read

没有一个人能热心帮忙一下的吗？

xyxcc177

最好传你 的附件看看