回答編集履歴
2
修正
test
CHANGED
|
@@ -4,7 +4,17 @@
|
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
|
|
7
|
+
文字位置決まっていていれば、決め打ちでいいです
|
|
8
|
+
|
|
9
|
+
WordEditor.Range(r1, r2).Paste としたら
|
|
10
|
+
|
|
11
|
+
ｒ１文字目からｒ２文字目にペースト（置換）となります。
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
7
|
-
|
|
15
|
+
Excel vba
|
|
16
|
+
|
|
17
|
+
```
|
|
8
18
|
|
|
9
19
|
Sub tes1()
|
|
10
20
|
|
1
訂正
test
CHANGED
|
@@ -4,15 +4,15 @@
|
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
```Excel vba
|
|
8
|
+
|
|
9
|
+
Sub tes1()
|
|
8
10
|
|
|
9
11
|
|
|
10
12
|
|
|
11
|
-
|
|
13
|
+
Dim objOL As New Outlook.Application
|
|
12
14
|
|
|
13
|
-
Set myItem =
|
|
15
|
+
Set myItem = objOL.CreateItemFromTemplate("XXX .oft")
|
|
14
|
-
|
|
15
|
-
|
|
16
16
|
|
|
17
17
|
With myItem
|
|
18
18
|
|
|
@@ -24,13 +24,11 @@
|
|
|
24
24
|
|
|
25
25
|
'【表図】の位置取得
|
|
26
26
|
|
|
27
|
-
|
|
27
|
+
r = InStr(myItem.Body, "【表図】")
|
|
28
28
|
|
|
29
|
-
|
|
29
|
+
myItem.Body = Replace(myItem.Body, "【表図】", "")
|
|
30
30
|
|
|
31
31
|
'
|
|
32
|
-
|
|
33
|
-
|
|
34
32
|
|
|
35
33
|
Set oApp = CreateObject("Outlook.Application")
|
|
36
34
|
|
|
@@ -38,7 +36,7 @@
|
|
|
38
36
|
|
|
39
37
|
'表 図選択
|
|
40
38
|
|
|
41
|
-
|
|
39
|
+
|
|
42
40
|
|
|
43
41
|
Worksheets("Sheet3").Select: Range("A1:C16").Select
|
|
44
42
|
|
|
@@ -52,4 +50,6 @@
|
|
|
52
50
|
|
|
53
51
|
End Sub
|
|
54
52
|
|
|
53
|
+
|
|
54
|
+
|
|
55
55
|
```
|