如何提取WORD制定部分的内容？

kkttgg

 我想提取一个WORD文档第三行从第3个字符位到第14个字符的内容，（保存到SHEET1表格的A3单元格中），并且不想通过复制粘贴方式获得，请教大家！谢谢！

konggs

Sub Distill()
    Dim objPage As Page
    Set objPage = ActiveDocument.ActiveWindow _
    .Panes(1).Pages.Item(1)  '活动文档的第一页
    MsgBox Mid(objPage.Rectangles(1).Lines(3).Range, 3, 11)
End Sub

[此贴子已经被作者于2007-4-21 11:33:26编辑过]

kkttgg

我需要的是能都将特定的内容直接放入EXCEL表格中,谢谢!

请再帮助我!!!!

konggs

Sub Distill()
    Dim objPage As Page
    Dim mystr As String
    Set objPage = ActiveDocument.ActiveWindow _
    .Panes(1).Pages.Item(1)  '活动文档的第一页
     mystr = Mid(objPage.Rectangles(1).Lines(3).Range, 3, 11)
    Dim objExcel As Object
    Dim objworkbook
    Set objExcel = CreateObject("excel.application")
    Set objworkbook = objExcel.Workbooks.Add
    objworkbook.sheets(1).Cells(1, 1).Value = mystr
    objExcel.Visible = True
End Sub

守柔

QUOTE:

以下是引用kkttgg在2007-4-20 16:46:01的发言：
 我想提取一个WORD文档第三行从第3个字符位到第14个字符的内容，（保存到SHEET1表格的A3单元格中），并且不想通过复制粘贴方式获得，请教大家！谢谢！

在WORD中复制此内容后，在EXCEL中编辑/选择性粘贴/粘贴链接/文本的方式，以后你的WORD文档中的指定位置的文本更改后，EXCEL工作表中的对应单元格内容也会随之改变。

XUZHANCHENG

我觉得vba语言是为了让工作更加方便，从word到excel得处理方式很多阿，最快捷，最简单才是最好得！！！