Word VBA - перевод текущей позиции каретки?
Формулировка задачи:
Скажу сразу, в Word-овском VBA пришлось первый раз копаться, но что поделать, возникла необходимость. А вопрос такой: как переместить каретку в конец документа. Вопрос у меня возник, когда я создал таблицу и мне нужно под ней еще дописать текст:
все отлично, но как в конец документа перейти или вообще в произвольное место, какими методами это делается в word?
все отлично, но как в конец документа перейти или вообще в произвольное место, какими методами это делается в 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д