1

Тема: Особое форматирование текста

Здравствуйте.
Прошу Вас, ГУРУ, помочь вот в каком вопросе: У меня электронная читалка, которая понимает формат .doc Но вот беда, дети уронили, и теперь на ЖК экране появилось пятно, которое мешает нормальному чтению текста. Съедаются слова или их части. Файлы на читалку перекидываю с компа, и появилась идея сделать в документе Word так, чтобы в этом месте, где черное пятно из ЖК кристаллов, происходило автоматическое обтекание текста. То есть нужно, чтобы при вставке текста, скопированного из вне, в документ Ворд, на каждой странице автоматически в одном и том же месте появлялась рамка, вокруг которой обтекал бы текст. Формат рамки под ЖК пятно я подгоню, но как сделать, чтобы при вставке текста в документ, такая рамка появлялась бы на каждой странице документа – не знаю((    У меня  Офис 2003 под Win XP.
Если такое решение возможно, прошу Вас помочь советом.
Спасибо.

2

Re: Особое форматирование текста

Можно попробовать, настройте в файле Word одну-две страницы с рамкой и выложите файл на форум

3

Re: Особое форматирование текста

Вот файл. В том месте, где не должно быть текста, я вставил автофигуру, но вместо неё можно сделать абсолютно любой рисунок или какое-то поле. Главное чтобы туда не попадал текст.

Post's attachments

byikov_vasil_.doc 31.5 Кб, 3 скачиваний с 2012-07-23 

You don't have the permssions to download the attachments of this post.

4

Re: Особое форматирование текста

1. Откройте редактор VBA
2. Откройте проект Normal
3. Откройте модуль ThisDocument
4. Скопируйте в модуль код

Public Sub Пятно()
Dim shp As Shape
Dim Pg As Page
Dim Rect As Rectangle
    With ActiveDocument.Range.PageSetup
        .PaperSize = 7
        .BottomMargin = 0
        .LeftMargin = 14
        .RightMargin = 21
        .TopMargin = 7
    End With
    For Each Pg In ActiveDocument.ActiveWindow.ActivePane.Pages
        Set Rect = Pg.Rectangles(1)
        Selection.Start = Rect.Range.Start
            Set shp = ActiveDocument.Shapes.AddCanvas(405, 135, 170, 86, Selection.Range)
                shp.Visible = msoTrue
                    With shp.WrapFormat
                            .DistanceBottom = 9
                            .DistanceRight = 9
                            .DistanceTop = 9
                            .DistanceLeft = 9
                            .Side = wdWrapBoth
                            .Type = wdWrapSquare
                    End With
    Next Pg
End Sub

5. Нажмите Сохранить
6. Закройте редактор VBA
7. Откройте нужный Вам документ
8. Откройте меню макросов и выберете макрос Пятно
9. Нажмите выполнить

5

Re: Особое форматирование текста

aap77 - просто СУПЕР !!!
Огромное спасибо!
Спасли читалку!

6

Re: Особое форматирование текста

Всегда пожалуйста smile