Word VBA - перевод текущей позиции каретки?

Узнай цену своей работы

Формулировка задачи:

Скажу сразу, в Word-овском VBA пришлось первый раз копаться, но что поделать, возникла необходимость. А вопрос такой: как переместить каретку в конец документа. Вопрос у меня возник, когда я создал таблицу и мне нужно под ней еще дописать текст:

все отлично, но как в конец документа перейти или вообще в произвольное место, какими методами это делается в word?

Решение задачи: «Word VBA - перевод текущей позиции каретки?»

textual
Листинг программы
Selection.HomeKey Unit:=wdStory <font color="darkblue"><i>-- В начало документа
<br></i></font><br>    Selection.EndKey Unit:=wdStory <font color="darkblue"><i>-- В конец документа
<br></i></font><br>    Selection.<font color="blue">GoTo</font> What:=wdGoToPage, Which:=wdGoToNext, Name:=<b><font color="green">"<b><font color="darkblue">2</font></b>"</font></b> <font color="darkblue"><i>-- На 2 страницу
<br></i></font><br>    Selection.<font color="blue">GoTo</font> What:=wdGoToLine, Which:=wdGoToFirst, <font color="blue">Count</font>:=<b><font color="darkblue">20</font></b>, Name:=<b><font color="green">"" <font color="darkblue"><i>-- На 20 строчку
<br></i></font><br>    Selection.<font color="blue">GoTo</font> What:=wdGoToTable, Which:=wdGoToFirst, <font color="blue">Count</font>:=<b><font color="darkblue">1</font></b>, Name:="</font></b><b><font color="green">" <font color="darkblue"><i>-- На 1 таблицу
<br></i></font><br>    Selection.<font color="blue">GoTo</font> What:=wdGoToSection, Which:=wdGoToFirst, <font color="blue">Count</font>:=<b><font color="darkblue">2</font></b>, Name:="</font></b>" <font color="darkblue"><i>-- На 2 раздел 
<br></i></font><br>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.625 из 5