Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Копирование гиперссылки в WORD
 
Как добиться, чтобы при копировании гиперссылки макросом из Excel в Word, в Word это тоже была гиперссылка, а не просто текст?
Сохранение надстрочных /подстрочных символов в ячейке
 
Очень большой объём придётся восстанавливать, файл очень огромный.
Забыл уточнить, что в файле примера необходимо в ячейке все знаки # заменить на ALT-ENTER (CHR (10)).При такой замене вручную всё получается как надо, а при замене макросом  -  надстрочные/подстрочные символы в ячейке не сохраняются. Обидно.
Сохранение надстрочных /подстрочных символов в ячейке
 
Как с помощью макроса добиться, чтобы сохранялись надстрочные/подстрочные символы в ячейке?
В приложенном файле приведён пример.
Работа сразу с несколькими документами word
 
Необходимо из макроса Excel в цикле из одного файла word выбирать информацию, а в другой файл word вставлять.
Как создать две переменных, которые бы указывали на разные файлы word?

Sub СоздатьФорму()

Dim ObjWord As Object
Dim Источник As Object
Dim Приемник As Object

On Error Resume Next
Set ObjWord = GetObject(, "Word.Application")
If ObjWord Is Nothing Then
   Set ObjWord = CreateObject("Word.Application")
End If
Set Приемник = ObjWord.Documents.Open("F:\Приемник.doc")
Приемник.Visible = True
Set Источник = ObjWord.Documents.Open("F:\Источник.doc")
Источник.Visible = True
On Error GoTo 0

With Приемник ' при поиске по файлу Приемник.doc возникает ошибка "OBJECT DOESN' T SUPPORT THIS PROPERTY OR METHOD"
       .Visible = True
       .Selection.HomeKey Unit:=wdStory
           With .Selection.Find
           .ClearFormatting
           .Text = "***"
           .Replacement.Text = ""
           .Forward = True
           .Wrap = wdFindContinue
           .Format = False
           .MatchCase = False
           .MatchWholeWord = True 'слово целиком
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
           End With
   If .Selection.Find.Execute Then
           .Selection.Delete
-
-
- и т.д.
Страницы: 1
Наверх