因此,我试图编写一个代码,在word文档中的每一页的表上添加一个文本框。此文本框将居中以与表对齐(我没有问题在每一页上生成一个居中的表)。我最近才开始在VBA工作,所以我的知识有点缺乏。到目前为止,这是我的代码,它是我可以在网上找到的一种混搭。
Sub TextMaker()
'
' TextMaker Macro
'
'
Dim i As Long, Rng As Range, Shp As Shape
Dim objDoc As Document
Dim objTextBox As Shape
Set objDoc = ActiveDocument
我正在创建一个Word VBA宏来插入一个包含图像及其标题的文本框架,然后在主文档文本中创建对它的交叉引用。
但是,如果标题位于文本框架中,Word将找不到标题。
以下是说明性代码:
Sub ShowMe()
Dim items() As String
items = ActiveDocument.GetCrossReferenceItems("Figure")
MsgBox ("Found " & UBound(items))
End Sub
如果标题是主文档文本中内联的内容(比如图片、表格或段落),它就会找到它
我的程序必须在PDF Acrofield上做一些样式。其中之一是将文本在多行文本域(而不是富文本域)中水平和垂直居中。我设法用下面的代码将它水平居中: var centeredField = stamper.AcroFields.GetFieldItem(field.Name);
centeredField.GetWidget(0).Put(PdfName.Q, new PdfNumber(PdfFormField.Q_CENTER)); 但是我找不到任何方法使文本垂直居中。任何帮助都是非常感谢的。