1.怎么把输出在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,就可以查到了。
2.VB如何读入Word的内容
Set oApp = CreateObject("Word。
Application") oApp。Visible = False Set oDoc = oApp。
Documents。Open(strFile)'strFile为文件路径 '获得最后一段的内容 Dim length As Long '整个文档的长度 Dim i As Long length = oDoc。
Content。StoryLength Content = oDoc。
Content。Text Dim s As String For i = 1 To length If Mid$(Content, i, 1) = Chr$(13) Then s = s + vbCrLf Else s = s + Mid$(Content, i, 1) End If Next i oDoc。
Close True oApp。Quit False txtMx = s。
3.求一个完整的用vb窗体界面打开一个word文件的实例我在网上找了 爱
我试试吧,请您联系我,我的邮箱是:diligent2011@ ,请您先不要给我分,如果做不好就不用给了,如果您满意的话再给分。
回答完毕,祝您好运。 我最近比较忙,但是昨晚抽空帮您做好了一个可以用打开对话框打开一个Word显示到窗体的一个OLE控件上,可是还有一个问题就是由于昨晚我的电脑没电了那个控件的滚动条没加,您可以自己加上,方法是将OLE控件放到 picturebox上,然后给picturebox加滚动条,这样就可以显示Word的全篇内容了,我现在在外边等我下午回去之后把作品发给您,由于时间有限没有做美化,可能界面很难看望多包涵。
4.在vb编写的界面里如何操作word
这个题目太大了吧。
能不能缩小一下范围呢?不说的话给你来点范文吧。============================将格式应用于选定内容下列示例使用 Selection 属性将字符和段落格式应用于选定文本。
使用 Font 属性获得字体格式的属性和方法,使用 ParagraphFormat 属性获得段落格式的属性和方法。Sub FormatSelection() With Selection.Font .Name = "Times New Roman" .Size = 14 .AllCaps = True End With With Selection.ParagraphFormat .LeftIndent = InchesToPoints(0.5) .Space1 End WithEnd Sub将格式应用于某一区域下列示例定义了一个 Range 对象,它引用了活动文档的前三个段落。
通过应用 Font 和 ParagraphFormat 对象的属性来设置 Range 对象的格式。Sub FormatRange() Dim rngFormat As Range Set rngFormat = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(1).Range.Start, _ End:=ActiveDocument.Paragraphs(3).Range.End) With rngFormat .Font.Name = "Arial" .ParagraphFormat.Alignment = wdAlignParagraphJustify End WithEnd Sub插入文字并应用字符和段落格式下列示例在当前文档的上部添加单词 Title。
第一段居中对齐,并在该段落之后添加半英寸的间距。将单词 Title 的格式设为 24 磅 Arial 字体。
Sub InsertFormatText() Dim rngFormat As Range Set rngFormat = ActiveDocument.Range(Start:=0, End:=0) With rngFormat .InsertAfter Text:="Title" .InsertParagraphAfter With .Font .Name = "Tahoma" .Size = 24 .Bold = True End With End With With ActiveDocument.Paragraphs(1) .Alignment = wdAlignParagraphCenter .SpaceAfter = InchesToPoints(0.5) End WithEnd Sub在 12 磅和无之间切换段前间距下列示例切换选定内容中第一段的段前间距。宏将获取当前段前间距的值,如果该值为 12 磅,则删除段前间距格式(将 SpaceBefore 属性设为零)。
如果段前间距的值为除 12 外的其他数值,则将 SpaceBefore 属性设为 12 磅。Sub ToggleParagraphSpace() With Selection.Paragraphs(1) If .SpaceBefore <> 0 Then .SpaceBefore = 0 Else .SpaceBefore = 6 End If End WithEnd Sub切换加粗格式下列示例切换选定文本的加粗格式。
Sub ToggleBold() Selection.Font.Bold = wdToggleEnd Sub将左边距增加 0.5 英寸下列示例将左边距和右边距增加 0.5 英寸。PageSetup 对象包含文档的所有的页面设置属性(左边距、下边距、纸张大小等)。
LeftMargin 属性用于返回和设置左边距设置。RightMargin 属性用于返回和设置右边距设置。
Sub FormatMargins() With ActiveDocument.PageSetup .LeftMargin = .LeftMargin + InchesToPoints(0.5) .RightMargin = .RightMargin + InchesToPoints(0.5) End WithEnd Sub。
5.如何用vb窗体界面查找并打开一个word文件,最好有vb工程实例
模糊查找?比较难哦。
打开文件倒是简单:
PrivateDeclare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
PrivateConst SW_SHOWNORMAL As Long = 1
PrivateConst SW_HIDE As Long = 0
'调用
Call ShellExecute(Me.hWnd, "Open", "c:\aaa.doc", vbNullString, _
vbNullString, SW_SHOWNORMAL)
6.如何用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
'完成操作
我通过剪切板来获取文本,因为这样可以保留格式(本人独创)
如果直接获取也是可以的,不过格式全部丢失,所以我的方法会更好一点
转载请注明出处51数据库 » vb界面录入到word