- 帖子
- 7
- 主題
- 0
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- word10
- 閱讀權限
- 10
- 註冊時間
- 2018-12-30
- 最後登錄
- 2020-6-21
|
Dim Wordapp As Word.Application
Set Wordapp = New Word.Application '新建Word物件
Wordapp.Visible = True '可見
Dim WordD As Word.Document '定義word類
Set WordD = Wordapp.Documents.Add '新建文件
Wordapp.Selection.WholeStory '全選
Wordapp.Selection.Font.Name = "字體名
Wordapp.Selection.Font.Size = 16 '字尺寸 |
|
發表於 2019-5-21 16:10
| 