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

Saint_Zuo · 发表于 2010-3-15 09:59

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

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

守柔 · 发表于 2010-3-15 10:59

原帖由 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 · 发表于 2010-3-15 14:14

麻烦各位老师了。

守柔 · 发表于 2010-3-15 16:52

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

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

Saint_Zuo · 发表于 2010-3-16 08:48

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

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

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

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

守柔 · 发表于 2010-3-16 10:55

原帖由 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 · 发表于 2018-1-16 21:51

历害。这么长的代码。

		自动登录	找回密码
密码			免费注册

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