导入导出Word之实例

todaynew

错误信息:  方法'Find'作用于对象'Selection'时失败
停在：　  doc.Selection.Find.Execute FindText:="题目：", Forward:=True
难倒是引用上的问题？好像没有丢失什么的？郁闷
asklove 发表于 2009-7-28 16:22

可能是引用的问题。

关于图片导入word的问题，给你做了一个实例，看看是否对你有帮助。




Private Sub Form_Load()
Dim strsql As String
strsql = "UPDATE 图片表 SET 图片表.图片地址 = CurrentProject.Path & '\图片\' & 图片表.图片名称 & '.jpg';"
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
Me.图片.Picture = ""
End Sub


Private Sub 导出_Click()
Dim doc As New Word.Application
Dim myname As String
myname = GetFolder
doc.Documents.Open FileName:=myname
doc.Visible = True
doc.Documents(myname).Activate
x = doc.Documents(myname).Paragraphs.Count
doc.Documents(myname).Paragraphs(x).Range.Select
doc.Selection.TypeParagraph
doc.Selection.InlineShapes.AddPicture FileName:=Me.图片地址.Value, _
        LinkToFile:=False, SaveWithDocument:=True
End Sub


Private Sub 图片ID_AfterUpdate()
Me.图片地址.Value = DLookup("图片地址", "图片表", "图片ID=" & Me.图片ID)
Me.图片.Picture = Me.图片地址.Value
End Sub

asklove

非常感谢　todaynew ！！
下载慢慢啃

todaynew

错误信息:  方法'Find'作用于对象'Selection'时失败
停在：　  doc.Selection.Find.Execute FindText:="题目：", Forward:=True
难倒是引用上的问题？好像没有丢失什么的？郁闷
asklove 发表于 2009-7-28 16:22

也可以用instr（doc.Selection.Text ，“题目：”）〉0作为判断条件。

wxf2008hz

不错啊  值得学习啊

aaccess

都说好，咱也学习学习

ycxchen

谢谢共享，下载学习。

df

谢谢分享

8820stboy

谢谢老师

todaynew

谢谢楼上的同志们支持。

herry2003aa

好东西