一、有没有word2004或2005
word 的版本6.0就是windows中的写字板
此后7.0也就是word95
8.0是word97
9.0是word2000
10.0是word2002也就是wordXP
11.0是word2003
目前最新的12.0是word2007
这个版本可以在安装后看到，比如安装office2003，默认安装目录是C:Program FilesMicrosoft OfficeOffice11，那个11就是版本号
安装了SP的计为小版本，比如WORD2003有SP2，如果安装了，就是11.2版
因为office是很大型的软件，开发需要很长时间，不是每年都有新版
还有一般微软的产品更新版本是分大小的，也就是说一次大版本升级，下一次就是小版本
像office2002到2003是小版本升级，更新不是很多，而03到07是大版本，这一次会看到功能增强了很多
二、VB2005
花了点时间帮你写了下,你自己测试一下.
Using f As New OpenFileDialog
f.Filter = "*.jpg|*.jpg"
If f.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
Using fs As New IO.FileStream(f.FileName, IO.FileMode.Open, IO.FileAccess.Read)
Dim img = Image.FromStream(fs)
If img.Size.Height <> 768 OrElse img.Size.Width = 1024 Then
Using bmp As New Bitmap(1024 * 768)
Using g = Graphics.FromImage(bmp)
g.DrawImage(img, New Rectangle(0, 0, 1024, 768))
img = bmp
End Using
Clipboard.Clear()
Clipboard.SetImage(img)
End Using
End If
End Using
End Using
Dim path As String = "c:abcd.doc"
Dim wd As New Microsoft.Office.Interop.Word.Application
Dim doc As Microsoft.Office.Interop.Word.Document = wd.Documents.Open(FileName:=path)
doc.Activate()
wd.Selection.EndKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory)
wd.Selection.TypeParagraph()
wd.Selection.Paste()
doc.Save()
doc.Close()
wd.Quit()
