Поиск
... объекту для открытия.
With objworddoc
Word.Application.ScreenUpdating = 0
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\блок ...
Word.Selection.WholeStory
Word.Selection.Find.ClearFormatting
Word.Selection.Find.Replacement.ClearFormatting
With Word ... Paragraphs.FirstLineIndent = CentimetersToPoints(1.25)
Word.Application.ScreenUpdating = 1
objworddoc.SaveAs ... :=False
objwordapp.Quit
objworddoc.Quit
Word.Application.Quit
Kill path_protokol_sverxnorma_na_obshestvo_bez_decreta_fail & ...
Изменен: 29.08.2024
Читать сообщение на форуме или сайте. ... окно для выбора файла шаблона Word
Dim wordFilePath As String
... )
.Title = "Выберите файл шаблона Word"
.Filters.Clear
.Filters ... .Add "Word Documents", "*.doc" ... Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is ... Set objWrdApp = CreateObject("Word.Application")
End If
On ... l + 1
' Обновление закладок в Word данными из Excel
With objWrdDoc ...
Изменен: 10.02.2025
Читать сообщение на форуме или сайте. ... из Excel таблицы в документ Word - пропадает форматирование :(
Если я просто ... мышкой вручную и вставляю в Word специальной вставкой с сохранением форматирования ... происходит - не получается, тк не Word уже не попадает в запись ... .....
Пробовал записать макрос в Word - не знаю как применить записанный ... ;#39; копирование
With CreateObject("Word.Application").Documents.Add & ... ;#39; создание документа Word
.Range.PasteSpecial (xlPasteFormats) ' ...
Изменен: 25.09.2024
Читать сообщение на форуме или сайте. ... Вас уже готовый шаблон в Word с таблицей, может стоит и ... закладками?
Немного потренировался с VBA Word)
Sub FromExcelToWord()
Dim objWord As ... Next
Set objWord = GetObject(, "Word.Application")
If objWord Is ... Then Set objWord = CreateObject("Word.Application")
On Error GoTo ...
Изменен: 21.03.2025
Читать сообщение на форуме или сайте.Автор: artem_sib. Получите ссылку на открытый экземпляр Excel/Word. Такой способ работает, если открыт один экземпляр/процесс (excel.exe/winword.exe). Если запущено несколько, тогда хуже: надо ещё найти нужный Excel/Word.Set xlApp = GetObject("Excel.Application")
Set wdApp = GetObject("Word.Application")
Изменен: 04.03.2025
Читать сообщение на форуме или сайте. ... = 0
' Найти открытое приложение Word (это может быть и Outlook ... = GetObject(, "Word.Application")
' Если Word-приложение не найдено, то ... Set objWord = CreateObject("Word.Application")
End If
objWord ... With
' Добавть новый абзац в Word
objWord.Selection.TypeParagraph
' Cкопировать ... , Format:=xlPicture
' Вставить в Word
objWord.Selection.Paste
' Снять в ... = False
' Активировать окно Microsoft Word (закомментировать строку ниже, если не ...
Изменен: 23.08.2017
Читать сообщение на форуме или сайте. ... Object: Set WA = CreateObject("Word.Application") ' без подключения библиотеки ... Word
WA.Visible = True ' отобразить Word
For Each row ... False: DoEvents 'закрыть созданый документ Word
p = p + a
End With ... , , "Завершение работы приложения Microsoft Word", " ", " " ... ;
'WA.Quit True: 'закрыть приложение Word
pi.Hide
msg = "Сформировано ...
Изменен: 18.01.2017
Читать сообщение на форуме или сайте. ... которая автоматически формирует документы Word по шаблону. Задача чтобы ... Set WA = New Word.Application ' c подключением библиотеки Word
' 'Set WA ... = CreateObject("Word.Application") ' ... WA = New Word.Application ' c подключением библиотеки Word
Set WA = ... CreateObject("Word.Application") ' ... , "Завершение работы приложения Microsoft Word", " ", " ...
Изменен: 22.09.2015
Читать сообщение на форуме или сайте.Автор: cfo25. Доброго дня! Помогите, пожалуйста, с решением задачи - есть похожие на форуме, но не совсем то.
Необходимо информацию из файлов в word перенести с помощью vba на отдельные листы в excel.
Исходные данные и требуемый отчет прилагаю.
Спасибо!
Изменен: 02.12.2024
Читать сообщение на форуме или сайте. ... строчке 'вставляем скопированные ячейки в Word - в начала документа
...
' Purpose : Создаем новый экземпляр Word, копируем туда диапазон Excel и ... As Object
'создаем новое приложение Word. м
Set objWrdApp = CreateObject ... Copy
'вставляем скопированные ячейки в Word - в начала документа
objWrdDoc ... 0).Paste
'закрываем документ Word с сохранением
objWrdDoc.Close ... True
'закрываем приложение Word - обязательно!
objWrdApp.Quit
'очищаем ...
Изменен: 20.02.2016
Читать сообщение на форуме или сайте. ... Sub
'функция выгрузки в Word значений полей формы через закладки ... = CreateObject("Word.Application") 'создаем объект Word, чтобы можно было ... .Visible = True 'запускаем приложение Word
.Documents.Open strPathWord 'открываем документ ... nn:
Set app = New Word.Application 'делаем ссылку на объект ... Visible = True 'запускаем приложение Word
app.Documents.Add strPathDot 'присоединяем ... к объекту Word шаблон по заданому пути
With ...
Изменен: 17.06.2017
Читать сообщение на форуме или сайте. ... Запуск приложения Microsoft Word"
' Dim WA As Word.Application, WD As ... Word.Document: Set WA = ... New Word.Application ' c подключением библиотеки Word
Dim ... Object: Set WA = CreateObject("Word.Application") ' без подключения библиотеки ... Word
For Each row In ActiveSheet. ... , , "Завершение работы приложения Microsoft Word", " ", " & ...
Изменен: 20.03.2017
Читать сообщение на форуме или сайте. ... карта_расскроя As New Word.Application Dim параграф As Word.Paragraph Dim страница ... As Word.List Dim детали ... Dim шаблонн_заготовки As Word.Shape Dim надпись_размеры As Word.Shape Dim ширина ... Private Sub шаблон(карта_расскроя As Word.Application, заготовка As брусок) Dim ... Dim надпись_размеры As Word.Shape Dim шаблон_заготовки As Word.Shape заготовка.размер_длинаХширина ...
Изменен: 24.10.2016
Читать сообщение на форуме или сайте. ... интересно. Вставляет таблицу и с word файла, и excel таблицы.
Необходимо ... подключить библиотеки word и outlook.
Sub test()
Dim ...
Dim WA As Word.Application
Dim wdDoc As Word.Document, WDSaved As ... Word.Document
Dim oTable As ... .CreateItem(olMailItem)
Set WA = New Word.Application
With olEmail
.BodyFormat = olFormatHTML ... \Desktop\ITEM.docx") 'открыть word файл
Set oTable = WDSaved.Tables ...
Изменен: 08.01.2016
Читать сообщение на форуме или сайте.