回答編集履歴
2
修正
answer
CHANGED
|
@@ -1,7 +1,12 @@
|
|
|
1
1
|
図表を挿入したい位置に【表図】を記入しておいてください。
|
|
2
2
|
【表図】の位置取得して、そこにペーストしています。
|
|
3
3
|
|
|
4
|
+
文字位置決まっていていれば、決め打ちでいいです
|
|
5
|
+
WordEditor.Range(r1, r2).Paste としたら
|
|
6
|
+
ｒ１文字目からｒ２文字目にペースト（置換）となります。
|
|
7
|
+
|
|
4
|
-
|
|
8
|
+
Excel vba
|
|
9
|
+
```
|
|
5
10
|
Sub tes1()
|
|
6
11
|
|
|
7
12
|
Dim objOL As New Outlook.Application
|
1
訂正
answer
CHANGED
|
@@ -1,28 +1,28 @@
|
|
|
1
1
|
図表を挿入したい位置に【表図】を記入しておいてください。
|
|
2
2
|
【表図】の位置取得して、そこにペーストしています。
|
|
3
3
|
|
|
4
|
-
|
|
4
|
+
```Excel vba
|
|
5
|
+
Sub tes1()
|
|
5
6
|
|
|
6
|
-
|
|
7
|
+
Dim objOL As New Outlook.Application
|
|
7
|
-
Set myItem =
|
|
8
|
+
Set myItem = objOL.CreateItemFromTemplate("XXX .oft")
|
|
8
|
-
|
|
9
9
|
With myItem
|
|
10
10
|
.Display
|
|
11
11
|
.BodyFormat = 2 'HTML
|
|
12
12
|
End With
|
|
13
13
|
'【表図】の位置取得
|
|
14
|
-
|
|
14
|
+
r = InStr(myItem.Body, "【表図】")
|
|
15
|
-
|
|
15
|
+
myItem.Body = Replace(myItem.Body, "【表図】", "")
|
|
16
16
|
'
|
|
17
|
-
|
|
18
17
|
Set oApp = CreateObject("Outlook.Application")
|
|
19
18
|
Set objMail = oApp.CreateItem(0)
|
|
20
19
|
'表 図選択
|
|
21
|
-
|
|
20
|
+
|
|
22
21
|
Worksheets("Sheet3").Select: Range("A1:C16").Select
|
|
23
22
|
Selection.Copy
|
|
24
23
|
'貼り付け
|
|
25
24
|
oApp.ActiveInspector.WordEditor.Range(r, r).Paste
|
|
26
25
|
Application.CutCopyMode = False
|
|
27
26
|
End Sub
|
|
27
|
+
|
|
28
28
|
```
|