Edit: так что я думаю, что вижу, откуда исходит разрыв строки, это часть / функция строки 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 & " - "