Спойлер в Ворде - VBA

  1. Здравствуйте, не подскажите как создать?


textual

Код к задаче: «Спойлер в Ворде - VBA»

Sub main()
    On Error Resume Next
    For Each shap In Me.Shapes
            Debug.Print "Index: "; shap.ZOrderPosition
            Debug.Print "Name: "; shap.Name
            Debug.Print "Text: "; shap.AlternativeText
            Debug.Print "========================="
    Next shap
End Sub

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.357 из 5



Похожие ответы
  1. Добрый день! Требуется написать программу в VBA: Дан текст, слова которого отделяются друг от друга пробелами. Вывести исходный текст, таким образом, чтобы все слова, длиной более пяти символов, начинались бы с прописной буквы. Я написал, но у меня выходит что все слова выводит с прописной буквы, как изменить мой код-формирование строки вывода (именно изменит мой) чтоб только слова длинной более 5 выводило с прописной ?

  1. Здравствуйте,помогите пожалуйста написать код к задаче: Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше — положительное или отрицательное.

  1. День добрый... Подскажите, где я "туплю": При вызове ReloadFIO говорит "несовпадение типов 13":

  1. Форумчане, помогите кто-нибудь! Перерыл все что мог, но бестолку. Макрос открывает адрес страницы сайта, если прописать ссылку в самом макросе или переменной присвоить ссылку. Но если переменой присвоить ячейку, где находится ссылка сайта, то на .send выдает ошибку. Как открыть адрес страницы, которая находится в ячейке листа Екселя?strURL = "http://www.cyberforum.ru/vba/" - открывает strURL = Cells(1,1) - не открывает !!! With CreateObject("Microsoft.XMLHTTP") .Open "GET", strURL, "False" .send If .statustext = "OK" Then s = .responsetext 'HTML-код страницы End If End With

  1. Добрый день! Нужна помощь. Есть 1000 файлов эксель *.xls в каждом по 9 вкладок(в некоторых определенная вкладка может отсутствовать) и на каждой стоит фильтр. У меня есть Add-on RDBMerge который объеденяет по определенной вкладке, но дело в том, что фильтр он не трогает и половина информации не копируется. Можно ли сделать макро который просто пройдется по всем файлам и просто снимет фильтры, сохраняя файл? Заранее спасибо!!

  1. Как вычислить п такого ряда. п/4=1-1/3+1/5-1/7±... 100 членов

  1. Каким образом можно создать массив объектов, если его размер можно определить только по ходу выполнения программы? VBA просит константу

  1. Доброго времени суток. Столкнулся со следующей проблемой. Есть рабочий лист (в коде это переменная ws) На листе есть таблица которая в зависимости от данных в книге расширяется право и вниз. Граница "неизменной шапки" таблицы определена именованным диапазоном StartData. Есть код удаления всех старых данных в таблице

  1. необходимо сосдать красворд, на раабочем листе 1 разместить ячейки с вопросами это я сделала, проверка правильных ответов выполняется по нажатию на кнопку "проверка". повторный щелчёк по данной кнопке не допускается. количество правильно угаданных слов выводитсяс помощью диалогового окна. правильно угаданные слова должны оставаться на листе. после закрытия рабочей книги содержимое крассворда удаляется. как вот это можно сделать.

  1. ...Вот только в 6 классе нам не впаривали VBA и не заставляли решать задачи с его помощью. Задача: сколькими способами можно разложить на равные кучки 36 орехов? Описать способы разложения на равные кучки.