蒙娜二哈
一、滚动文本框中的文本怎么自动滚动
1、PowerPoint中调出“控件工具箱”（如下图）。用菜单“视图”—>“工具栏（T）”—>“控件工具箱”
2、选择“控件工具箱”的“文本框”工具（图中圆圈所指）。
3、用“文本框”工具在幻灯片上画出一个方框，在这个框上“单击鼠标右键”—>调出“文本框”属性窗口。主要设置以下属性：
(1)Font属性：设置显示文字的字体及字号大小和字体修饰等。
(2)ForeColor属性：设置窗体的的颜色。
(3)Locked属性：设置是否锁定文本框中的内容。当值为True时，不能在放映时修改。
(4)MultiLine属性：设置文本内容是否要多行显示。当值为True时，可以显示多行内容。
(5)ScrollBars属性：设置文本滚动条的显示方式。值为0-fmScrollBarsNone 不要滚动条，1-fmScrollBarsHorizontal 只要水平滚动条，2-fmScrollBarsVertoal 只要垂直滚动条，3-fmScrollBarsBoth 同时显示水平和垂直滚动条。
(6)Text和value属性：所要呈现的文本内容。通常是在其它软件中编辑好后，采用“复制-粘贴”的方法来输入，其中只要输入一个，另一个即自动出现了。
(7)TextAlign属性：文本中内容的对齐方式。1—fmTextAlignLeft左对齐，2—fmTextAlignCenter居中对齐 3—fmTextAlignRight右对齐。
(8)WordWrap属性：True-段落内允许文本换行，False—不允许换行。
4、只要根据实际需要设定好参数后，就可以按要求实现了这个功能，如果要进行窗口内文本的编辑，可在窗口中单击鼠标右键，在弹出的菜单中选择“文字框对象（O）”—>“编辑”即可实现编辑的重新编辑。
二、如何获取Word文本框的名称
问题有点奇怪，如果不知道名称，如何知道要赋值哪一个文本框？
我看来有两个问题，第一个是获取名称：
Sub getTextboxName()
For i = 1 To ThisDocument.Shapes.Count
If ThisDocument.Shapes(i).Type = msoTextBox Then Debug.Print ThisDocument.Shapes(i).Name
Next
End Sub
第二个问题是赋值【赋值不一定要用Name，用序号也可以】
赋值的例子：
Sub getTextboxName()
For i = 1 To ThisDocument.Shapes.Count
If ThisDocument.Shapes(i).Type = msoTextBox Then
Debug.Print ThisDocument.Shapes(i).Name
'ThisDocument.Shapes(i).TextFrame.TextRange = "abc" & i
ThisDocument.Shapes(ThisDocument.Shapes(i).Name).TextFrame.TextRange = "xyz" & i
End If
Next
End Sub注释掉的哪行就是用序号引用赋值，下面的用名称来引用赋值
三、word2010 vba 判断是否有文本框
可以先把文本框的内容读出来，替换后再放进去。
Sub test()
Dim T&, tbox As Object
For Each tbox In ActiveDocument.Shapes
If tbox.Type = msoTextBox Then
MsgBox tbox.Name & ": " & tbox.TextFrame.TextRange.Text
T = T + 1
End If
Next
MsgBox "TextBox QTY: " & T
End Sub
四、vba word 获取文本框的文字
Sub Example()
Dim myObject As Object
'对于浮动式文本框控件
Set myObject = ActiveDocument.Shapes(1).OLEFormat.Object
MsgBox myObject.Text
'对于嵌入式文本框控件
Set myObject = ActiveDocument.InlineShapes(1).OLEFormat.Object
MsgBox myObject.Text
'对于word的文本框图形（非控件）
Set myObject = ActiveDocument.Shapes(1).TextFrame.TextRange
MsgBox myObject.Text
End Sub
五、word怎样一次性替换多个文本框的内容
创建以下宏
Sub 替换word文本框内容（） Dim mShape As Shape Dim tmpString As String
For Each mShape In ActiveDocument.Shapes If mShape.Type = msoTextBox Then
tmpString = mShape.TextFrame.TextRange.Text
mShape.TextFrame.TextRange.Text = Replace(tmpString， "查找内容"， "替换内容") End If Next End Sub
将查找内容跟替换内容更换即可
六、vba 检索word文档里面是否有插入文本框并且返回文本框所在的页数
Sub test()
Dim T&, tbox As Object
For Each tbox In ActiveDocument.Shapes
If tbox.Type = msoTextBox Then
MsgBox tbox.Name & ": " & tbox.TextFrame.TextRange.Text
T = T + 1
End If
Next
MsgBox "TextBox QTY: " & T
End Sub
七、VBA操作word 的文本框
sub example()
dim myobject as object
'对于浮动式文本框控件
set myobject = activedocument.shapes(1).oleformat.object
msgbox myobject.text
'对于嵌入式文本框控件
set myobject = activedocument.inlineshapes(1).oleformat.object
msgbox myobject.text
'对于word的文本框图形（非控件）
set myobject = activedocument.shapes(1).textframe.textrange
msgbox myobject.text
end sub
转载请注明出处51数据库 » word文本框的textframe.t
