如何把EXCEL的资料分别输入这个WORD的模板里

iamsiuhin

请问如何把EXCEL的资料分别输入这个WORD的模板里,
因为要印LABEL
分别要输入EXCEL中的两项资料去每一格
请问有高手可以教一下吗

duquancai

你的附件，不知所云！！！！

413191246se

楼主，只须把文字每段一行，再应用下面的宏即可：

1. Sub 标签()
   
2.     ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
   
3.     With ActiveDocument.PageSetup
   
4.         .TopMargin = CentimetersToPoints(2)
   
5.         .BottomMargin = CentimetersToPoints(2)
   
6.         .LeftMargin = CentimetersToPoints(1)
   
7.         .RightMargin = CentimetersToPoints(1)
   
8.     End With
   
9.     If Selection.Type = wdSelectionIP Then Selection.WholeStory
   
10.     Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, AutoFitBehavior:=wdAutoFitFixed
    
11.     Selection.Tables(1).Style = "网格型"
    
12.     Selection.Font.Bold = True
    
13.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
14.     Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
15.     If MsgBox("<是>：纵向(书脊)    <否>：横向(封面)", vbYesNo + vbExclamation, "标签 - 请选择！") = vbYes Then
    
16.         ActiveDocument.PageSetup.Orientation = wdOrientLandscape
    
17.         Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
    
18.         Selection.Rows.HeightRule = wdRowHeightExactly
    
19.         Selection.Rows.Height = CentimetersToPoints(3)
    
20.         Selection.Orientation = wdTextOrientationHorizontalRotatedFarEast
    
21.         Selection.ParagraphFormat.Alignment = wdAlignParagraphDistribute
    
22.         Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
23.         Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
24.         Selection.Font.Size = 48
    
25.     Else
    
26.         Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    
27.         Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    
28.         Selection.PageSetup.TextColumns.SetCount NumColumns:=2
    
29.         Selection.Rows.HeightRule = wdRowHeightExactly
    
30.         Selection.Rows.Height = CentimetersToPoints(5)
    
31.         Selection.Font.Size = 60
    
32.     End If
    
33.     ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
    
34. End Sub

复制代码