VBA 操作word的一个问题

windpoint

我想做的是在excel中的一个按钮启动vba程序，查找word中的表格，选中每个单元格中“aaaaa：”到单元格末尾的部分，然后字号改成9
录制的宏里都是selection开头的
我这么写没成功    Documents(1).Selection.Font.Size = 9
但是我直接给表格赋值是可以成功的，比如  ActiveDocument.Tables(3).Cell(k, 1).Range = Cells(i, 3)

请问，我上面的要求要怎么写

我是来讨说法的

在word中录制的宏，selection的前面其实是省略了对象
举个例子，你在excel的VBE中的sheet1下写代码range("A1")和sheet1.range("A1")是一样的效果。
言归正传，在excel操作word，那么就一定不能省略它的父对象，应该写完全。
假如有下面声明
Dim MyW As Word.Application'word程序的父对象
Dim MyD As Word.Document'子对象、word文档对象
那么在遇到Selection时，应该写全：MyW.Selection

windpoint

我是来讨说法的 发表于 2015-11-24 16:37
在word中录制的宏，selection的前面其实是省略了对象
举个例子，你在excel的VBE中的sheet1下写代码range(" ...

多谢，我改成了
MyW.Selection.Font.Size = 10

还是出错，提示
“run-time error 91
object variable or block variable is not set”

windpoint

我用application.Documents.Count ,显示错误

用Documents.Count，显示没文件打开，其实是有一个word文件打开了
我的版本是2010, 14版的

huang1314wei

1. Sub text()
   
2.     Dim i%, str$, j%
   
3.     With ActiveDocument
   
4.     For i = 1 To .Tables.Count
   
5.         .Tables(i).Select
   
6.         For Each c In Selection.Cells
   
7.             str = c.Range.text
   
8.             If InStr(str, "aaaa:") Then
   
9.                 j = InStr(str, "aaaa:")
   
10.                 c.Select
    
11.                 Selection.HomeKey
    
12.                 Selection.MoveRight unit:=wdCharacter, Count:=j + 4, Extend:=wdMove
    
13.                 Selection.MoveDown unit:=wdParagraph, Count:=3, Extend:=wdExtend
    
14.                 Selection.Font.Size = 9
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     End With
    
19. End Sub

复制代码

此乃word宏，请在word当中新建模块运行此代码

huang1314wei

附件参考：

test.rar (18.68 KB, 下载次数: 18)

2015-11-25 13:41 上传

点击文件名下载附件

另外，word操作，建议使用word宏，不要闲着没事干，在excel当中操作word，这并不会显得高大上，显得舍近求远
当然了，如果是excel与word进行数据交换，这个时候在excel当中操作word是情有可原的，也是必须的

我是来讨说法的

windpoint 发表于 2015-11-25 01:57
多谢，我改成了
MyW.Selection.Font.Size = 10

你就不能把你的代码贴出来吗？下面是一个在excel中简单操作word的完整代码：
Dim MyW As Word.Application'word父对象
Dim MyD As Word.Document'Document父对象，也是word的子对象
Set MyW = New Word.Application
Set MyD = MyW.Documents.Open(ThisWorkbook.Path & "\1.docx")'打开1.docx
MyW.Visible = False'不显示word界面

MyD.Activate'将1.docx设为当前活动工作簿
MyW.Selection.Start = ActiveDocument.Content.End'光标定位到word末尾

MyD.Tables.Add Range:=MyW.Selection.Range, NumRows:=1, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed'在末尾插入一行两列的一个表格

MyD.SaveAs ThisWorkbook.Path & "\" & "1-temp.docx"'另存为
MyW.Quit'退出
Set MyD = Nothing'销毁对象
Set MyW = Nothing'

windpoint

huang1314wei 发表于 2015-11-25 13:39
此乃word宏，请在word当中新建模块运行此代码

多谢
在word中测试通过了
在excel中停在了 str = c.Range.text，不知道什么问题

另外，在excel中操作不是为了装b，我是为了用excel生成word报告，再谢

ais9009

我是来讨说法的 发表于 2015-11-25 14:57
你就不能把你的代码贴出来吗？下面是一个在excel中简单操作word的完整代码：
Dim MyW As Word.Applicati ...

请问显示用户类型未定义  怎么破？