#13머리말양쪽사전처럼넣기

Поділитися
Вставка
  • Опубліковано 10 лис 2024

КОМЕНТАРІ • 1

  • @hansode
    @hansode  Рік тому

    //짝수 쪽 머리말의 매크로 정의
    {
    HAction.Run("Copy"); //빨간색 글자를 검색 후 복사
    HAction.Run("Cancel");
    //짝수 쪽 머리말
    HAction.GetDefault("HeaderFooter", HParameterSet.HHeaderFooter.HSet);
    with (HParameterSet.HHeaderFooter)
    {
    Type = PageType("Even");
    HSet.SetItem("HeaderFooterStyle", 0);
    HSet.SetItem("HeaderFooterCtrlType", 0);
    }
    HAction.Execute("HeaderFooter", HParameterSet.HHeaderFooter.HSet);
    //
    HAction.Run("Paste"); //빨간색 글자 붙이기
    HAction.Run("SelectAll"); //전체 선택
    HAction.Run("StyleClearCharStyle"); //글자스타일 해제
    // [스타일]을 불러와서 스타일 적용
    HAction.GetDefault("StyleEx", HParameterSet.HStyle.HSet);
    with (HParameterSet.HStyle)
    {
    Apply = 1;
    }
    HAction.Execute("StyleEx", HParameterSet.HStyle.HSet);
    HAction.Run("Cancel");
    HAction.Run("CloseEx"); //머리말에서 나오기
    HAction.Run("MovePageDown"); //다음 쪽으로 이동
    HAction.Run("MovePageDown"); //다음 쪽으로 이동
    //다시 찾기
    HAction.GetDefault("RepeatFind", HParameterSet.HFindReplace.HSet);
    with (HParameterSet.HFindReplace)
    {
    }
    HAction.Execute("RepeatFind", HParameterSet.HFindReplace.HSet);
    //
    }
    //홀수 쪽 머리말의 매크로 정의
    {
    HAction.Run("Copy"); //빨간색 글자를 검색 후 복사
    HAction.Run("Cancel"); //선택 취소
    //홀수 쪽 머리말
    HAction.GetDefault("HeaderFooter", HParameterSet.HHeaderFooter.HSet);
    with (HParameterSet.HHeaderFooter)
    {
    Type = PageType("Odd");
    HSet.SetItem("HeaderFooterStyle", 0);
    HSet.SetItem("HeaderFooterCtrlType", 0);
    }
    HAction.Execute("HeaderFooter", HParameterSet.HHeaderFooter.HSet);
    //
    HAction.Run("Paste"); //빨간색 글자 붙이기
    HAction.Run("SelectAll"); //전체 선택
    HAction.Run("StyleClearCharStyle"); //글자스타일 해제
    HAction.Run("StyleShortcut2"); //스타일이 있을 경우 단축키로 바로 적용
    HAction.Run("CloseEx"); //머리말에서 나오기
    HAction.Run("MovePageUp"); //위 쪽으로 이동
    HAction.Run("MovePageUp"); //위 쪽으로 이동
    //다시 찾기
    HAction.GetDefault("RepeatFind", HParameterSet.HFindReplace.HSet);
    with (HParameterSet.HFindReplace)
    {
    }
    HAction.Execute("RepeatFind", HParameterSet.HFindReplace.HSet);
    //
    }