VBScriptで一気に置換。 '#1 フォルダ全部のファイルでやる場合 strDir = InputBox("ディレクトリ名を入力してください。") '#1 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") '#1 Set objFolder = objFSO.GetFolder(strDir) '#1 Set ob…

'全角数字を半角数字に With objRange.Find .Text = "[０-９]" .Replacement.Text = "" .Forward = True .Wrap = 1 .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .…

Set objDoc = objWord.Documents.Open(strArg) Set objSelection = objWord.Selection Set objRange = objDoc.Range() objSelection.Find.ClearFormatting objSelection.Find.Replacement.ClearFormatting With objSelection.Find .Text = "," .Replacement.…

'#1 フォルダ全部のファイルでやる場合 Const wdReplaceAll = 2 'start strDir = InputBox("ディレクトリ名を入力してください。") '#1 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") '#1 Set objFolder = objFSO.GetFolder(strDir) '#1…

Set objDoc = objWord.Documents.Open(strFileName) '文字数42 objDoc.PageSetUp.CharsLine = 42 '行数 objDoc.PageSetUp.LinesPage = 38

Set objDoc = objWord.Documents.Open(strFileName) 'フォント objRange.Font.Name = "ＭＳ 明朝" objRange.Font.Name = "Times New Roman" objRange.Font.Size = 10

Set objDoc = objWord.Documents.Open(strFileName) '余白 '上19mm objDoc.PageSetUp.TopMargin = objWord.MillimetersToPoints(19) '下19mm objDoc.PageSetUp.BottomMargin = objWord.MillimetersToPoints(19) '左16mm objDoc.PageSetUp.LeftMargin = objWo…

Set objDoc = objWord.Documents.Open(strFileName) 'B5サイズに変更 objDoc.PageSetUp.PaperSize = 11 用紙サイズ定数抜粋 wdPaper10x14 = 0 wdPaper11x17 = 1 wdPaperA3 = 6 wdPaperA4 = 7 wdPaperA4Small = 8 wdPaperA5 = 9 wdPaperB4 = 10 wdPaperB5 = 11

http://www.microsoft.com/japan/technet/scriptcenter/resources/officetips/default.mspxhttp://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/default.mspxhttp://www.microsoft.com/japan/technet/scriptcenter/scripts/office/word/de…