Блог

Главная - Вопросы по программированию - Выбор. проблема с текстом при сохранении документа Word

Выбор. проблема с текстом при сохранении документа Word

#vba #ms-word

Вопрос:

У меня проблема с моим кодом, я хочу сохранить файл в формате pdf по тексту, который я копирую , но есть проблема», это показано при выборе.Текст как результат и причина, по которой я не могу сохранить файл автоматически, извините за мой английский и мой код, это мой первый день с VBA в Word.

 Sub PDF()
'
' PDF Makro
'
'
Dim Rng As Range
Dim NazwaPlik As String

With Selection.Find
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Execute FindText:="Odbiorca"
      
    
End With
       
    
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=15, Extend:=wdExtend
    Selection.Copy
    Selection.EndKey Unit:=wdStory
    Selection.InsertNewPage
    Selection.GoTo wdGoToPage, wdGoToAbsolute, 2
    Selection.Paste
    Selection.GoTo wdGoToPage, wdGoToAbsolute, 1


With Selection.Find
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Execute FindText:="Nr"
    
End With

    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=6, Extend:=wdExtend
    Selection.Copy
    Selection.GoTo wdGoToPage, wdGoToAbsolute, 2
    Selection.EndKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Paste
    Selection.MoveDown Unit:=wdLine, Count:=20
    Selection.Expand wdLine
   
   
    Selection.Font.Color = -603914241
    
NazwaPlik = (Selection.Text)
    

    
    ActiveDocument.ExportAsFixedFormat OutputFileName:="\tsclientD" amp; NazwaPlik amp; ".pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

End Sub

Комментарии:

1. Поскольку вы не поделились ни текстом, ни сообщением об ошибке, дать определенный ответ невозможно. Одна из возможностей, которая приходит на ум, заключается в том, что текст NazwaPlik содержит символы, которые нельзя использовать для имени файла.

2. Да, я знаю это, но почему это дает мне название (имя файла)»», если у меня его нет в выборе

3. Поскольку я не вижу текст, который вы выбрали, я не могу ответить на этот вопрос. Вы должны добавить снимок экрана к вашему вопросу, используя ссылку «Правка», расположенную чуть ниже, которая показывает текст, который вы выбираете.

4. Текст, который я выбрал, «Тимоти 00078», я не знаю, может быть, я пишу неправильно, но когда я меняю код на NazwaPlik = «Дуда», он работает

5. Воспользуйтесь ссылкой редактирования под вашим вопросом и добавьте скриншот, показывающий текст, выбранный при получении ошибки. Убедитесь, что отображаются метки форматирования.

Метки: