При копировании текста из екселя в ворд, необходимо к копируемому тексту применить стиль маркера кружком

@drzod · Регистрация: 27.02.2012

Author24 — интернет-сервис помощи студентам

При копировании текста из екселя в ворд, необходимо к копируемому тексту применить стиль маркера кружком.

Не подскажите как это сделать.

Копирую текст вот так, куда здесь вставить необходимый код

Visual Basic

For j = 5 To 250
                    If Sheets(1).Cells(j, i) <> "" Then
                    Sheets(1).Cells(300, 1) = Sheets(1).Cells(j, 1) & "*операции*"
                    Sheets(1).Cells(300, 1).Copy
                        With WD.Range.Find
                            .Text = "*операции*"
                            .Forward = True
                            .Execute
                            If .Found = True Then
                                .Parent.PasteAndFormat (wdFormatPlainText)
                            End If
                        End With
                    End If
                    DoEvents
                 Next j

@KoGG · 23.12.2013, 11:57

Visual Basic

                                If .Found = True Then
                                .Parent.PasteAndFormat (wdFormatPlainText)
                                .Parent.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
                                ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
                                False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
                                wdWord10ListBehavior
                            End If

Протестировать не могу.

@drzod · 23.12.2013, 15:22 **[ТС]**

Пытался как у вас с разбивкой на строки, и в одну строку пытался. Когда в одну строку ругается на Syntax Error

@KoGG · 23.12.2013, 15:59

А так:

Visual Basic

If .Found = True Then
    .Parent.PasteAndFormat (wdFormatPlainText)
    With WD.ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(0.63)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With
    WD.ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    .Parent.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
    ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
    False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
    wdWord10ListBehavior
End If

Добавлено через 5 минут
Если Excel не видит Word-овские константы, то их надо заменить на числа.

Visual Basic

If .Found = True Then
    .Parent.PasteAndFormat (22)
    With WD.ListGalleries(1).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = 0
        .NumberStyle = 23
        .NumberPosition = WD.CentimetersToPoints(0.63)
        .Alignment = 0
        .TextPosition = WD.CentimetersToPoints(1.27)
        .TabPosition = 9999999
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = 9999999
            .Italic = 9999999
            .StrikeThrough = 9999999
            .Subscript = 9999999
            .Superscript = 9999999
            .Shadow = 9999999
            .Outline = 9999999
            .Emboss = 9999999
            .Engrave = 9999999
            .AllCaps = 9999999
            .Hidden = 9999999
            .Underline = 9999999
            .Color = 9999999
            .Size = 9999999
            .Animation = 9999999
            .DoubleStrikeThrough = 9999999
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With
    WD.ListGalleries(1).ListTemplates(1).Name = ""
    .Parent.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
    ListGalleries(1).ListTemplates(1), ContinuePreviousList:= _
    False, ApplyTo:=0, DefaultListBehavior:=2
End If

Добавлено через 4 минуты
Я подразумевал, что WD - это объект Word.

@drzod · 23.12.2013, 16:27 **[ТС]**

Сообщение от KoGG

Visual Basic

WD.ListGalleries(1).ListTemplates(1).Name = ""
   .Parent.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
   ListGalleries(1).ListTemplates(1), ContinuePreviousList:= _
   False, ApplyTo:=0, DefaultListBehavior:=2

Вот эту строку в одну строчку? Или как-то разбивать надо?

Добавлено через 3 минуты
Просто в любом случае на нее ругается, если ее в одну

@KoGG · 23.12.2013, 16:29

Visual Basic

1	.Parent.ListFormat.ApplyListTemplateWithLevel ListTemplate:= ListGalleries(1).ListTemplates(1), ContinuePreviousList:= False, ApplyTo:=0, DefaultListBehavior:=2

@drzod · 25.12.2013, 05:40 **[ТС]**

Во вложении ексель с базой и вордовский файл. Необходимо, чтобы при нажатии на кнопку, макрос по каждому столбцу создавал отдельный файл согласно шаблону. Заменяя слово *операции*, на те что указаны в екселевском файле и написано в ячейке да. Вставлял в вордовский файл, каждая операция в новой строке, при этом применялся такой же маркер как и в шаблоне.
Подскажите как это сделать.

На данный момент я реализовал, чтобы проверялись строки, на отсутствие в них какого-то текста, если ячейка не пустая, то берется операция из первого столбца и вставляется в вордовский файл с точкой (точка, это просто символ). Каждая следующая операция добавляется. Но при этом у меня это не происходит в новой строке, все делается в одной

Вложение

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@drzod 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 21
	23.12.2013, 15:22 [ТС]	3
	Пытался как у вас с разбивкой на строки, и в одну строку пытался. Когда в одну строку ругается на Syntax Error 0

@drzod 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 21
	25.12.2013, 05:40 [ТС]	7
	Во вложении ексель с базой и вордовский файл. Необходимо, чтобы при нажатии на кнопку, макрос по каждому столбцу создавал отдельный файл согласно шаблону. Заменяя слово операции, на те что указаны в екселевском файле и написано в ячейке да. Вставлял в вордовский файл, каждая операция в новой строке, при этом применялся такой же маркер как и в шаблоне. Подскажите как это сделать. На данный момент я реализовал, чтобы проверялись строки, на отсутствие в них какого-то текста, если ячейка не пустая, то берется операция из первого столбца и вставляется в вордовский файл с точкой (точка, это просто символ). Каждая следующая операция добавляется. Но при этом у меня это не происходит в новой строке, все делается в одной Вложение 0