高分相送：想在程序中调用WORD，实现公文排版功能，Word能嵌入到VB中吗，到什么程度？

Question

我想知道能不能把几乎整个word嵌入到应用程序中,包括word功能菜单。
能说发个运行是的界面吗？[email protected]

Answer 1

只针对行政机关公文的，功能单一、实用。
http://down.tyfo.com/down/soft/pc/trade/others/web/ihtml/2002-10-25/20021025,111050,8039.shtml

Answer 2

简单的功能，实现将Execl的数据写到Word，
你的其实和这个差不多，只是需要自己找找相应的函
Dim appWd as Word.Application 
Err.Number= 0 
On Error GoTo notloaded 
Set appWd = GetObject(, "Word.Application.8") 
Notloaded: 
If Err.Number = 429 Then 
  Set appWd = CreateObject("Word.Application.8") 
  TheError = Err.Number 
End If 
AppWd.Visible = True 
With appWd 
  Set myDoc = .Documents.Add 
  With .Selection 
    For Each c in Worksheets("Sheet1").Range("A1:B10") 
      .InsertAfter Text:=c.Value 
      Count = Count + 1 
      If Count Mod 2 = 0 Then 
        .InsertAfter Text:=vbCr 
      Else 
        .InsertAfter Text:=vbTab 
      End If 
    Next c 
    .Range.ConvertToTable Separator:=wdSeparateByTabs 
    .Tables(1).AutoFormat Format:=wdTableFormatClassic1 
  End With 
  MyDoc.SaveAs FileName:="C:\Temp.doc" 
End With 
If theError = 429 then appWd.Quit 
Set appWd = Nothing

Answer 3

我要的是在程序中用word编辑文档，里面要包含所有word菜单

Answer 4

Private Sub Command1_Click()
     
Set appWord = CreateObject("Word.Application")
        appWord.Visible = False
   Set docWord = appWord.Documents.Open("D:\111.dot")
   Set tblWord = docWord.Tables.Item(1)
   tblWord.Cell(2, 2).Range.Text = Form1.combo1.Text
   tblWord.Cell(4, 2).Range.Text = Form1.Text7.Text
    tblWord.Cell(6, 2).Range.Text = Form1.Text8.Text
   If Option2.Value = True Then
    tblWord.Cell(3, 1).Range.Text = Form1.Text1.Text
docWord.Save
docWord.Close
appWord.Quit
Set docWord = Nothing
Set appWord = Nothing  Unload Me
  
Form2.Show vbModalend subPrivate Sub Form_Load()
  
    OLE1.CreateLink ("D:\111.dot")
    OLE1.DoVerb
    OLE1.Action = 7
   
    
    OLE1.object.Application.Visible = False
    
End SubPrivate Sub Form_Unload(Cancel As Integer)
   OLE1.object.Application.Quit
   
End Sub
你在理里思路，我的方法能实现你的要求，别望了 引用 word 9.0 object liabry
我的是插入表格中的，你可以具体实现？？
  祝你做好

Answer 5

双击   ole  控件的区域，  变可打开 word 文当