|
Платные хостинги
Раскрутка сайта
Книги по программированию
VBA For Word, Не работает перевод строки
- Wrd.Selection.Find.Execute FindText:="[address]", ReplaceWith:="Country" & Chr(13) & Chr(13) & "av. Aseerte, 123"
- Попытался найти ответ и-и-и.... мне это тоже интересно стало... Какой же код символа переноса строки у Word? Кто знает?
- Код Selection.Find.Execute FindText:="[address]", ReplaceWith:="Country" & Chr(13) & Chr(13) & "av. Aseerte, 123"highlightSyntax('vbNGJmMW','vb');Так все же правильно! Зачем тут два раза Chr(13) я не понял, но это не суть. Код символа переноса строки это 13.
- Хм... , а может вот так Selection.TypeParagraph вот это точно строку переводит в Ворде!
- Да ...... cardinal прав это мой касяк я просто запарился и воткнул туда два 13 я почемуто подумал что ... да ладно проехали там должен быть один перевод. Но Ворд действительно себя странно ведет при таком переводе ! у меня например пропадает кнопка в которой прописан перевод , а курсор где стоял там и стоит , а вот с этим Selection.TypeParagraph все ОК. Код Wrd.Selection.Find.Execute FindText:="[address]", ReplaceWith:="Country" & Selection.TypeParagraph & "av. Aseerte, 123"highlightSyntax('vbjRiZWZ','vb');
- Нет я помоему не прав ! Selection.TypeParagraph в этом блоке не работает ! Автор : ты помоему что-то намудрил Selection.Text = "Country" & Chr(13) & "av. Aseerte, 123" вот так все работает !Ты ищешь слово по документу и заменяешь его ??!!Selection.Find.ClearFormatting With Selection.Find .Text = "address" .Replacement.Text = "" End With Selection.TypeParagraph Selection.Text = "Country" & Chr(13) & "av. Aseerte, 123" Selection.Find.ExecuteEnd SubМожет ты вот так попробуешь ?
- Да ...кому как , но я органически не выношу когда в ворде работают с таблицами и на работе у себя постоянно воюю с персооналом. А вообще системный перевод строки это Chr(13) ...... это как соль ! она соленая и все тут !!! Странно ! у меня все работает независимо где в таблице стоит искомая строка.
- а она пригодилась
- Ну блин ...век живи век учись )) cardinal - тебе по рейтингу +10 .
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
