Вставка рисунка в Word - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, товарищи программисты! Подскажите, пожалуйста, средства, которыми можно осуществить вставку картинки в документ Word. (Допустим, картинка есть на форме). И ещё такой вопросик, как можно вставить в Worde текст, содержащий ковычки? Спасибо за внимание)

Решение задачи: «Вставка рисунка в Word»

textual
Листинг программы
Option Explicit
 
Dim WordApp As Word.Application '  экземпляр приложения
Dim DocWord As Word.Document '  экземпляр документа
Dim FileForSave As String
 
Private Sub Command1_Click()
      FileForSave = App.Path & "\123.doc"
      Set WordApp = New Word.Application
      WordApp.Visible = True
      Set DocWord = WordApp.Documents.Add
      DocWord.Activate
      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       With DocWord.Application
               .ActiveDocument.Select
               .Selection.TypeText Text:="""123456789"""        ' текст с кавычками
                Clipboard.Clear
                Clipboard.SetData Me.Picture, vbCFBitmap       ' копируем картинку на формы в буфер
               .Selection.TypeParagraph
               .Selection.PasteSpecial
       End With
       
      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      DocWord.SaveAs FileForSave
      DocWord.Close True
      WordApp.Quit True
      Set DocWord = Nothing
      Set WordApp = Nothing
      MsgBox "Готово" & vbCrLf & "Файл сохранён как " & FileForSave, vbInformation, " "
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы