word中指定位置如何插入excel数据与表格（现已将问题重新描述）

Saint_Zuo

问题是这样的。附件中有一个word与一个excel文件，word文件中只有三行文字和一个表格，在文字中“数据”这个字符出现了三次（字体兰色），”表一“这个字符只出现了一次（字体天蓝色）。现在有两个要求：
一：将第三次出现“数据”字符之后的"66666"替换为excel文件中sheet1的A1单元格的内容。
二：将出现“表一”字符所在行下面的表格删除，再将excel文件中sheet1的a5:B8单元格的数据粘贴到“表一”字符所在行下面的位置。
注：excel文件中sheet1的a5:B8单元格与A1单元格内容并无关系。

[ 本帖最后由 Saint_Zuo 于 2010-3-15 14:32 编辑 ]

守柔

原帖由 Saint_Zuo 于 2010-3-15 09:59 发表
请教如何使用vba在“如何取得excel单元格中数据”中先搜索到第三个“数据”的位置，并将其后面的数据66666替换为
”数据源.xls“中sheet1中a1的数据88888。再搜索到"表一"的位置，并将其下面一行中的原有表格替换为 ...

请再次读一下你写的“问题”，让人不知所云，包含Word文档中的“我要的数据是数据源.xls中sheet1中的a1中的数据（ 原来是66666）88888。”
关系，把关系描述清楚。
比如，什么叫第三个数据？它是什么，有什么特征？
EXCEL工作表中，A1单元格和下面的A5:B8是什么关系，它们之间是如何定位的？有没有其它的内容，单元格地址是不是固定等等，我想，你可以花不到半个小时全部交待清楚，而不是让想帮助你的网友给你提问题。

Saint_Zuo

麻烦各位老师了。

守柔

原帖由 Saint_Zuo 于 2010-3-15 14:14 发表
麻烦各位老师了。

至今没有明白楼主的真实动机。
莫名其妙的“数据”“6666”，你至少给给它安排一个一室一厅，比如按个书签或者是动态的位置，是第几段的结束前字符串，或者是全文关键字的第几个位置。
建议楼主看一下这个链接中的链接，也许，粘贴一个链接就OK了。

Saint_Zuo

原帖由 守柔 于 2010-3-15 16:52 发表


至今没有明白楼主的真实动机。
莫名其妙的“数据”“6666”，你至少给给它安排一个一室一厅，比如按个书签或者是动态的位置，是第几段的结束前字符串，或者是全文关键字的第几个位置。
建议楼主看一下这个链接 ...

不好意思，我对word里的对象元素不太了解。这个66666的位置就是第三次出现“数据”字符串之后与第一次出现句号之间的位置。请教版主您指的那个”链接中的链接“是什么？该如何使用？

[ 本帖最后由 Saint_Zuo 于 2010-3-16 08:50 编辑 ]

守柔

原帖由 Saint_Zuo 于 2010-3-16 08:48 发表

不好意思，我对word里的对象元素不太了解。这个66666的位置就是第三次出现“数据”字符串之后与第一次出现句号之间的位置。请教版主您指的那个”链接中的链接“是什么？该如何使用？

只能费劲的揣磨楼主的心思了，累。
以下代码仅供参考。
Option Explicit

Sub Example()
    Dim objExcel As Object
    Dim objSheet As Object
    Dim myRange As Range
    Dim myTable As Table
    Dim oCell As Cell
    Dim vntRange As Variant
    Dim strFind As String
    Dim xlFileName As String
    Dim strXLA1 As String
    Dim intCount As Integer
    Dim intTarget As Integer
    Dim intRow As Integer
    Dim intCol As Integer
    Dim blnExists As Boolean
    strFind = "数据"
    intTarget = 3
    Selection.HomeKey wdStory
    With Selection.Find
        .ClearFormatting
        .Text = strFind
        .Wrap = wdFindStop
        .MatchWildcards = False
        Do
            If .Execute = False Then Exit Sub
            intCount = intCount + 1
            If intCount = intTarget Then
                With ActiveDocument
                    xlFileName = .Path & "\数据源.xls"
                    Set myRange = .Range(Selection.End, Selection.Paragraphs(1).Range.End - 1)
                    Set myTable = .Tables(1)
                End With
                '''myRange.Select
                blnExists = (InStr(myRange.Text, "。") > 0)
                If Len(Dir(xlFileName, vbDirectory)) = 0 Then Exit Sub
                Set objExcel = GetObject(xlFileName)
                Set objSheet = objExcel.sheets(1)
                strXLA1 = CStr(objSheet.[A1].Value)
                If blnExists = True Then strXLA1 = strXLA1 & "。"
                myRange.Text = strXLA1
                vntRange = objSheet.[A5:B8].Value
                For Each oCell In myTable.Range.Cells
                    With oCell
                        intRow = .RowIndex
                        intCol = .ColumnIndex
                        .Range.Text = vntRange(intRow, intCol)
                    End With
                Next
                Set objExcel = Nothing
                Exit Sub
            End If
        Loop
    End With
End Sub

mqcwl

历害。这么长的代码。