ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Word VBA - перевод текущей позиции каретки?
2 сообщений из 2, страница 1 из 1
Word VBA - перевод текущей позиции каретки?
    #32406047
Guilty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guilty
Гость
Скажу сразу, в Word-овском VBA пришлось первый раз копаться, но что поделать, возникла необходимость. А вопрос такой: как переместить каретку в конец документа. Вопрос у меня возник, когда я создал таблицу и мне нужно под ней еще дописать текст:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
    Dim docActive As Document
    Dim tblNew As Table
    Dim celTable As Cell
    Dim rowTable As Row
    Dim i As Integer

    Call FillArray
    
    Set docActive = New Document
    Set tblNew = docActive.Tables.Add(Range:=docActive.Range(Start:= 0 , end:= 0 ), NumRows:= 1 , NumColumns:= 3 )
    tblNew.Borders.OutsideLineStyle = wdLineStyleSingle
    tblNew.Borders.OutsideLineWidth = wdLineWidth025pt
    tblNew.Borders.InsideLineStyle = wdLineStyleSingle
    tblNew.Borders.InsideLineWidth = wdLineWidth025pt
    
    tblNew.Columns( 1 ).Width = CentimetersToPoints( 1 )
    tblNew.Columns( 2 ).Width = CentimetersToPoints( 2 . 2 )
    tblNew.Columns( 3 ).Width = InchesToPoints( 3 )
    
    Set rowTable = tblNew.Rows( 1 )
    rowTable.Cells( 1 ).Range.Text =  "Заголовок1" 
    rowTable.Cells( 2 ).Range.Text =  "Заголовок2" 
    rowTable.Cells( 3 ).Range.Text =  "Заголовок3" 
    
    For i =  1  To  10 
        Set rowTable = tblNew.Range.Rows.Add()
        rowTable.Cells( 1 ).Range.Text = myRecords(i).n
        rowTable.Cells( 2 ).Range.Text = myRecords(i).account
        rowTable.Cells( 3 ).Range.Text = myRecords(i).surname
    Next i


все отлично, но как в конец документа перейти или вообще в произвольное место, какими методами это делается в word?
...
Рейтинг: 0 / 0
11.02.2004, 16:47
| Ответить | Цитировать | Написать  
Word VBA - перевод текущей позиции каретки?
    #32406629
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Вот что предлагает сам ворд при записи макроса:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
    Selection.HomeKey Unit:=wdStory  -- В начало документа
 
    Selection.EndKey Unit:=wdStory  -- В конец документа
 
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:= "2 "  -- На 2 страницу
 
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:= 20 , Name:= "" -- На 20 строчку
 
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:= 1 , Name:=" " -- На 1 таблицу
 
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:= 2 , Name:=""  -- На 2 раздел

. http://sql.ru/]mahoune
...
Рейтинг: 0 / 0
12.02.2004, 09:48
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Word VBA - перевод текущей позиции каретки?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]