{"id":711,"date":"2024-06-17T11:30:27","date_gmt":"2024-06-17T03:30:27","guid":{"rendered":"http:\/\/www.wyrcad.com\/?p=711"},"modified":"2024-06-17T16:34:17","modified_gmt":"2024-06-17T08:34:17","slug":"word-%e7%94%9f%e6%88%90%e8%a1%a8%e6%a0%bc","status":"publish","type":"post","link":"https:\/\/www.wyrcad.com\/?p=711","title":{"rendered":"Microsoft Word \u751f\u6210\u8868\u683c"},"content":{"rendered":"\n

Dim oWord As Object
Call BindWord(True)<\/p>\n\n\n\n

Dim oDocument As Object
Set oDocument = oWord.ActiveDocument
Call NameList<\/p>\n\n\n\n

Public Sub NameList()
On Error Resume Next
Dim RowsCount, ColsCount As Integer
With oDocument
.Paragraphs(.Paragraphs.Count).Range.Font.Name = “\u5b8b\u4f53”
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 12
.Paragraphs(.Paragraphs.Count).Range.Font.Bold = False
.Paragraphs(.Paragraphs.Count).Alignment = 1
.Paragraphs(.Paragraphs.Count).Range.Text = “\u82b1\u540d\u518c”
RowsCount = 3
ColsCount = 4
.Tables.Add Range:=.Range(Start:=.Range.End – 1, End:=.Range.End), NumRows:=RowsCount, NumColumns:=ColsCount, DefaultTableBehavior:=1, AutoFitBehavior:=2 ‘wdAutoFitFixed = 0 wdAutoFitContent = 1 wdAutoFitWindow = 2
With .Tables(.Tables.Count)
.Range.Cells(1).Range.Text = “\u59d3\u540d”
.Range.Cells(2).Range.Text = “\u6027\u522b”
.Range.Cells(3).Range.Text = “\u5e74\u9f84”
.Range.Cells(4).Range.Text = “\u804c\u79f0”
.Range.Cells(5).Range.Text = “\u5f20\u4e09”
.Range.Cells(6).Range.Text = “\u7537”
.Range.Cells(7).Range.Text = “36”
.Range.Cells(8).Range.Text = “\u5de5\u7a0b\u5e08”
.Range.Cells(9).Range.Text = “\u674e\u56db”
.Range.Cells(10).Range.Text = “\u5973”
.Range.Cells(11).Range.Text = “28”
.Range.Cells(12).Range.Text = “\u9884\u7b97\u5458”
End With
End With
On Error GoTo 0
End Sub<\/p>\n\n\n\n

\"\"<\/figure>\n","protected":false},"excerpt":{"rendered":"

Dim oWord As ObjectCall BindWord(True) Dim oDocument As … \u7ee7\u7eed\u9605\u8bfb\u201cMicrosoft Word \u751f\u6210\u8868\u683c\u201d<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[24,17],"class_list":["post-711","post","type-post","status-publish","format-standard","hentry","category-bianchengyuandi","tag-vb","tag-biancheng"],"_links":{"self":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/711","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=711"}],"version-history":[{"count":13,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/711\/revisions"}],"predecessor-version":[{"id":736,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/711\/revisions\/736"}],"wp:attachment":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=711"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=711"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=711"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}