[Word VBA] Замена с извращениями

[amix]

Плиз, хелп!

Не могу никак додуматься, как можно провести в документе вот такую хитрую замену:
В документе более двухсот сносок. Хочется заменить сразу все знаки сносок в тексте такими же числами, но просто в верхнем индексе, а сами сноски в концах страницы поудалять. Хочется как-то автоматизировать процесс.

Огромное спасибо заранее!!!

[GSerg]

В общем случае это сложно, потому что footnote.reference.text не возвращает номер сноски.
У тебя там сноски пронумерованы как?

[amix]

В общем случае это сложно, потому что footnote.reference.text не возвращает номер сноски.
У тебя там сноски пронумерованы как?

В этом вся и лажа. Треть сносок вручную переделали до меня... так что с 66 до 216.

Но в принципе, я извратился и с пом. макроса SaveIt тов. Орлова (нашел на сайте microsoft.ru/offext). Преобразовал все сноски в обычные (были концевыми), сноски поудалял, а сами числа таки преобразовались в верхний индекс, но это уже гиперссылки. теперь избавляюсь от них.

Но все же интересно, хотя б, как переделать текущую сноску в цикле в верхний индекс.

[lord0n]

а давай вмести подумаем: что будет если поставить макрос на запись и выставить верхний индекс
как думаешь?

[amix]

а давай вмести подумаем: что будет если поставить макрос на запись и выставить верхний индекс
как думаешь?

Попробовал. ставлю на запись,выделяю. лезу в абзац-шрифт. выставляю. стоп.
просматриваю. Ничего нет странно...

[GSerg]

Пару страниц приаттачь

[lord0n]

а давай вмести подумаем: что будет если поставить макрос на запись и выставить верхний индекс
как думаешь?

Попробовал. ставлю на запись,выделяю. лезу в абзац-шрифт. выставляю. стоп.
просматриваю. Ничего нет странно...

вот что записалось у меня

Код: Выделить всё


    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 12
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = True
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With


[amix]

Не, приаттачить не могу Это может даже докторская или еще выше диссертация моей начальницы на работе

Ага, с тем, что записалось, ща поэкспериментирую ТОлько все-же ничего похожего на верхний абзац не вижу....

Вот исходный кусок кода, который я ща мучаю (копирайты оставлю - (с) Орлов А.А., 1999 г.):

Код: Выделить всё


    ActiveDocument.Endnotes.Convert
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
rr = ActiveDocument.Hyperlinks.Count
nn = ActiveDocument.Footnotes.Count
For ii = 1 To nn
snn = "snoska" + Trim(Str$(ii))
naz = "nazad" + Trim(Str$(ii))
   ff = ActiveDocument.Footnotes(ii).Range
    Selection.EndKey Unit:=wdStory
Selection.TypeText Text:=Trim(Str$(ii)) + " "
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=snn
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=ff + "   "
Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToAbsolute, Count:=ii
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", SubAddress:=snn
    Selection.TypeBackspace
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=naz
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.Font.Superscript = wdToggle
    Selection.TypeText Text:=Str$(ii)
  Selection.EndKey Unit:=wdStory
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", SubAddress:=naz
    Selection.TypeBackspace
    Selection.TypeText Text:=tekst + Chr$(13)
Next ii


Никак не могу его почистить от того, что мне не нужно... Автор, видимо, комментарии оставлять не любит

[lord0n]

.Superscript = True
этот кусок отвечает за верхний индекс

[amix]

Так, еще вопрос, если можно. Каким оператором добавляется текст?
Или чего поменять в коде, который я процитировал, чтоб вместо гиперссылок добавлялось просто значение переменнной ii (ессно с .Superscript = True)

Заранее еще раз огромное спасибо

ЗЫ Я работаю с VB, c VBA сталкиваюсь впервые, так что не удивляйтесь плиз тупым моим вопросам

[lord0n]

Так, еще вопрос, если можно. Каким оператором добавляется текст?

Код: Выделить всё


Selection.TypeText Text:="dfkjghkdfghdkfjghd"


[amix]

О! Все получилось! Спасибо огромное.

Теперь вот какой вопрос. Значится так: ищем сноску, нашли. Если перед ней есть, например, точка, то удаляем точку. Как это дело реализовать?

[GSerg]

dim r as range

...
set r=thisdocument.range(footnote.start-1, footnote.start)
if r.text = "." then r.delete

[amix]

footer не работает, т.к., видимо, из-за версии ворда. Он 97ой.
Предполагаю, что вместо него Footnote заработает. Но нет

Код: Выделить всё



dim r As Range

For ii = 1 To nn

...

Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToAbsolute, Count:=ii

    Set r = ThisDocument.Range(Footnote.Start - 1, Footnote.Start)
    If r.Text = "." Then r.Delete

    Selection.Font.Superscript = True
    Selection.TypeText Text:=Str$(ii)
    Selection.Font.Superscript = False ' правильно ли я добавляю точку
    Selection.TypeText Text:="."        ' сняв шрифт верхнего индекса?
    Selection.EndKey Unit:=wdStory

...

Next ii



[GSerg]

footnote - это псевдокод исходя из твоей фразы "ищем сноску, нашли."

[amix]

Вопрос: есть несколько подрядстоящих символов, например abc. Как символ "a", например сделать .Font.Superscript = False, "b" сделать .Font.Superscript = True, "b" сделать .Font.Superscript = False?