'引用Microsoft Word X.0 Object Library //在任何地方也看不到它呢,它在那啊?(工具箱?还是什么地方啊?)是看不到的Public wrd As Word.ApplicationPublic Function WriteOldWord(strDocPath As string) On Error Resume Next Set wrd = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wrd = CreateObject("Word.Application") End If Err.Clear On Error GoTo 0 Dim doc As String doc = strDocPath wrd.Documents.Open FileName:=doc, ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ 0 wrd.Visible = TrueEnd Function’关于Word的操作,可以用Word的工具菜单下的宏……》录制新宏,然后你可以作一系列操作,停止录制后,查看宏并编辑可以看到宏代码(你的一系列操作的VBA代码)
偶帮你up,如果你收到了,转发一个给我吧,呵呵
[email protected]
MsgBox ActiveDocument.Tables(1).Rows.Count
MsgBox ActiveDocument.Tables(1).Columns.Count
字体名称ActiveDocument.Tables(1).Rows.Count
第一个表格的行数MsgBox ActiveDocument.Tables(1).Columns.Count
第一个表格的列数
Tables(1)中的1表明表格插入的顺序,而不是位置上下决定的
请虫子大哥再仔细说明一下,你说的那些是对什么进行操作啊?请具体一点
射天狼大哥你说的那个部件我选择以后,怎么在任何地方也看不到它呢,它在那啊?(工具箱?还是什么地方啊?)
附带问题:如何用vb调用word打开以有的word文档,并重新保存成html格式的文件。
小弟加赠100分。
On Error Resume Next
Set wrd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wrd = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo 0 Dim doc As String doc = strDocPath wrd.Documents.Open FileName:=doc, ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
0
wrd.Visible = TrueEnd Function’关于Word的操作,可以用Word的工具菜单下的宏……》录制新宏,然后你可以作一系列操作,停止录制后,查看宏并编辑可以看到宏代码(你的一系列操作的VBA代码)
在问一句,我对VBA开发一翘不同,请问Word.Application是如何定义的。
就可以定义Word.Application其实引用是导入word的ActiveX dll,使其能在VB工程中word的ActiveX对象。具体操作可以查看有关VBA操作,录制宏只是其中最简单的方法,Office对象复杂的很,慢慢研究吧
麻烦你们谁要是好的VBA方面的书,或相关资料一定要发给我啊
email:[email protected]
qq :58481671
tel :02462268117