word中的一号字体在vb代码中如何表示
答案:2 悬赏:20 手机版
解决时间 2021-12-21 23:49
- 提问者网友：夢醒日落
- 2021-12-21 17:17
word中的一号字体在vb代码中如何表示
最佳答案
- 五星知识达人网友：一秋
- 2021-12-21 17:37
PrivateSubCommand1_Click()DimwordObjSetwordObj=CreateObject("Word.Application")WithwordObj.Documents.Open("c:\1.doc")With.Content.Find.Execute"#text1",,,,,,,,,Text1,2.Find.Execute"#text2",,,,,,,,,Text2,2.Find.Execute"#text3",,,,,,,,,Text3,2EndWith.SaveEndWithwordObj.quitEndSub可简化为：PrivateSubCommand2_Click()DimwordObjSetwordObj=CreateObject("Word.Application")WithwordObj.Documents.Open("c:\1.doc")Fori=1To3.Content.Find.Execute"#text"&i,,,,,,,,,Me("Text"&i),2Next.SaveEndWithwordObj.quitEndSub
全部回答
- 1楼网友：拜訪者
- 2021-12-21 18:38
在vb中添加引用“microsoft word xx object library”(xx随word版本不同而不同)，在窗体上添加一个按钮。代码如下：
private sub command1_click()
dim x as paragraph
dim xword as new word.application
dim xdoc as new word.document
set xdoc = xword.documents.open("c:\123.doc")
for each x in xdoc.paragraphs
x.range.font.size = 10
next x
xdoc.close
xword.quit
set xdoc = nothing
set xword = nothing
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯