# 글자 덧 붙이기

**URL:** https://forum.developer.hancom.com/t/topic/2965
**Category:** 한글 오토메이션
**Created:** [1월 2, 2026, 8:41오전 UTC](https://forum.developer.hancom.com/t/topic/2965 "2026-01-02T08:41:49Z")
**Posts on this page:** 2
**Page:** 1

<div class="post-metadata">

### Author: ![Izoau](https://avatars.discourse-cdn.com/v4/letter/i/e9bcb4/32.png) [@Izoau](https://forum.developer.hancom.com/u/Izoau)
#### Post date: [1월 2, 2026, 8:41오전 UTC](https://forum.developer.hancom.com/t/topic/2965/1 "2026-01-02T08:41:49Z")

</div>

열려져 있는 모든 문서탭의 이름을 가져와서 하나의 메시지창으로 안내하려합니다.  
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”;

}

```auto
	XHwpDocuments.Item(0).SetActive_XHwpDocument()

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

```

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

도움 부탁드립니다.

---

<div class="post-metadata">

### Author: ![Izoau](https://avatars.discourse-cdn.com/v4/letter/i/e9bcb4/32.png) [@Izoau](https://forum.developer.hancom.com/u/Izoau)
#### Post date: [1월 2, 2026, 11:55오전 UTC](https://forum.developer.hancom.com/t/topic/2965/2 "2026-01-02T11:55:17Z")

</div>

제미나이의 도움을 받아  
function OnScriptMacro\_script23()  
{  
var nana = “”;  
var cnt = XHwpWindows.Active\_XHwpWindow.XHwpTabs.Count;

```auto
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);

```

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