在页眉处添加文本框

dongdonggege · 发表于 2016-4-18 17:16

求助，如何在页眉处添加文本框？使用程序，谢谢！

不经意的回头 · 发表于 2016-4-18 17:56

第1步，插入-页眉-空白页眉；
第2步，插入-文本框，对文本框进行编辑，简单示例如下图，欢迎追问。

banjinjiu · 发表于 2016-4-18 21:43

不经意的回头发表于 2016-4-18 17:56
第1步，插入-页眉-空白页眉；
第2步，插入-文本框，对文本框进行编辑，简单示例如下图，欢迎追问。

楼主问的是，程序如何写？

banjinjiu · 发表于 2016-4-18 23:28

Sub 页眉插入文本框()
Dim shp As Shape
Set shp = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddTextbox(msoTextOrientationHorizontal, 250, 41, 100, 30)
'横排文本框wdTextOrientationHorizontal,竖排文本框msoTextOrientationVertical
shp.TextFrame.TextRange.Text = "成功了"
End Sub

复制代码

dongdonggege · 发表于 2016-4-19 09:24

不经意的回头发表于 2016-4-18 17:56
第1步，插入-页眉-空白页眉；
第2步，插入-文本框，对文本框进行编辑，简单示例如下图，欢迎追问。

谢谢，辛苦了

dongdonggege · 发表于 2016-4-19 09:27

banjinjiu 发表于 2016-4-18 23:28

感谢，特别感谢

		自动登录	找回密码
密码			免费注册

[求助] 在页眉处添加文本框