ä¸ãç¼å¶ç¨åº
1ï¼å¯å¨Wordï¼è¿ç»ç¹å»âå·¥å ·âï¼âå®âï¼âå½å¶æ°å®...âï¼å¨å¼¹åºç对è¯æ¡ä¸å¡«åå®åï¼æ¤ä¾ä¸ºâä½æ稿纸âï¼ï¼éæ©å®è¦ä¿åçä½ç½®ï¼å¯ä»¥ä¿åå¨æ¨¡æ¿ä¸ï¼ä¹å¯ä»¥ä¿åå¨å½åææ¡£ä¸ï¼ï¼å¦å¾1æ示ã
2ï¼ä¸ºäºæ¹ä¾¿æä½ï¼å¯ä»¥å°æ¤å®ä»¥æé®çå½¢å¼æå®å¨å·¥å ·æ ä¸ãåå»âå½å¶å®â对è¯æ¡ä¸çâå·¥å ·æ âæé®ï¼å¨å¼¹åºçâèªå®ä¹â对è¯æ¡çå³ä¾§ï¼éä¸å®å½ä»¤âNormal.NewMacros.ä½æ稿纸âï¼ç¨é¼ æ å°å ¶æå¨å¤å¶å°â常ç¨âå·¥å ·æ ï¼å¨å ¶ä¸åå»å³é®ï¼éæ©ç¸åºçå½ä»¤ä¿®æ¹å称ï¼ä¸ºå ¶ç¼è¾ä¸ä¸ªå°å¾æ ï¼ç»æå¦å¾2æ示ã
3ï¼åå»âå½å¶å®â对è¯æ¡ä¸çâå ³éâæé®ï¼å±å¹ä¸å°åºç°ä¸ä¸ªâå½å¶å®âå·¥å ·æ ï¼åå»åæ¢æé®åæ¢å½å¶ã
4ï¼ä¾æ¬¡éæ©âå·¥å ·âãâå®âãâå®â¦âï¼å¨å¯¹è¯æ¡ä¸éæ©å®åâä½æ稿纸âï¼åå»âç¼è¾âæé®ï¼æå¼vbaç¼ç¨çªå£ãå½å ¥å¦ä¸ä»£ç ï¼
Sub ä½æ稿纸()
UserForm1.CommandButton1.Enabled = True
UserForm1.Show
End Sub
5ï¼æå ¥ä¸ä¸ªçªä½UserForm1ï¼å¨å ¶ä¸æå ¥4个æ ç¾ï¼4个ææ¬æ¡ï¼ä¸ä¸ªæé®ãåå«è®¾ç½®å®ä»¬çç¸å ³å±æ§ï¼å ¶ä¸ï¼âæéè¡æ°âææ¬æ¡çâtextâå±æ§å¼è®¾ä¸º25ï¼âæéåæ°âææ¬æ¡çâtextâå±æ§å¼è®¾ä¸º20ï¼âè¡é´è·âææ¬æ¡çâtextâå±æ§å¼è®¾ä¸º0.5ï¼âé¦å°¾ç©ºè¡é«åº¦âææ¬æ¡çâtextâå±æ§å¼è®¾ä¸º0.4ï¼å¦å¾3æ示ã
6ï¼åå»å½ä»¤æé®CommandButton1ï¼å½å ¥ä»¥ä¸ä»£ç ï¼
Private Sub CommandButton1_Click()
Dim n As Integer 'å®ä¹ä¸ä¸ªåé为æ´æ°å
n = 1
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Val(TextBox1.Text) * 2 + 1, NumColumns _
:=Val(TextBox2.Text), DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
Selection.Tables(1).Rows.HeightRule = wdRowHeightExactly
'设å®è¡¨æ ¼è¡é«ä¸ºåºå®å¼
Selection.Tables(1).Rows.Height = CentimetersToPoints(Val(TextBox3.Text))
'è®¾ç½®è¡¨æ ¼è¡é«ä¸ºè®¾ç½®å¼ï¼ä½ä¸ºè¡é´è·
Selection.Tables(1).Rows(1).Height = CentimetersToPoints(Val(TextBox4.Text))
'设置第ä¸è¡è¡é«ä¸ºè®¾ç½®å¼
Do While n < Val(TextBox1.Text) + 1
Selection.EndKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=2
'å°æå
¥ç¹ç§»è³ä¸ä¸è¡
Selection.Tables(1).Rows(2 * n).Height = Selection.Tables(1).Columns(1).PreferredWidth
'设è¡é«çäºå宽
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.EndKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=2
'å°æå
¥ç¹ç§»è³ä¸ä¸è¡
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
'å»é¤æ¤è¡çå
é¨æ¡çº¿ï¼åªä½è¾¹æ¡
n = n + 1
Loop
Selection.Tables(1).Rows(Val(TextBox1.Text) * 2 + 1).Height = CentimetersToPoints(Val(TextBox4.Text))
'设置æ«è¡é«ä¸ºè®¾ç½®å¼
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
'è¡¨æ ¼å±
ä¸
With Selection.Tables(1)
.Borders(wdBorderLeft).LineWidth = wdLineWidth150pt
.Borders(wdBorderRight).LineWidth = wdLineWidth150pt
.Borders(wdBorderTop).LineWidth = wdLineWidth150pt
.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt
'设å®è¡¨æ ¼è¾¹æ¡ä¸ºç²çº¿
End With
Selection.EndKey Unit:=wdLine
Unload Meãã
End Sub