A. vb.net 如何創建一個word文檔
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.IO.Directory.CreateDirectory("C:\我的文件夾") '創建目錄,路徑就自己內改吧,如果路徑存在,就沒必要創建了
System.IO.File.Create("C:\我的文件夾\我的文件.doc") '在指容定目錄下創建word文檔
End Sub
B. 怎麼用VB自動生成一個word文件啊
工仔廳程旦戚滲下引用microsoft word 11.0 object library
Private Sub Command1_Click()
Dim word1 As Word.Application
If word1 Is Nothing Then
Set word1 = CreateObject("word.application"模脊)
word1.Visible = True
word1.Documents.Add
End If
End Sub
C. 怎樣在VB中輸出word文檔
Dim WordApp As Word.Application'定義word應用變數
Dim newDoc As Word.Document'定義word文檔變數臘者褲
Set WordApp = CreateObject("Word.Application")'創建新的word應用
WordApp.Visible = True
With WordApp
Set newDoc = .Documents.Add(App.Path & "\報告單\食品水質報告.Doc")'在創建的word應用中新建一個新的word文檔
With .Selection
.GoTo wdGoToBookmark, , , "bh" bh為word文檔中的對應位置的標簽名
.TypeText PrnBID'寫內容
.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName為word文檔中的對應位置嫌純的標簽名
.TypeText PrnGName'寫內容
Set MyRS = Nothing
End With
' newDoc.SaveAs FileName:=FilePath
End With
' If theError = 429 Then WordApp.Quit
Set WordApp = Nothing
在事先做好的word文檔中要寫內容的位置設輪簡定好標簽,然後在程序中找到標簽,再寫入數據
D. 如何在VB中建立word文檔,並寫入文字和圖片
首先說明,你這樣是寫TXT,不是DOC,雖然Word可以打開,但根本就不是Word文件。當然不能存儲圖片了。請參考我以下的代碼。建一個Command1。
================
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'這個過程不必做修改,是建立一個新的Word文檔
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="請輸入你要輸入的內容"
'插入文字,請使用這種格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入圖片,請使用這種格式,路徑自己寫
End
Sub
其他問題再找我。
E. VB 生成word文檔
Dim ap As Word.Application, doc As Document
Private Sub Form_Load() '這個過程不必做修改,是建立一個新的Word文檔
Set ap = CreateObject("word.application"談孫)
ap.Visible = False
Set doc = ap.Documents.Add
End Sub
Private Sub Command1_Click()
'doc.Content.InsertAfter Text:="請輸入你要輸入的內容" '插入文字,請使用這種格含陪鏈式
doc.Content.InsertAfter Text1.Text
doc.SaveAs App.Path & "\a.doc"亂察
doc.Close
End Sub
F. vb中如何生成一個word文檔 [問題點數:100分,結帖人lyb826]
Word提供了一個Word對象,通過在「引用」中的該對象,可以實現對Word的控制。以下的代碼演示了執行WordBasic語句埋臘,該段代碼是動態引用對象,無須在工程中引用Word對虛純象。
DimwdAsObject
Setwd=CreateObject("Word.Basic")
wd.FileNewDefault
wd.FontSize20
wd.Insert"Hello,World"
wd.FileSaveAs"Hello.Doc"
wd.FileClose
執行後,將產生一個Hello.Doc。一個種辦法是在Word中調試好WordBasic語句後,再彎譽滑發布到VB中。類似的處理應該也可以用在Execl中。
G. VB中如何生成一個WORD文檔(有圖)
程序採用VB編程畝高實現,需要機器安裝有VB應用程序及Microsoft Office組件。打開VB,新建一個VB工程,取名Proc_Word,將啟動窗體命名為FrmMain,選擇「工基尺程」菜單中的「引用」,在「引用」對話框中選擇 「Microsoft Word8.0 Object Library」(這一步很重要,你必須選擇這一ActiveX部件,否則代碼不能正確運行,順便說一句,如果安裝的是Office2000,那麼應該選擇「Microsoft Word9.0 Object Library」)。同時在「工程」菜單中「部件」對話框中選擇添加「Microsoft Windows common controls -2.5(sp2)」,以便在窗體搏耐高設計中可以使用微調控制項。
H. 如何用VB調用WORD文檔,請高手進,謝謝~!~
知道,不過不能直接讀取,因為微軟沒有公布加密方式,所以要調用WORD來讀取,然後獲取它
先在工程的引用裡面加上Microsoft Word 11.0 Object Library
Dim 剪切板文本
Dim Word文字處理系統界面 As Word.Application '建立一個word.application對象
Dim Word文檔 As Word.Document
Dim Word文檔文本 As Word.Selection '在word文字處理系統中添加一個文檔
Set Word文字處理系統界面 = CreateObject("Word.Application") '選擇對象
Word文字處理系統界面.Visible = False '不顯示word.application,即word文字處理系統界面
Set Word文檔 = Word文字處理系統界面.Documents.Open(文件路徑)
Set Word文檔文本 = Word文字處理系統界面.Selection
Word文檔文本.WholeStory
Word文檔文本.Copy
剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中
Text1.Text = 剪切板文本
'Clipboard.SetData Temp
Word文檔.Close '關閉文檔
Word文字處理系統界面.Application.Quit
Set Word文字處理系統界面 = Nothing '清空變數
Set Word文檔文本 = Nothing
'完成操作
我通過剪切板來獲取文本,因為這樣可以保留格式(本人獨創)
如果直接獲取也是可以的,不過格式全部丟失,所以我的方法會更好一點
I. 怎麼把輸出在VB窗口界面上內容直接存為TXT或WORD文件
是這樣,如果你想保存所有的輸出內容為txt文件要用open命令。這個命令在不同的vb版本中用法不太一樣,Open
pathname
For
mode
[Access
access]
[lock]
As
[#]filenumber
[Len=reclength]舉個例子:
open
"c:\aa.txt"
for
output
as
#1
print
#1,
"asdfasdf
"
close
#1
將"asdfasdf
"
保存到"c:\aa.txt",輸出語句print
#1,(在這兒可以用變數)比如form1.text1.text是保存本窗體文本框中的內容。詳細用法建議去msdn中查看。也可以在搜索引擎中搜vb
open,就可以查到了。
J. 別人發給我的VB程序圖標變成WORD文檔圖標,打開也是以WORD的形式。請問有什麼辦法可以解決呢
你看看他發給你的到春啟州底是不是WORD,如果是的,那就只能說他發錯旁虛了,如果不是,那你扒蔽右擊,選打開方式,然後選VB就好了