在notes中怎样将word中的文本拷贝到excel的表格中？

[SaintLee]

请指教

[ntko]

set obj = createobject("word.application")
...
然后使用obj打开word文档，同样，用另外一个obj打开excel文档.

其实跟vba编程差不多。

[SaintLee]

能不能具体点

[ntko]

下面是一个按钮的click示例，供参考：

Sub Click(Source As Button)
Dim text As String
Set wordapp=CreateObject("Word.Application")
If Isempty(wordapp) Then
Messagebox "请先安装WORD。",64,"提示"
Goto errclear
End If
Call wordapp.documents.add
Set WordSourceDoc= wordapp.activedocument
Set selection=wordapp.selection
Call selection.TypeText ("测试文本" )
wordapp.Visible = True
wordapp.WindowState = 1

'获取Word文件内容
text = wordapp.ActiveDocument.Content.Text
'创建excel 电子表
Set excelapp=CreateObject("Excel.Application")
If Isempty(excelapp) Then
Messagebox "请先安装Excel。",64,"提示"
Goto errclear
End If
excelapp.Workbooks.Add
Call excelapp.Worksheets.add
Call excelapp.ActiveSheet.Range("B2").Select
excelapp.selection.Value = text
excelapp.Visible = True
excelapp.WindowState = 1
errclear:
Set selection= Nothing
'Call WordSourceDoc.close(False)
'Set WordSourceDoc = Nothing
'Set wordapp = Nothing
' Call excelapp.activeworkbook.close(False)
'Set excelapp = Nothing
End Sub

[yixinxu]

用com的方式也可以