글자 덧 붙이기

한글 오토메이션
1

열려져 있는 모든 문서탭의 이름을 가져와서 하나의 메시지창으로 안내하려합니다.
function OnScriptMacro_script4()
{
var nana = “”;
cnt = XHwpWindows.Active_XHwpWindow.XHwpTabs.Count
for ( k= 1 ; k < cnt ; k++ )
{
XHwpDocuments.Item(k).SetActive_XHwpDocument()
name = Path.split(‘\’).pop(); // 배열의 마지막 요소를 변수 c 에 저장
name = name.replace(“.hwpx”,“”); // 파일명 제일 뒤 .hwp 제거
name = name.replace(“.hwp”,“”); // 파일명 제일 뒤 .hwp 제거
t = k+1;
nana = t + "번 " + name + “\n \n”;

}

	XHwpDocuments.Item(0).SetActive_XHwpDocument()

	script = new ActiveXObject('MSScriptControl.ScriptControl');
	script.language = 'vbscript';
	return script.eval('inputbox(nana,"문서탭 이름")');

}
이와 같이 구성하였으나, nana 에 저장된 내용이 표시되지 않네요

도움 부탁드립니다.

2

제미나이의 도움을 받아
function OnScriptMacro_script23()
{
var nana = “”;
var cnt = XHwpWindows.Active_XHwpWindow.XHwpTabs.Count;

for (var k = 1; k < cnt; k++)
{
	XHwpDocuments.Item(k).SetActive_XHwpDocument();
	var path = XHwpDocuments.Item(k).FullName; 
	var name = path.split('\\').pop(); 
	name = name.replace(".hwpx", "").replace(".hwp", "");
	var t = k + 1;
	nana = nana + "[" + t + "번 탭] " + name + "@";	// JavaScript 위한 구분자 @
}
XHwpDocuments.Item(0).SetActive_XHwpDocument();

var script = new ActiveXObject('MSScriptControl.ScriptControl');
script.language = 'vbscript';
var vbsCommand = 'InputBox("' + nana.replace(/@/g, '" & vbCrLf & "') + '", "문서탭 이름")';
return script.eval(vbsCommand);

}
이렇게 구성하였습니다.

1개의 좋아요