monokano

// ArtboardNameEditor.jsx
// 全アートボード名を表示し、編集後に適用ボタンで更新する
// 検索置換（正規表現対応）・連番挿入機能付き

(function () {
    var doc = app.activeDocument;
    var artboards = doc.artboards;
    var count = artboards.length;

    if (count === 0) {

monokano

#target illustrator
// ReverseTextZOrder.jsx
// 選択テキストオブジェクトの重なり順を逆転させる
// テキスト以外のオブジェクトは無視します
// 異なる親を持つオブジェクトが混在する場合は、親ごとに処理します

(function () {
    var doc;
    try {
        doc = app.activeDocument;

monokano

// 選択した文字の文字揃えを取得するスクリプト

var textRange = null;

try {
    var sel = app.activeDocument.selection;
    if (sel.constructor.name === "TextRange") {
        textRange = sel;
    } else if (sel.constructor.name === "Array" && sel.length > 0) {
        if (sel[0].typename === "TextFrame") {

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