回答編集履歴
2
追記
answer
CHANGED
|
@@ -45,4 +45,7 @@
|
|
|
45
45
|
|
|
46
46
|
[ASCII文字コード \- IT用語辞典](http://e-words.jp/p/r-ascii.html)
|
|
47
47
|
|
|
48
|
-
行頭復帰 はなんとなくわかりますが、警告音を鳴らすコードが埋め込まれているのか、Wordの開発者に聞かないとわからないですね。
|
|
48
|
+
行頭復帰 はなんとなくわかりますが、警告音を鳴らすコードが埋め込まれているのか、Wordの開発者に聞かないとわからないですね。
|
|
49
|
+
|
|
50
|
+
**追記**
|
|
51
|
+
Chr(13) & Chr(7) の制御コードを削除するコードを追加しました。
|
1
コード修正
answer
CHANGED
|
@@ -24,7 +24,8 @@
|
|
|
24
24
|
For c = 1 To .Columns.Count
|
|
25
25
|
s = .Cell(r, c).Range.Text
|
|
26
26
|
Debug.Print Asc(Mid(s, Len(s) - 1, 1)); Asc(Mid(s, Len(s), 1))
|
|
27
|
+
If s Like "*" & Chr(13) & Chr(7) Then s = Left(s, Len(s)-2) '制御コード(黒丸)削除
|
|
27
|
-
Cells(r, c).Value =
|
|
28
|
+
Cells(r, c).Value = s
|
|
28
29
|
Next
|
|
29
30
|
Next
|
|
30
31
|
End With
|