excel vba操作word的时候怎么用selecion这个方法

此用户被禁言

大家好，我附件中有说明，请大家看一下。有两个文档，一个word一个excel  word和excel里面都有代码，但是用excel的VBA操作word的时候，代码会报错，就是不知道如何修改

问题.zip (30.6 KB, 下载次数: 6)

2018-1-16 14:21 上传

点击文件名下载附件

duquancai

把常量 用数字来表达

此用户被禁言

duquancai 发表于 2018-1-19 08:56
把常量 用数字来表达

老师，对应的数字是多少？我改成1 和2都不行。不知道对应的数字是多少

此用户被禁言

哦，知道原因了。不应该用mydoc。因为mydoc这个对象没有selection这个方法
要用wordapp.selection
同时将常量改成对应的数据

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim myapth$, myname$
   
4.   Dim wordapp As New Word.Application
   
5.   Dim mydoc As Word.Document
   
6.   myPath = ThisWorkbook.Path & ""
   
7.   myname = "word内容.doc"
   
8.   Set mydoc = wordapp.Documents.Open(myPath & myname)
   
9.   With mydoc
   
10.       .Paragraphs(2).Range.Characters(3).Select
    
11.       wordapp.Selection.EndKey Unit:=5, Extend:=1
    
12.       wordapp.Selection.Font.Color = 192
    
13.       wordapp.Selection.Font.Bold = True
    
14.     .Close True
    
15.   End With
    
16. wordapp.Quit
    
17. End Sub

复制代码

daibao88

Sub test()
    Dim r%, i%
    Dim myapth$, myname$
    Dim wordapp As New Word.Application
    Dim mydoc As Word.Document
    myPath = ThisWorkbook.Path & "\"
    myname = "word内容.doc"
    Set mydoc = wordapp.Documents.Open(myPath & myname)
    Dim rg As Word.Range
    Set rg = mydoc.Range(Start:=mydoc.Paragraphs(2).Range.Start + 2, End:=mydoc.Paragraphs(2).Range.End)
    rg.Font.Color = 192
    rg.Font.Underline = 2
    mydoc.Close True
    wordapp.Quit
End Sub

此用户被禁言

daibao88 发表于 2018-1-20 21:27
Sub test()
    Dim r%, i%
    Dim myapth$, myname$

谢谢，这样好。