Question

VB6.0 如何将图形文件插入word

在一个文件夹中有很多*.EMF图形文件，将其中一个如何插入到打开的word文档中？

Answer 1

copy 方法就可以了

追问

VB 语句怎么写啊？

追答

先在工程引用microsoft word

textbox1 是判定条件 你的emp图片名称
dim filen as DirectoryInfo
dim file as string

dim fil as string
dim fi as integer
file = Dir(path & "*.EMF")
fil=file.split(".")(0)
fi=Dir(path & "*.EMF").count
for i as integer=1 to fi
if textbox1=fil then
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
wordapp=new word.application
WordApp.Visible = True
WordApp.Documents.Add
WordApp.ActiveDocument.Shapes.AddPicture "path &".bmp""
WordApp.ActiveDocument.Save

next
求给精，路过的兄弟给个赞

Answer 2

先复制图形
再焦点到word
粘帖即可