Option Explicit Private Sub Command1_Click() Dim value As String Dim wd As Object Set wd = CreateObject("Word.Application") wd.Visible = False wd.Documents.Open ("d:\\myword.doc") Text1.Text = wd.ActiveDocument.Content.Text wd.ActiveDocument.Close (Fal
楼主太坑爹了，就这点东西5分，差评
例子有点简单，算是一个启发的案例吧
不好，太简单，还5分呢，免费的比这个都好。
简单明了，还不错！
看了一下，还是比较简单的，功能不是很全
Option Explicit Private Sub Command1_Click() Dim value As String Dim wd As Object Set wd = CreateObject("Word.Application") wd.Visible = False wd.Documents.Open ("d:\\myword.doc") Text1.Text = wd.ActiveDocument.Content.Text wd.ActiveDocument.Close (Fal
看了一下，还是比较简单的
还是有点用的