WORD中文本框的一些参数

lqian889

求VBS对WORD中文本框参数设置的代码，比如要设置文本框内的文字垂直居中，文本框无边框。
现附上VFP中的代码（VFP的代码是从VBS转换而来）
* 新增一个文本框，
doc=CREATEOBJECT("Word.application")
doc.Documents.add
doc.Visible =.T.
*doc.ActiveDocument.Shapes.AddTextbox(a,b,c,d,e)  && a-2字左旋90度/3字右旋90度，b-左边距离，c-Top顶边距离，d-文本框宽度，e-文本框高度
doc.ActiveDocument.Shapes.AddTextbox(1,200,10,200,80)

*--------------------------------------------------------
_cliptext=" "
doc.ActiveDocument.Shapes.Item(1).Select
doc.ActiveDocument.Shapes.Item(1).TextFrame.TextRange.Paste
doc.Selection.TypeText("我是第一个文本框")
*--------------------------------------------------------
*下列语句出错
* VB-》TextAlign属性：0-文字靠左对齐，数字与日期靠右对齐：1-文字、数字与日期均靠左对齐：2-文字、数字与日期均置中对齐
*                     3-文字、数字与日期均靠右对齐：4-文字、数字与日期均平均分散对齐

*doc.Selection.Shapes.Item(1).top = 30
*doc.Selection.Shapes.Range(1).TextAlign =  2
*--------------------------------------------------------
doc.ActiveDocument.Shapes.Range(1).Select
doc.Selection.ParagraphFormat.Alignment = 1     && 文本对齐方式：0-左对齐，2-右对齐，1-中间对齐
doc.Selection.Font.Name = "宋体"
doc.Selection.Font.Size = 12
RETURN

lqian889

在zhanglei1371大侠的帮助下，圆满解决。
代码如下：
owrd.Selection.ShapeRange.TextFrame.VerticalAnchor = 3  && 文本框内文本对齐方式：1-顶端对齐，3-中部对齐，4-底端对齐

413191246se

楼主，你可以在 Word 中录制一下文本框的宏，再按 F8 逐步运行一下，会了解不少。

lqian889

413191246se 发表于 2019-7-27 20:01
楼主，你可以在 Word 中录制一下文本框的宏，再按 F8 逐步运行一下，会了解不少。

貌似无法录制到对文本框操作的宏

413191246se

楼主，在 Word2003 中，我可以录制一个可以对文本框边框线进行各种设置的宏呢！再试试。

lqian889

413191246se 发表于 2019-7-28 12:06
楼主，在 Word2003 中，我可以录制一个可以对文本框边框线进行各种设置的宏呢！再试试。

谢谢，我用的是2016，明我到单位试试2003

wdpfox

学习中，受益匪浅，谢谢分享！

                                        莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！