ワードマクロでn番目の文字を削除する方法

ワードマクロでn番目の文字を削除する方法を教えてください。
また、n番目からm文字分削除する方法を教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： sugao_chib 回答日時： 2007/04/13 09:52

こんにちは

削除しない文字を結合する方法で同でしょうか
例えば、５文字目から２文字削除するには
a = "1234567890"
b = mid(a, 1, 5 - 1) & mid(a, 5 + 2)

No.4 回答者： Ishiwara 回答日時： 2007/04/14 20:26

キーに記憶させるほうが簡単では？（プログラミング言語を覚える必要がない。

）

ツール｜マクロ｜新しいマクロの記録｜キーボード｜＜割り当てたいキーを押す＞｜割り当て｜閉じる｜
「→」キーをｎ回押す｜Dleteキーをｍ回押す｜■（記録終了）｜

使うには、割り当てたキーを押すだけでよい。もちろん、通常のマクロとして長期に使うことも可。

割り当てるキーは、Shift や Ctrl とふつうのキーの組合せ、または F1～ キーで空いているもの。単体のふつうの文字には割り当てないこと。

No.3 回答者： himajin100000 回答日時： 2007/04/13 11:00

'Husky2007さんへ

'お土産
'sugao_chibさんのコードの方に従うべき

Option Explicit

Sub hoge()

MsgBox (DeleteString("1234567890567", 5, 3))

End Sub

Public Function DeleteString(ByVal strText As String, _
ByVal P As Integer, _
ByVal L As Integer) As String
DeleteString = Replace(strText, Mid(strText, P, L), "")
End Function

No.2 回答者： noname#140971 回答日時： 2007/04/13 10:10

[イミディエイト]

? DeleteString("1234567890", 5,1)
123467890
? DeleteString("1234567890", 5,3)
1234890

最初は、５文字目を削除しています。
次は、５文字目から３文字削除しています。

Public Function DeleteString(ByVal strText As String, _
　　　　　　　　　　　　　　 ByVal P As Integer, _
　　　　　　　　　　　　　　 ByVal L As Integer) As String
　　DeleteString = Replace(strText, Mid(strText, P, L), "")
End Function