- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在编写一个 Excel VBA 宏,它将文本复制到 Word for Windows 文件中,并且
稍后为其添加格式。
它使用包含 Logo 的 .dotx 模板。左下角是一个带有序列号的文本框。序列号的文本被写入
垂直(从底部向上)。
通过反复试验,我设法将一个序列号写入文本框
使用:
serialnumber = "abc1x"
wdoc.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes(2).TextFrame.TextRange.text
= serialnumber
Dim uRange As Object
Dim uneven As Object
Set uneven = wdoc.Sections(1).Footers(wdHeaderFooterPrimary)
Set uRange = wdoc.Sections(1).Footers(wdHeaderFooterPrimary).Range
uRange.Delete
uneven.Range.InsertAfter "Page "
uRange.SetRange Start:=uneven.Range.End + 1, End:=uneven.Range.End + 1
wdoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Add
Range:=uRange, Type:=wdFieldEmpty, text:= _
"PAGE \* Arabic ", PreserveFormatting:=True
uRange.SetRange Start:=uneven.Range.End + 1, End:=uneven.Range.End + 1
uneven.Range.InsertAfter " of "
uRange.SetRange Start:=uneven.Range.End + 1, End:=uneven.Range.End + 1
wdoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Add
Range:=uRange, Type:=wdFieldEmpty, text:= _
"NUMPAGES \* Arabic ", PreserveFormatting:=True
最佳答案
有很多方法可以解决这个问题。所有都涉及“折叠”目标Range
在插入下一件事(文本或域代码)之前。
前段时间,我编写了一组通用函数,这样我就可以轻松地插入文本和域代码的任意组合,而不必为每个组合“调整”。
首先定义Range
目的。如果您可能想要保留任何内容,请将其折叠。手续InsertNewText
和 InsertNewField
拿下目标Range
和要插入的文本,分别是要插入的字段的字段代码。 Range
的崩溃在这些过程中完成并传递回调用过程以进行下一步。
Sub InsertTextAndFields()
Dim rngContent As Word.Range
Set rngContent = wdoc.Sections(1).Headers( _
wdHeaderFooterEvenPages).Shapes(2).TextFrame.TextRange
rngContent.Collapse wdCollapseEnd
Set rngContent = InsertNewText(rngContent, "abc")
Set rngContent = InsertAField(rngContent, "Page")
Set rngContent = InsertNewText(rngContent, "x")
End Sub
Function InsertNewText(rng As word.Range, newText As String) As word.Range
rng.Text = newText
rng.Collapse wdCollapseEnd
Set InsertNewText = rng
End Function
Function InsertAField(rng As word.Range, _
fieldText As String) As word.Range
Dim fld As word.Field
Dim rngField As word.Range
Set fld = rng.Document.Fields.Add(Range:=rng, _
Text:=fieldText, PreserveFormatting:=False)
Set rngField = fld.result
rngField.Collapse wdCollapseEnd
rngField.MoveStart wdCharacter, 1
Set InsertAField = rngField
End Function
关于Excel Vba 转 Word : How to write a pagenumber into a textframe?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50334181/
是否有可能只为两页或更多页显示 django pisa 的页码?显示页码的模板如下所示: Page 我认为有必要在 pisa 处理它们之前获取页数。使用像这样的伪 if/else 语句的任
我有一个 django rest 框架的简单分页类: class StandardResultsSetPagination(PageNumberPagination): page_size =
我有一个没有标题的 .rdlc 报告(我有组标题) 我想将 PageNumber 放在组标题上。 如果我使用 Globals!PageNumber 我会得到这个错误: textrun 'Textbox
我在我的 cshtml 页面中使用 jqgrid。问题是网格区域很窄,所以我希望网格寻呼机中的页码字段出现在页面中网格附近的其他地方。我只需要重新定位页码字段,而不是寻呼机本身。 最佳答案 页码 字段
我有一个名为 Book 的 Parse 类。其中有一列 pageNumber。 我想查询每个页码的最新对象。可以有多个对象具有相同的 pageNumber,这就是为什么我只想查询 pageNumber
我正在编写一个 Excel VBA 宏,它将文本复制到 Word for Windows 文件中,并且 稍后为其添加格式。 它使用包含 Logo 的 .dotx 模板。左下角是一个带有序列号的文本框。
已关闭。此问题旨在寻求有关书籍、工具、软件库等的建议。不符合Stack Overflow guidelines .它目前不接受答案。 我们不允许提问寻求书籍、工具、软件库等的推荐。您可以编辑问题,以
据我了解,要从物理内存访问页面,CPU 会为请求的页面生成 PageNumber 和 PageOffset。逻辑 PageNumber 内容随后被页表条目中的物理 PageNumber 内容替换。因此
虽然在网上阅读了大量可用资源,但我找不到一个明确的解释: 在什么情况下需要同时分配 PageingInfo.PageNumber 和 PageingInfo.PagingCookie 的值? 例如:假
为什么我找不到reader.getPageN(1)?也无法从 PdfReader.java 中找到它。我该如何解决这个问题? 最佳答案 您似乎正在尝试使用 iText5 代码,同时使用 iText7
我正在编写一个脚本,该脚本可以将来自 Internet 的 PDF(不将其保存到磁盘)转换为一系列 jpeg,然后将 JPG 保存到 AWS s3。 不幸的是,下面的代码仅将 PDF 的第一页以 JP
我是一名优秀的程序员,十分优秀!