Вставка рисунка в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д