5,139
社区成员
发帖
与我相关
我的任务
分享
aWrd.Documents.Open Filename:="C:\Documents and Settings\Administrator\桌面\问题汇总.doc"
For i = 1 To aRow
xmmc = i & "项目名称:" & aSheet.Cells(Trim(i), 1)
zgwh = ",整改文号:" & aSheet.Cells(Trim(i), 2)
wtgl = ",问题归类:" & aSheet.Cells(Trim(i), 6)
wtbt = ",问题标题:" & aSheet.Cells(Trim(i), 7) & Chr(32) & aSheet.Cells(Trim(i), 8)
wtnr = ",问题内容:" & aSheet.Cells(Trim(i), 9)
aWrd.Documents(1).Activate
temp = xmmc & zgwh & wtgl & wtbt & wtnr & Chr(10)
aWrd.Selection.TypeText Text:=temp
Next i
aWrd.Documents(1).SaveAs Filename:="C:\Documents and Settings\Administrator\桌面\" & "问题汇总.doc"