翻訳と英文作成に役立つマクロその１（文章中のスペースの数を調整するマクロ）

https://gyazo.com/6bf3a3ebd26ddebdfb583e2280ac7b1b

code:改行前スペース削除

Sub 改行スペース削除()

'

' 改行前のスペース削除 Macro

' written by Tomoyuki Shishido

'

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ^13"

.Replacement.Text = "^13"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ^13"

.Replacement.Text = "^13"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ^13"

.Replacement.Text = "^13"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ^11"

.Replacement.Text = "^11"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ^11"

.Replacement.Text = "^11"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ^11"

.Replacement.Text = "^11"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

code:文節内スペースを１つにする

Sub スペース短縮()

'

' スペース短縮 Macro

' written by Tomoyuki Shishido

'

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

code:スペース２つ設定

Sub スペース2つ設定()

'

' スペース2つ設定 Macro

' 英文の文のスペースを２つに変換するマクロ

' written by Tomoyuki Shishido

'

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Replacement.Text = ". \1"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Replacement.Text = ". \1"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Replacement.Text = ". \1"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Replacement.Text = ". \1"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Replacement.Text = ". \1"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchFuzzy = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub