dck-jp

Attribute VB_Name = "ModuleReplaceWithExcel"
Option Explicit
' <original code>
'   ワード文書の語群をExcelの辞書を使って置換 ver.04
' Author: 渡辺真
' URL: http://makoto-watanabe.main.jp/WordVba_replace.html
'
' modified By D*isuke YAMAKAWA
' last modified: 2012/8/1

dck-jp

Sub SetShortcutKeys()
    Dim macroSetting As Variant
    Dim commandSetting As Variant

    macroSetting = Array( _
        "EraseColor", wdKeyControl + wdKeyQ, _
        "EraseHighlight", wdKeyControl + wdKeyT, _
        "ToggleUnderline", wdKeyControl + wdKeyW, _
        "ToggleHighlight", wdKeyControl + wdKeyE, _
        "DobuleUnderline", wdKeyControl + wdKeyD, _

dck-jp

Private Declare Function IsWindowVisible Lib "user32" _
   (ByVal hWnd&) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
   (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
   (ByVal hWnd As Long, ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnumWindows Lib "user32" _

dck-jp

using System;
using System.Text;

namespace ConsoleApplication
{
	class Program
	{
		static void Main(string[] args)
		{
		    Console.WriteLine("This program lists all the files in the directory:");

dck-jp

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace OppaiAnalysis
{
    static class OppaiAnalysis
    {
        static public double Cup2Cm(string cup)

dck-jp

'いろんな文字の装飾をまとめて消す
Sub EraseDecoration()
    With Selection.Font
        .Bold = False '太字
        .Italic = False '斜体
        .color = wdColorAutomatic '色
        .Underline = wdUnderlineNone '下線
        .StrikeThrough = wdNone '打ち消し線
    End With

dck-jp

using System.Windows.Forms;

namespace SetSuspend
{
    class Program
    {
        static void Main(string[] args)
        {
            Application.SetSuspendState(PowerState.Suspend, false, false);
        }

dck-jp

using System.Diagnostics;

namespace Reboot
{
    class Program
    {
        static void Main(string[] args)
        {
            ProcessStartInfo psi = new ProcessStartInfo();
            psi.FileName = "shutdown.exe";

dck-jp

'各種番号振りなおしマクロ
'   Created By D*suke YAMAKWA
'   last modified : 12/10/16
'
'段落番号の振りなおし部分(RenumberingParagraph)に関して
'   original code : 段落番号置換マクロ 03/08/23 By 岡田
'   modified By D*suke YAMAKWA
'
'【マクロの概要】
' 1. 文書中の＠を段落番号に置き換えた後、

dck-jp

cd %~dp0
cscript vbac.wsf decombine