VBA를 사용하여 테이블에 단어를 삽입하십시오.

Question

이 코드를 수정하는 방법을 고민하고 있습니다. 그 Word 2007 VBA

테이블의 셀이 전체 내용이 아닌 내용으로 선택되어 있기 때문에 오류가 발생합니다. 현재는 날짜를 입력 할 때이 첫 번째 그것이 좋은 보는 형식되었지만 오류 세 이하 새 행을 생성

With ActiveDocument.Tables(2) 
    .Rows.Add BeforeRow:=ActiveDocument.Tables(2).Rows(2) 
    .Rows(2).Range.Shading.BackgroundPatternColor = wdColorAutomatic 
    .Rows(2).Range.Borders(wdBorderBottom).LineStyle = wdLineStyleDot 
    .Cell(2, 2).Range.InsertDateTime "yy.MM.dd", False, wdEnglishUK, wdCalendarWestern, False 
End With 

입니다. 키보드로 활성화 된 매크로에서 코드를 사용해 보았습니다. 셀을 클릭했을 때 작동하는 것처럼 보이지만 전체 셀을 강조 표시하면 같은 오류가 발생합니다 (이 문제로 의심되는 것으로 이어집니다)

모두 아이디어?

Answer 1

이 나를 위해 작동합니다

Sub tt() 
    Dim rng As Range 
    With ActiveDocument.Tables(2) 
     .Rows.Add BeforeRow:=.Rows(2) 
     With .Rows(2).Range 
     .Shading.BackgroundPatternColor = wdColorAutomatic 
     .Borders(wdBorderBottom).LineStyle = wdLineStyleDot 
     End With 
     Set rng = .Cell(2, 2).Range 
     rng.Collapse wdCollapseStart 
     rng.InsertDateTime "yy.MM.dd" ', False, wdEnglishUK, wdCalendarWestern, False 
    End With 
End Sub 

나는 워드 엑셀에 비해 작동하기 어려운 범위를 찾을 수 있습니다. 특히 Word 표 셀에는 작업해야하는 "추가"문자 (숨겨진 서식을 설정하면 볼 수있는)가 추가됩니다.

Answer 2

 .Cell(2, 2).Range.text = format(date, "yy.MM.dd") 

이 달의 번호를 줄 것이다 - 당신이 원하는 경우 3 개 문자 사용 3m의