質問編集履歴
3
試したこと追記修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -67,7 +67,6 @@
|
|
|
67
67
|
- [ ] 知人に聞いた
|
|
68
68
|
- [ ] その他
|
|
69
69
|
|
|
70
|
-
##### 上記の詳細・結果
|
|
71
70
|
Outlookの書式は`WordEditor`で変更するとのことだったので、
|
|
72
71
|
Word VBAと見比べながら、下記コードを挿入してみましたが、
|
|
73
72
|
|
|
@@ -78,10 +77,23 @@
|
|
|
78
77
|
```VBA
|
|
79
78
|
Set WEObj = mailItemObj.GetInspector().WordEditor
|
|
80
79
|
|
|
80
|
+
With WEObj
|
|
81
|
+
|
|
82
|
+
'方法① 全選択して選択範囲の段落改行サイズを変更 →エラー
|
|
83
|
+
.Content.Select
|
|
84
|
+
|
|
85
|
+
With Selection.Paragraphs.Format
|
|
86
|
+
|
|
87
|
+
.LineUnitAfter = 0
|
|
88
|
+
|
|
89
|
+
End With
|
|
90
|
+
|
|
91
|
+
'方法② 各段落をループして改行サイズを変更 →エラーは出ないが変化なし
|
|
81
|
-
|
|
92
|
+
For i = 1 To .Paragraphs.Count
|
|
82
|
-
|
|
93
|
+
|
|
83
|
-
|
|
94
|
+
.Paragraphs(i).LineUnitAfter = 0
|
|
95
|
+
|
|
84
|
-
|
|
96
|
+
Next i
|
|
85
97
|
|
|
86
|
-
|
|
98
|
+
End With
|
|
87
99
|
```
|
2
コードの不要な部分を削除
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -22,12 +22,11 @@
|
|
|
22
22
|
```VBA
|
|
23
23
|
Sub Trial_Mail()
|
|
24
24
|
|
|
25
|
-
Dim toaddress
|
|
25
|
+
Dim toaddress As String
|
|
26
26
|
Dim subject, mailBody As String
|
|
27
27
|
Dim outlookObj As Outlook.Application
|
|
28
28
|
Dim mailItemObj As Outlook.mailItem
|
|
29
29
|
Dim WEObj As Object
|
|
30
|
-
Dim Para
|
|
31
30
|
|
|
32
31
|
Application.ScreenUpdating = False
|
|
33
32
|
|
1
タイトルを分かりやすくした
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
【Excel VBA】Outlookメール本文の改段落の行間を設定したい【Outlook】
|
|
1
|
+
【Excel VBA】Outlookメール本文の改段落の行間サイズを設定したい【Outlook】
|
body
CHANGED
|
@@ -85,7 +85,4 @@
|
|
|
85
85
|
Para.lineunitafter = 0 '②
|
|
86
86
|
|
|
87
87
|
Next Para
|
|
88
|
-
```
|
|
88
|
+
```
|
|
89
|
-
|
|
90
|
-
### 補足
|
|
91
|
-
特になし
|