imho.ws
IMHO.WS  

Вернуться   IMHO.WS > Компьютеры > Программирование
Опции темы
Старый 10.10.2006, 15:41     # 1
vuk
Member
 
Регистрация: 11.04.2003
Сообщения: 213

vuk Известность не заставит себя ждатьvuk Известность не заставит себя ждать
Знак абзаца в поле формы MS Word (макрос)

В вордовском документе расставлены поля форм, к ним прицеплен такой макрос
Код:
ThisDocument.FormFields.Item("form").Range.Text = var1 + " """ + var2 + """" + "^p" + var3
вот это самое ^p должно вставляться в текст после обрадотки макроса как знак абзаца, а оно именно так и вставляется как текст ^p.
каким образом заставить Ворд вставлять именно знак абзаца?

З.Ы.: "RTFM" не принимается ибо мануала нету
__________________
Чтобы сделать что-то невозможное, надо не знать, что это - невозможно.
vuk вне форума  
Старый 11.10.2006, 10:23     # 2
EvroStandart
Full Member
 
Аватар для EvroStandart
 
Регистрация: 20.01.2004
Адрес: Таллинн
Пол: Male
Сообщения: 623

EvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собой
Это такой чтоли ¶?
А почему его прямо так не прописать?

ЗЫ.
Мануал есть в сетке. Примерно так:
http://office.microsoft.com/en-us/re...ls+from+macros

ЗЫЫ.
В офисе практически всегда можно включить запись макро, сделать что нужно вручную и посмотреть что он запишет.
У меня для добавления к тексту в документе получилось так:
Selection.InsertSymbol CharacterNumber:=182, Unicode:=True, Bias:=0
EvroStandart вне форума  
Старый 11.10.2006, 12:12     # 3
vuk
Member
 
Регистрация: 11.04.2003
Сообщения: 213

vuk Известность не заставит себя ждатьvuk Известность не заставит себя ждать
Цитата:
Это такой чтоли ¶?
да такой
Цитата:
А почему его прямо так не прописать?
это как? в редакторе VB, Enter - перенос строки, copy/paste не помогает

Цитата:
У меня для добавления к тексту в документе получилось так:
Selection.InsertSymbol CharacterNumber:=182, Unicode:=True, Bias:=0
угу, спсиб, тока хотелось бы прописывать не отдельной строкой, а как у меня var1 + абзац + var2

P.S.: как ни странно Selection.Find.Execute Replace:=wdReplaceAll нужные символы заменяет на ^p и получается абзац... :-\
__________________
Чтобы сделать что-то невозможное, надо не знать, что это - невозможно.
vuk вне форума  
Старый 11.10.2006, 12:25     # 4
EvroStandart
Full Member
 
Аватар для EvroStandart
 
Регистрация: 20.01.2004
Адрес: Таллинн
Пол: Male
Сообщения: 623

EvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собой
Цитата:
vuk:
угу, спсиб, тока хотелось бы прописывать не отдельной строкой, а как у меня var1 + абзац + var2
На здоровье.
А кто тебе мешает переделать этот пример под работу с переменной?
Dim x As String
x = Chr(182)
MsgBox (x)
EvroStandart вне форума  


Ваши права в разделе
Вы НЕ можете создавать новые темы
Вы не можете отвечать в темах.
Вы НЕ можете прикреплять вложения
Вы НЕ можете редактировать свои сообщения

BB код Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +4, время: 03:47.




Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.