如何在VB文本框或标签中显示Word内容

VB中如何在文本框内输入文字的同时，在标签上显示文本框中的文字~

代码如下：
1、方法一：
text1.passwordchar = "*"
sub command1_click()
label1.caption =text1.text
end sub
2、方法二：
sub command1_click()
label1.caption = string("*",len(text1.text))
end sub

扩展资料
VB书写代码的格式：
1、VB代码中不区分字母的大小写。
2、同一行可以书写多条语句，语句间用冒号“：”分隔。
3、一条语句可以写在同一行，也可以写在多行。续行符号是一个空格加下划线“_”。
4、注释语句以Rem开头，也可以使用单引号“‘”。后者注释内容可直接出现在相关语句的后面。
6、VB6中新增了“块注释/取消块注释”：在代码模式下，右击工具栏，在弹出菜单里把“编辑”项选中„„
7、变量和常量的命名规则：有数字，字母，下划线组成；字母作首字符；不超过255个字符；不能以VB关键字和系统常量做名字

两种方法:一,静态方法:在文本框属性里,直接设置文本框的默认显示值为你的文本.二,动态方法:在窗体加载事件过程里添加要默认显示的文本,如
text1.text="姓名" & space(2) & "年龄" & space(2) & "身高" 'space(2)是用空格函数生成两个空格

我有一篇文章，不知道对你有没有用。
控制word的类模块,查找、替换Word文档内容
在VB6.0中，操作word，使用它强大的查找、替换、删除、复制、翦切功能。还可以把特定字符替换成图片。有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。
只要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "SetWord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mywdapp As Word.Application
Private mysel As Object

'属性值的模块变量
Private C_TemplateDoc As String
Private C_newDoc As String
Private C_PicFile As String
Private C_ErrMsg As Integer

Public Event HaveError()
Attribute HaveError.VB_Description = "出错时激发此事件.出错代码为ErrMsg属性"
'***************************************************************
'ErrMsg代码：1－word没有安装 2 - 缺少参数 3 - 没权限写文件
' 4 - 文件不存在
'
'***************************************************************

Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer
Attribute ReplacePic.VB_Description = "查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时，替换所有"

'********************************************************************************
' 从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像
' 替换次数由time参数确定，为0时，替换所有
'********************************************************************************

If Len(C_PicFile) = 0 Then
C_ErrMsg = 2
Exit Function
End If

Dim i As Integer
Dim findtxt As Boolean

mysel.Find.ClearFormatting
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=True)
If Not findtxt Then
ReplacePic = 0
Exit Function
End If
i = 1
Do While findtxt
mysel.InlineShapes.AddPicture FileName:=C_PicFile
If i = Time Then Exit Do
i = i + 1
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=True)
Loop
ReplacePic = i
End Function

Public Function FindThis(FindStr As String) As Boolean
Attribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr则返回True"
If Len(FindStr) = 0 Then
C_ErrMsg = 2
Exit Function
End If
mysel.Find.ClearFormatting
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
mysel.HomeKey Unit:=wdStory
FindThis = mysel.Find.Execute
End Function

Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer
Attribute ReplaceChar.VB_Description = "查找FindStr,并替换为RepStr,替换次数由time参数确定,为0时，替换所有"
'********************************************************************************
' 从Word.Range对象mysel中查找FindStr，并替换为RepStr
' 替换次数由time参数确定，为0时，替换所有
'********************************************************************************
Dim findtxt As Boolean

If Len(FindStr) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Function
End If

mysel.Find.ClearFormatting
mysel.Find.Replacement.ClearFormatting
With mysel.Find
.Text = FindStr
.Replacement.Text = RepStr
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

If Time > 0 Then
For i = 1 To Time
mysel.HomeKey Unit:=wdStory
findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)
If Not findtxt Then Exit For
Next
If i = 1 And Not findtxt Then
ReplaceChar = 0
Else
ReplaceChar = i
End If
Else
mysel.Find.Execute Replace:=wdReplaceAll
End If
End Function

Public Function GetPic(PicData() As Byte, FileName As String) As Boolean
Attribute GetPic.VB_Description = "把图像数据PicData,存为PicFile指定的文件"
'********************************************************************************
' 把图像数据PicData,存为PicFile指定的文件
'********************************************************************************
On Error Resume Next

If Len(FileName) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Function
End If

Open FileName For Binary As #1

If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Function
End If

'二进制文件用Get,Put存放，读取数据
Put #1, , PicData
Close #1

C_PicFile = FileName
GetPic = True

End Function

Public Sub DeleteToEnd()
Attribute DeleteToEnd.VB_Description = "删除从当前位置到结尾的所有内容"
mysel.EndKey Unit:=wdStory, Extend:=wdExtend
mysel.Delete Unit:=wdCharacter, Count:=1
End Sub

Public Sub MoveEnd()
Attribute MoveEnd.VB_Description = "光标移动到文档结尾"
'光标移动到文档结尾
mysel.EndKey Unit:=wdStory
End Sub

Public Sub GotoLine(LineTime As Integer)
mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=""
End Sub

Public Sub OpenDoc(view As Boolean)
Attribute OpenDoc.VB_Description = "打开Word文件,View确定是否显示Word界面"
On Error Resume Next

'********************************************************************************
' 打开Word文件，并给全局变量mysel赋值
'********************************************************************************

If Len(C_TemplateDoc) = 0 Then
mywdapp.Documents.Add
Else
mywdapp.Documents.Open (C_TemplateDoc)
End If

If Err.Number <> 0 Then
C_ErrMsg = 4
RaiseEvent HaveError
Exit Sub
End If

mywdapp.Visible = view
mywdapp.Activate
Set mysel = mywdapp.Application.Selection
'mysel.Select

End Sub

Public Sub OpenWord()
On Error Resume Next

'********************************************************************************
' 打开Word程序，并给全局变量mywdapp赋值
'********************************************************************************

Set mywdapp = CreateObject("word.application")
If Err.Number <> 0 Then
C_ErrMsg = 1
RaiseEvent HaveError
Exit Sub
End If
End Sub

Public Sub ViewDoc()
Attribute ViewDoc.VB_Description = "显示Word程序界面"
mywdapp.Visible = True
End Sub

Public Sub AddNewPage()
Attribute AddNewPage.VB_Description = "插入分页符"
mysel.InsertBreak Type:=wdPageBreak
End Sub

Public Sub WordCut()
Attribute WordCut.VB_Description = "剪切模板所有内容到剪切板"
'保存模板页面内容
mysel.WholeStory
mysel.Cut
mysel.HomeKey Unit:=wdStory
End Sub

Public Sub WordCopy()
Attribute WordCopy.VB_Description = "拷贝模板所有内容到剪切板"
mysel.WholeStory
mysel.Copy
mysel.HomeKey Unit:=wdStory
End Sub

Public Sub WordDel()
mysel.WholeStory
mysel.Delete
mysel.HomeKey Unit:=wdStory
End Sub

Public Sub WordPaste()
Attribute WordPaste.VB_Description = "拷贝剪切板内容到当前位置"
'插入模块内容
mysel.Paste
End Sub

Public Sub CloseDoc()
Attribute CloseDoc.VB_Description = "关闭Word文件模板"
'********************************************************************************
' 关闭Word文件模本
'********************************************************************************
On Error Resume Next

mywdapp.ActiveDocument.Close False

If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Sub
End If

End Sub

Public Sub QuitWord()
'********************************************************************************
' 关闭Word程序
'********************************************************************************
On Error Resume Next

mywdapp.Quit

If Err.Number <> 0 Then
C_ErrMsg = 3
Exit Sub
End If
End Sub

Public Sub SavetoDoc()
Attribute SavetoDoc.VB_Description = "保存当前文档为FileName指定文件"
On Error Resume Next

'并另存为文件FileName

If Len(C_newDoc) = 0 Then
C_ErrMsg = 2
RaiseEvent HaveError
Exit Sub
End If

mywdapp.ActiveDocument.SaveAs (C_newDoc)

If Err.Number <> 0 Then
C_ErrMsg = 3
RaiseEvent HaveError
Exit Sub
End If

End Sub

Public Property Get TemplateDoc() As String
Attribute TemplateDoc.VB_Description = "模板文件名."
TemplateDoc = C_TemplateDoc
End Property

Public Property Let TemplateDoc(ByVal vNewValue As String)
C_TemplateDoc = vNewValue
End Property

Public Property Get newdoc() As String
Attribute newdoc.VB_Description = "执行CloseDoc方法时，将模板文件另存为此文件名指定的新文件.如果不指定，在执行CloseDoc方法时，将产生一个错误"
newdoc = C_newDoc
End Property

Public Property Let newdoc(ByVal vNewValue As String)
C_newDoc = vNewValue
End Property

Public Property Get PicFile() As String
Attribute PicFile.VB_Description = "图像文件名"
PicFile = C_PicFile
End Property

Public Property Let PicFile(ByVal vNewValue As String)
C_PicFile = vNewValue
End Property

Public Property Get ErrMsg() As Integer
Attribute ErrMsg.VB_Description = "错误信息.ErrMsg代码: 1-word没有安装 2-缺少参数 3-没权限写文件 4-文件不存在"
ErrMsg = C_ErrMsg
End Property

你可以使用richtextbox控件，这个控件能显示word文件，但会忽略一些标志。

1.引用:Microsoft Word 11.0 Object Library
2.定义变量
Dim MyWord As New Word.Application
Dim MyDoc As New Word.Document
3.打开文档
Set MyDoc = MyWord .Documents.Open(App.Path & "Doc1.doc")
4.根据不同的word中内容的类型进行处理,把文本信息可以赋值给对话框.
具体的操作你可以参考MSDN.

---

金州区17027125970： VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字 - ？
萧昏双歧： 代码如下: 1、方法一: text1.passwordchar = ＂*＂ sub command1_click() label1.caption =text1.text end sub 2、方法二: sub command1_click() label1.caption = string(＂*＂,len(text1.text)) end sub 扩展资料 VB书写代码的格式: 1、VB代码...

金州区17027125970： 在VB中如何使窗体二中的标签显示窗体一中文本框中输入的内容(窗体二中的标签中还有其他文字)? - ？
萧昏双歧： 先假设条件为:窗体一名称为Form1,其中文本框为text1;窗体二名称为Form2,其中文本框为text1. 窗体一上面的代码为: private Sub Text1_Change() '注意这里是changeForm3.Label1.Caption = Form3.Label1.Caption & Text1.Text end ...

金州区17027125970： vb 怎样打开文件并把文件内容显示在文本框 - ？
萧昏双歧： 1、单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们,单击“确定”按钮.2、在窗体上绘制RichText Box和Commn Dialog.3、右键窗体选择菜单编...

金州区17027125970： VB中怎么加入一个标签 - ？
萧昏双歧： 1、首先我们新建一个工程,并新建一个标准Exe工程. 2、这时候我们找到工具箱中标签框. 3、这时候我们可以直接双击控件即可成功绘制. 4、或者我们可以选中他,然后在页面上绘制. 5、如果对它的外观不满意,我们在属性窗口中修改. 6、双击控件即可进入代码窗口.完成效果图.

金州区17027125970： VB如何把文件内容显示在文本框中? - ？
萧昏双歧： VB6.0可以使用TextBok控件或RichTextBox控件实现将读入文本文件显示于控件中.1. TextBox 控件有时也称作编辑字段或者编辑控件,显示设计时输入的用户输入的、或运行时在代码中赋予控件的信息.2. 为了在 TextBox 控件中显示多行文本...

金州区17027125970： 编写VB程序,求三个数中最大值MAX.要求:用文本框输入整数,用标签显示结果,画出窗体效果. - ？
萧昏双歧： 窗体上放3个文本框text1,text2,text3和一个标签Label1,一个按钮Command1,双击按钮,里边输入以下代码 max=val(text1.text) a=val(text2.text) b=val(text3.text) if max<a then max =a if max<b then max=b label1.caption=max

金州区17027125970： 我在vb中画了一个文本框控件Text1,要用一个标签Lable1来显示所选文字的起始位置和Lable2来显示所选文字的 - ？
萧昏双歧： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'检测用键盘来选择文字的情况 Label1.Caption = ＂所选文字的起始位置:＂ & Text1.SelStart Label2.Caption = ＂所选文字的长度:＂ & Text1.SelLength End Sub Private Sub Text...

金州区17027125970： Vb编程题中:通过文本框输入一个整数x, 判断x能否被2整除,判断结果在标签中显示.怎么用标签显示 - ？
萧昏双歧： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTryDim num As Integernum = CInt(TextBox1.Text)If num > 0 And num Mod 2 = 0 ThenLabel1.Text = ＂偶数＂ElseIf num > 0 ...

金州区17027125970： 在VB中,如何在标签中显示非数字字符的个数? - ？
萧昏双歧： (1) len(s)(2) c(3) or(4) myfun(5) myfun(s)

金州区17027125970： 如何在文本框或标签控件里显示不同颜色的文字 - ？
萧昏双歧： Vb中Label或者Text只能设置一种文字颜色,无法使部分文字变色 但可以换一种思路,例如 在label中,如果想将部分文字设为其他颜色,可以在label控件上再加一个与这些文字宽度相等的新的label,平时隐藏,改变文字时,显示,并使它上面的文字显示为制定颜色,且调整位置至与原来的文字重叠,就可以达到使部分文字变色的目的了.