添加字符串和字段时,页脚表格单元格中断

时间:2018-05-23 17:20:47

标签: vba ms-word

编辑: 所以我想我看到了换行符的来源,它是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 & " - "

0 个答案:

没有答案