В моем случае перед вызовом команды мне пришлось сначала «CD» («Изменить каталог») в соответствующий каталог, так как исполняемый файл, который я вызывал, был в моей директории проекта.
Пример:
cd "$(SolutionDir)"
call "$(SolutionDir)build.bat"
Это можно сделать немного более эффективно / элегантно, чем код, размещенный в «обновлении». Полагаться на значения Start
и End
всегда немного сложно с Word, поскольку Word может вставлять «скрытый» контент в поток текста. Чтобы добраться до начала или конца Range
, более надежно использовать Collapse
. Это также будет быстрее, чем делать вычисления со значениями.
Dim rng as Word.Range
Set rng = myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
With
'.Start = 0 'Not necessary as this will be the default position
.text = "TEXT LINE 1" & vbLf
'.End = Len(.text) 'Also not necessary, see further down...
.Font.Name = "Courier New"
.Font.Size = 10
.Font.Bold = True
.Font.Color = wdColorGreen
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Collapse wdCollapseEnd 'put focus at end of range
'.Start = Len(.text) + 1 'calculation not necessary as range has been collapsed
.text = "TEXT LINE 2"
'.End = Len(.text) + .Start 'not necessary
.Font.Name = "Calibri Light"
.Font.Size = 16
.Font.Bold = False
.Font.Color = wdColorBlack
End With