请教如何把扫描的tiff文件存放到word中（不需要ocr）

Question

多谢浏览，问题如下，请各位赐教：
以前从扫描仪中扫描的文件都是直接存成tiff格式放到磁盘上的，现在需要把TIFF文件粘贴到word中，有没有什么控件可以直接存的。或者有什么方法可以生成一个新的word文件并把图像粘贴到其中呢（不用做文字识别），请各位帮忙，多谢

Answer 1

Private Sub Command1_Click()
    Add_Img_To_Doc "D:\Microtek\ScanWizard 5\twlogo.tif", "c:\Doc6.doc"
    MsgBox "Add Img to Doc  succeed!"
End SubPublic Sub Add_Img_To_Doc(ByVal ImgPath As String, DocPath As String)
    Dim oWordApp As Object
    
    'Start a new instance of Microsoft Word
    Set oWordApp = CreateObject("Word.Application")
    
    With oWordApp
    
       'Create a new document
        .Documents.Add
    
       'Add Img to the document
        .Selection.InlineShapes.AddPicture FileName:= _
            ImgPath, LinkToFile:=False, _
            SaveWithDocument:=True
       'Save the document
        .ActiveDocument.SaveAs FileName:=DocPath, FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
    End With
    
    'Quit Word
    oWordApp.Quit
    Set oWordApp = Nothing
End Sub