Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2017, 10:32   #1
sevik111
Пользователь
 
Регистрация: 12.05.2011
Сообщений: 12
По умолчанию создание txt файла из выделенного (макрос)

День добрый. Нужна помощь в создании макроса.
При выделении в вордовском документе нужно что бы создавался текстовый документ с именем выделенного жирным (как правило в начале текста идет жирный шрифт, после уже идет обычный текст).
Пример: Мама - человек родной и близкий. Так вот, нужно создать txt "мама" с текстом "человек родной....... ". И если можна чтобы сохранялось в мою папку на диске "d" папка "Текстовые файлы". Вот моя заготовка.
Код:
Sub созданиеtxtизвыделенного()
'
' созданиеtxtизвыделенного Макрос
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=26
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=10, Extend:=wdExtend
    ChangeFileOpenDirectory "D:\Текстовые файлы\"
    ActiveDocument.SaveAs2 FileName:="Абацвиж.txt", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=1251, InsertLineBreaks:=False, AllowSubstitutions:=False _
        , LineEnding:=wdCRLF, CompatibilityMode:=0
End Sub

Заранее благодарен за помощь.

Последний раз редактировалось sevik111; 20.10.2017 в 13:23. Причина: исправление неточности
sevik111 вне форума Ответить с цитированием
Старый 20.10.2017, 13:24   #2
sevik111
Пользователь
 
Регистрация: 12.05.2011
Сообщений: 12
По умолчанию

добавил исходный документ от которого отталкивался
Вложения
Тип файла: docx Абацвиж (сорт винограда).docx (13.7 Кб, 12 просмотров)
sevik111 вне форума Ответить с цитированием
Старый 20.10.2017, 16:32   #3
sevik111
Пользователь
 
Регистрация: 12.05.2011
Сообщений: 12
По умолчанию

Все нашел и разобрался. Немного подправил условие (благодаря The_Prist). Собственно вот результат и рабочий макрос.

Код:
Sub Макрос4()
Dim s As String, li As Long
 
With Selection.Characters
    For li = 1 To .Count
        If .Item(li).Bold = False Then
            Exit For
        End If
    Next
    If li > 1 Then
        s = Replace(Mid(Selection.Text, 1, li - 1), vbCr, "")
    Else
        MsgBox "Среди выделенного текста нет жирного шрифта вначале", vbInformation
        Exit Sub
    End If
End With
 
 
Selection.Copy
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.PasteAndFormat (wdFormatOriginalFormatting)
ActiveDocument.SaveAs FileName:=ThisDocument.Path & "\" & s & ".txt", FileFormat:=wdFormatText, _
    Encoding:=1251, LineEnding:=wdCRLF
    ActiveDocument.Close
End Sub
sevik111 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос(перенос выделенного абзаца в конец активного документа) student12345 Microsoft Office Word 3 28.12.2011 23:59
макрос формирования и выгрузки файла txt (оптимизация) v0r0nika Microsoft Office Excel 9 10.10.2011 15:24
Создание файлов *.txt с внесением в них определенных данных из файла Excel SmokyCheetah Microsoft Office Excel 3 13.09.2011 11:50
Создание txt файла (Sandr) C/C++ Сетевое программирование 11 21.12.2010 23:04
Макрос на печать выделенного диапазона CLOUN Microsoft Office Excel 2 29.09.2009 19:48