Статьи из блога

Как определить номер параграфа, в котором найден фрагмент текста

Анатолий задал вопрос:


Как определить номер (pos) параграфа (Paragraphs), в котором найден нужный фрагмент, с тем, чтобы я смог его в дальнейшем использовать?


Например, можно определить текущую позицию курсора в сантиметрах с помощью следующего макроса:



Option ExplicitSub 
HorPos()
'Определение позиции курсора по горизонтали в сантиметрах
Dim Location As Double
Location = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
MsgBox PointsToCentimeters(Location)
End Sub



Если нужно определить номер параграфа, то это можно сделать так:

Sub numPar()
'Определяем номер текушего абзаца (параграфа), где стоит курсор
Dim sN As Long
sN = ActiveDocument.Range(1, Selection.Start).Paragraphs.Count
MsgBox sN
End Sub
twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования Microsoft Word:

Оставьте комментарий!

(обязательно)

^ Наверх