monokano

Sub ExportAndReplaceEquations()
    '
    ' Mac版Word専用
    ' Word文書内の数式をMathMLファイルに保存し、連番テキストに置き換えるマクロ
    '
    ' 注意：Wordの数式オプションで「MathMLをテキストとしてクリップボードにコピーする」に設定する必要があります
    

    ' 画面更新を無効
    Application.ScreenUpdating = False

monokano

// 選択テキストを英数全角にする

function toFullWidth(theRange) {
    // 初期化
    app.findTransliteratePreferences = NothingEnum.nothing;
    app.changeTransliteratePreferences = NothingEnum.nothing;

    // 文字種変換の設定
    app.findTransliteratePreferences.findCharacterType = FindChangeTransliterateCharacterTypes.HALF_WIDTH_ROMAN_SYMBOLS;
    app.changeTransliteratePreferences.changeCharacterType = FindChangeTransliterateCharacterTypes.FULL_WIDTH_ROMAN_SYMBOLS;

monokano

// 選択テキストを英数半角にする

function toHalfWidth(theRange) {
    // 初期化
    app.findTransliteratePreferences = NothingEnum.nothing;
    app.changeTransliteratePreferences = NothingEnum.nothing;

    // 文字種変換の設定
    app.findTransliteratePreferences.findCharacterType = FindChangeTransliterateCharacterTypes.FULL_WIDTH_ROMAN_SYMBOLS;
    app.changeTransliteratePreferences.changeCharacterType = FindChangeTransliterateCharacterTypes.HALF_WIDTH_ROMAN_SYMBOLS;

monokano

// Adobe InDesign ExtendScript - 選択オブジェクト拡大縮小

(function() {
    
    // メイン関数
    function main() {
        // ドキュメントが開いているかチェック
        if (app.documents.length == 0) {
            alert("ドキュメントが開かれていません。");
            return;

monokano

Sub 数式エディタの背景を淡いピンクに()
    Dim oField As Field
    Dim oRange As Range
    Dim oMath As oMath
    Dim count As Integer
    count = 0
    
    ' 古い形式の数式フィールドをチェック
    For Each oField In ActiveDocument.Fields
        If oField.Type = wdFieldExpression Then

monokano

var doc = app.activeDocument;
var index = doc.indexes[0];
var topics = index.topics;

var conditionName = "索引";
var indexCondition = null;

// 条件テキスト「索引」が存在するか確認（forループで安全に）
for (var i = 0; i < doc.conditions.length; i++) {
    if (doc.conditions[i].name === conditionName) {

monokano

tell application id "com.adobe.InDesign"
	tell active document
		
		try
			-- 適用されているタグのマップを除去する
			set pageItems to all page items
			repeat with aItem in pageItems
				set aTag to associated XML element of aItem
				if aTag ≠ nothing then untag aTag
			end repeat

monokano

// Illustrator用スクリプト
// 選択されたテキストオブジェクトに「効果 > パス > オブジェクトのアウトライン」を適用します
// テキストオブジェクトではないものが混在していてもOK
// グループが混在していてもOK

if (app.documents.length > 0) {
    var doc = app.activeDocument;
    var originalSelection = doc.selection; // 現在の選択状態を一時保存

    if (originalSelection.length === 0) {

monokano

// InDesignでよく設定変更するものをウィンドウで一括操作できます
// レイアウトグリッドにスナップ
// スマートガイド
// 再リンク時に画像サイズを保持
// 境界線の線幅を含む
// 定規開始位置
// トリミング

// ウィンドウ表示時の設定は現状の設定です
// 変更してOKボタンを押すと設定が変更されます

monokano

// アクティブなアートボードをキャプチャします
// デスクトップにpngファイルを保存します
// カラープロファイルは埋め込まれませんが、作業用RGBになります
// こちらの記事を元にしました　https://ten-artai.com/2016/09/337/

// 日時を元に一意のファイル名を生成
function getTimestamp() {
    var now = new Date();
    var yyyy = now.getFullYear();
    var mm = ("0" + (now.getMonth() + 1)).slice(-2);