2016-09-28 1 views
0

Word 문서의 테이블 스타일을 업데이트 한 다음 너비를 17cm로 변경하는 코드가 있습니다.스타일 및 테이블 서식 변경

Sub ConvertTables() 

    Dim tbl As Table 
    For Each tbl In ActiveDocument.Tables 
     tbl.Style = "K2 Table" 
    Next 

    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPoints 
    Selection.Tables(1).PreferredWidth = CentimetersToPoints(17) 
End Sub 

매크로를 실행하면 두 번째 부분에서 멈 춥니 다. 때로는 VB 뷰어에서 실행되지만 개발자를 통해 매크로를 실행하지 않습니다.

이 VBA는 무엇이 문제입니까?

답변

0

난 당신이 테이블에

+0

예, 당신이 올바른 선택이 없을 때 작동하지 않는 두 번째 부분을 추측하고있어이

Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.Style = "K2 Table" tbl.PreferredWidthType = wdPreferredWidthPoints tbl.PreferredWidth = CentimetersToPoints(17) Next 

을보십시오. 고마워요 :) –

+0

당신을 환영합니다! 자유롭게 응답하도록 표시하십시오. – Jbjstam