Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Помогите пожалуйста. Пишу диплом. Очень нужен макрос для копирования определенного количества символов из текста документа Word с последующей вставкой их в поля свойств файла. В одно поле максимум вмещается 32768 символов.
Со свойствами документа работают так:
Dim D As Word.Document
Set D = ActiveDocument
D.BuiltInDocumentProperties(wdPropertyAuthor).Value = Selection.Text
' или так
D.CustomDocumentProperties.Add _
Name:="Свойство1", _
LinkToContent:=False, _
Type:=msoPropertyTypeString, _
Value:=Selection.Text
' или так
D.CustomDocumentProperties("Свойство1").Value = Selection.TextА в чем проблема с количеством символов?
Спасибо. У меня диплом по защите информации. Мне нужно, чтобы макрос выделял текст блоками по 32768 символов и загонял в поля свойств по очереди.
Ловим:
Const c_Length& = 32768 ' длина блока
Dim D As Word.Document
Dim R As Word.Range
Dim N&
N = 0 ' счетчик блоков
Set D = ActiveDocument
' начало текста
Set R = D.Range(0, 0)
' захват текста
Do While R.MoveEnd(Unit:=wdCharacter, Count:=c_Length) > 0
' запись свойства
N = N + 1
D.CustomDocumentProperties.Add _
Name:="Блок " & CStr(N), _
LinkToContent:=False, _
Type:=msoPropertyTypeString, _
Value:=R.Text
' конец документа
If R.End >= R.StoryLength Then Exit Do
' конец текста
R.Collapse Direction:=Word.wdCollapseEnd
LoopПолучите "отлично" - с Вас магарыч 
Спасибо большое. Все получилось
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Макрос для копирования определенного количества символов
Конечно, персональный или переносной компьютер далеко не пишущая машинка, с этим не спорит никто. Однако, все же набор и редактирование текста – одна из важнейших областей его применения. Наш сайт о Microsoft Office Word даст ответ про: открыть документ word 2003 онлайн. В отличие от той же машинки он может делать это умно, грамотно: проверить орфографию, сократить для вас необходимость ручной работы. Наш сайт о Microsoft Office Word даст ответ про: в ворде не убирпется цвет текста. Но и настройки редактор требует гораздо большей, чем машинка, особенно, если говорить о таком гиганте, как Microsoft Word. На портале о Microsoft Office Word вы узнаете про: сочетание клавиш при печати.
На сайте, а так же форуме, где обсуждают Word - Ворд Эксперт, можно узнать о программе много нового, найти необходимые вам макросы и шаблоны, получить ответы на вопросы по тем или иным функциям в разных версиях. На портале о Microsoft Office Word вы узнаете про: поменять стиль в ofice 2007.
Большое внимание уделено настройкам, потому что одну и ту же операцию в Ворде можно выполнить несколькими различными способами, рассказаны и показаны самые удобные из них. На портале о Microsoft Office Word вы узнаете про: можно ли отследить сделанные в word изменения. Вы можете поближе ознакомиться с надстройками Ворда (то есть созданием макросов, программированием и так далее), все объясняется просто и на доступном языке. Наш сайт о Microsoft Office Word даст ответ про: 7. когда применяется неразрывный пробел?.
Возможно, то с чем вы придете на форум, уже обсуждалось или нужное вам решение вывешено в соответствующем разделе. Наш сайт о Microsoft Office Word даст ответ про: как проставить нумерацию списка в ворде. У форума удобная структура, так что вы легко отыщите необходимое. Если же по каким-либо причинам найти требуемую информацию не удастся, можете оставить заявку. На портале о Microsoft Office Word вы узнаете про: шаблон титульного листа рамка.