複数のdocファイルをループ Dim doc As Document For Each doc In Documents ‘任意の処理 Next doc 段落をループ Dim i As Long, iParCount As Long iParCount = ActiveDocument.Paragraphs.Count For i = 1 To iParCount ActiveDocument.Paragraphs(i).Alignment = wdAlignParagraphLeft Next i 先...
ェクトのFor Each Rangeを Eachで処理する場合、少々注意が必要です。 Dim My As Range Dim i Long i = 1For EachMyRange In Range("A1:B5") MyRange= i i = i 1 Next ,B1,,B2,・・・ このよな順に処理されます。 列→行 この順取得されます。 第60回エラ...
データの並び順を逆転します。 Clone As XArray メソッド戻り値: 複製したXArrayインスタンス XArrayインスタンスを複製し、新たなXArrayインスタンスを返します。 Sort(Optional Comparer) メソッド Comparer: データ判定を行うオブジェクト。省略可。 データ位置の並べ替え(ソート)を行います...