繁体   English   中英

如何在 Word 中定位刚刚添加到页面的文本框

How do I position a TextBox in Word that I've just added to a page

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我有一个包含许多矩形形状的文档。 我想在完全相同的地方用 TextBox 替换每个。 我的出发点是使用我想用文本框替换的现有已知形状(稍后我将添加进一步的自动化来处理选定的形状或所有形状)。

到目前为止,这是我的代码:

Sub Macro3()
'
' Macro3 Macro
'
'
Dim shp As Shape
Dim Box As Shape

For Each shp In ActiveDocument.Shapes.Range(Array("Group 1928"))
    shp.Select
    Set Box = ActiveDocument.Shapes.AddTextbox( _
    Orientation:=msoTextOrientationHorizontal, _
    Left:=shp.Left, Top:=shp.Top, Width:=shp.Width, Height:=shp.Height)
    Box.RelativeHorizontalPosition = shp.RelativeHorizontalPosition
    Box.RelativeVerticalPosition = shp.RelativeVerticalPosition
    Box.TextFrame.TextRange.Text = "Some text"
Next shp

End Sub

我试过设置许多其他属性,但文本框总是出现并停留在文档页面的顶部中心。

感谢您提供的任何指导。

问候蒂姆

2 个回复

例如:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, rt As Long, rl As Long, wf As Long, Shp As Shape
With ActiveDocument
  For i = .Shapes.Count To 1 Step -1
    With .Shapes(1)
      If .Type = msoAutoShape Then
        wf = .WrapFormat.Type
        rt = .TopRelative
        rl = .LeftRelative
        Set Shp = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height, Anchor:=.Anchor)
        With Shp
          .WrapFormat.Type = wf
          .TopRelative = rt
          .LeftRelative = rl
          .TextFrame.TextRange.Text = "Hello World"
        End With
        .Delete
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

试试这个。 在我看来,您不需要创建一个 TextBox,您可以简单地更改现有的框,如下所示:

Dim shp As Shape
Dim Box As Shape

scount = ActiveDocument.Shapes.Count

For i = 1 To scount
    Set shp = ActiveDocument.Shapes(i)
    shp.TextFrame.TextRange.Text = "Some txt"
    shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
    shp.Line.ForeColor.RGB = RGB(255, 255, 255)
    shp.TextFrame.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
Next i
1 添加到HTML页面的文本框

我正在尝试创建一个文本框,当在其中键入内容时,会自动在该框下添加该文本。 我知道这听起来没什么意义,但我真的需要这个,而且不知道该怎么做。 我将不胜感激。 我碰到过 但是,我尝试过它对我不起作用。 谢谢! ...

2 在Word文档VB.Net中将文本添加到现有文本框中

我公司为每位新员工创建一个欢迎信。 在此数据包中,列出他们的姓名,职称等是我们的工作。 只是word文档中的一个页面,每个页面都有文本框。 是否可以向这些现有文本框添加信息? 如果没有,如何使用新的文本框在文档中重新创建页面? 这是第三页。 我不知道这是否可能,但如果可以,请 ...

3 如何使用Microsoft.Office.Interop.Word以编程方式将文本框添加到另一个页面

我可以使用以下代码将文本框插入Word文档: 这会在文档的第一页上添加一个文本框,但即使我更改了第一个(顶部)参数,我也无法将文本框移动到第二页(仅低于第一页,任何比文本高度更高的值)第一页,它消失了)。 如何让文本框显示在文档的第2页? ...

4 通过JavaScript将文本添加到文本框中

我在论坛上执行报价功能。 当用户单击“ Quote链接时,我想将这篇文章中的内容添加到textbox(txtPost)-内容不是问题(我尝试过alert(content) ,它可以工作)。 但是“文本框”中的文本不刷新alert(txtPost.value)显示一些添加的内容等,但文本框 ...

6 将文本标题添加到文本框中

我对Delphi相对较新,这可能是一个非常基本的查询,但到目前为止我还没有找到答案。 问题是,我已经构建了一个包含无限制自由文本字段的表单,用户将在其中输入数据。 当表单加载时,我希望在文本字段中有标题,以提示用户在这些标题下做出相关注释。 有没有办法将这些标题插入自由文本字段,以 ...

2012-09-25 14:38:47 1 254   delphi
7 通过VBA宏将文本框添加到Word文档表

情况如下: 我正在使用SQL Server Reporting Service生成一个导出到Word 2010的报告。该报告本身以一组嵌套表的形式出现。 我需要能够访问这些内部表之一并将文本框添加到表中的特定单元格。 我需要以一种可以在循环中进行的方式来遍历特定表中的所有行。 r ...

10 Silverlight-如何在后面的代码中将文本框添加到堆栈面板

这只是一个测试应用程序,可以使其正常工作 我的主页绑定到保存有用于创建文本框的代码的视图模型 这是我的xaml 然后,我有一个按钮可以实际生成文本框。 这是我定义堆栈面板和创建文本框的方式。 在这里,我尝试添加文本框 它可以正常运行,但不会在我的文本框中显示 ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM