编辑: 所以我想我看到了换行符的来源,它是SpecNumber字符串的一部分/函数。 SpecNumber字符串由以下代码创建,该代码从文档的顶行文本中提取数字。
'extract spec number from first line of specification. removes first word ("Section")
FirstLine = ActiveDocument.Paragraphs(1).Range.Text
'create array based on text in first line
SpecNumberArray = Split(FirstLine, " ")
'extract each word from array, except the first, combine into SpecNumber variable
For i = LBound(SpecNumberArray) + 1 To UBound(SpecNumberArray)
SpecNumber = SpecNumber & CStr(SpecNumberArray(i)) & " "
Next
我不知道此代码中的内容会导致换行符包含在字符串中,我尝试添加一些代码来从字符串中删除换行符,但没有成功。
原件:
我一直致力于将文档数据添加到word文档页脚的表格中。 除了我输入规格编号(字符串)和页码(字段)的一个单元格外,我已经完全具备了这个功能。两条信息都是"存放"正确到单元格,但页码在新行上显示。
我正在努力实现这一目标:
xx xx xx - y
其中" xx xx xx"是字符串SpecNumber(字符串)和" y"是页码(文档字段)
相反,我得到了这个:
xx xx xx
相关代码部分如下:
'insert page number
Set myrange = mytable.Cell(2, 1).Range
myrange.End = myrange.End - 1
myrange.Collapse wdCollapseEnd
ActiveDocument.Fields.Add Range:=myrange, Type:=wdFieldEmpty, Text:="Page"
'insert spec number and dash
myrange.InsertBefore SpecNumber & " - "