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

質問

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

回答No.1

sugao_chib · ベストアンサー

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

回答No.4

Ishiwara

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

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

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

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

回答No.3

himajin100000

'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

[イミディエイト]
? 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