Вставить заголовок таблицы VBA Word

Question

Я пытаюсь вставить заголовок в таблицу слов, но мне кажется, что я не контролирую положение параметра. Я посмотрел на документацию и Position: = wdCaptionPositionAbove должен написать заголовок в верхней части таблицы, а Position: = wdCaptionPositionBelow должен написать в нижней части таблицы. Но я всегда делаю это на одной стороне с записанным ниже кодом. Когда я записывал код, подписи были созданы в правильном положении.

Selection.InsertCaption Label:="Table", TitleAutoText:="InsertCaption3", _
        Title:="", Position:=wdCaptionPositionAbove, ExcludeLabel:=0
Selection.InsertCaption Label:="Table", TitleAutoText:="InsertCaption4", _
        Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0

Я заметил, что заголовок будет написан выше, если я вручную создаю один заголовок и устанавливаю его выше. Но тогда я не могу создать подпись ниже, кроме случаев, когда я вручную создаю одну подпись ниже.

Как мне установить положение подписи (сильфон / над таблицей) с помощью VBA.

Answer 1

Страница справки MS на InsertCaption использует спецификацию c Диапазон таблицы, поэтому может быть так, что ваш диапазон не соответствует таблице? Чтобы увидеть страницу справки MS для InsertCaption, наведите курсор на «InsertCaption» в VBA IDE и нажмите F1.

Таким образом, я бы предложил вам попробовать

Selection.Tables(1).Range.InsertCaption