1. 怎樣用WORD(2003版)做榮譽證書模板
找一張和榮譽證書一樣大小的紙張(列印試驗用),然後按照這樣的紙回張在word裡面設答置。
由於榮譽證書輸入的東西,就三部分內容。
榮譽證書
同志:
因。。。。。。獲得。。。。。表彰,特頒發獎勵。
最後是落款
日期。
用虛框表格或文本框均可進行快速的設置。
2. 我有一個證書模板,如何在電腦上用word製作出一個一樣的證書
CorelDRAW做出來效果會比較好
3. 怎樣用word製作榮譽證書
1、我們新建一個Word文檔,然後點擊菜單欄上的「插入」,插入一個榮譽證書的背內景圖容片。
4. 想要用wps做榮譽證書但是裡面邊框哪裡找
點擊邊框,選擇邊框和底紋
選擇你要的形狀
5. 如何用word製作證書列印模板
現如今,不管是大單位還是小公司,公司員工的工作證是少不了的,就像上學時的學生證、胸卡,工作之後單位也會為每位員工配上工作證。隨著批量製作工作證需求的增加也逐漸讓人們意識到這項工作的重要性。其實這種批量製作可變內容的需求在條碼列印軟體中是非常簡單的一項功能。下面我們就來看一下如何便捷的批量製作工作證?
批量製作工作證之前,我們需要將員工照片及信息進行統一整理。然後在標簽列印軟體中調用相關的信息進行批量生成和列印。
首先,整理工作證上的員工照片,將員工照片整理為以姓名命名並統一格式保存在一個文件夾中。以下圖為例。
6. 求高手,急。要一張證書的邊框及背景,CDR格式,圖如下
http://www.58pic.com/shiliangtu/10993587.html 採納謝謝 一模一樣 AI轉CDR 存AI文件 保存的時候不要勾選壓縮 X4及以上直接打開 素材是免費的 其它東西也可以在裡面下載 QQ注冊一個賬號就行了 很方便 採納謝謝http://www.58pic.com/shiliangtu/10998045.html 還有一張
7. 急急急~~~怎麼用word或者wps製作模版列印證件呀
給你一個建議:自己如果不會製作,直接把尺寸(長*寬)量好,和證件照片一起在提一個問,就是請你幫你製作一個。
8. 如可用類似office word的軟體,設計一個打證件的模版
有個基於EXCEL2003VBA做的宏,功能是讀取身份證信息,記錄其中的照片到指定文件夾、身份證號碼等信息記錄入EXCEL,然後登記參加短期培訓後的考試成績。過程中列印准考證,列印畢業證等等都是在里邊完成。不是word版的,需要原始文件可以QQ。
如果只需要列印證件功能,那參考下面的步驟和代碼,略加改寫就可以用了,代碼寫得不簡潔,高手勿噴。
1、在EXCEL里建立兩個工作簿 一個叫「數據」,一個叫「證件」
2、「數據」工作薄的列名如圖製作,學員照片需要放在同一目錄下,並按學號+姓名+.jpg命名 公章圖片文件名也要放同一目錄下並命名為"學校證件章.jpg"
3、製作一個宏 代碼如下
4、隨便在「數據」工作薄中填寫些數據 運行宏能看到結果。
Sub 製作證件()
'********************
'***qq13252191製作***
'********************
If MsgBox("程序將刪除當前工作表(證件)工作簿中的所有數據和格式,並生成新的證件。確定這樣做么?", vbYesNo, "警告") <> 6 Then '
Exit Sub
'刪除所有已有數據並重新格式化工作簿
End If
Worksheets("證件").Select '選定證件工作簿
Cells.Select '全選當前工作簿
Selection.ClearContents '全選了當前工作簿右擊清除內容
Worksheets("證件").Pictures.Delete '刪除證件工作簿當中的所有圖片
Selection.Delete shift:=xlUp '全選了當前工作簿右擊刪除
With Selection
.WrapText = False
.Orientation = 0
.Borders(xlDiagonalDown).LineStyle = xlNone '清除選定區域中的下斜線
.Borders(xlDiagonalUp).LineStyle = xlNone '清除選定區域中的上斜線
.Borders(xlEdgeLeft).LineStyle = xlNone ' 左線
.Borders(xlEdgeTop).LineStyle = xlNone '頂部線
.Borders(xlEdgeBottom).LineStyle = xlNone '下部線
.Borders(xlEdgeRight).LineStyle = xlNone '右線
.Borders(xlInsideVertical).LineStyle = xlNone '垂直線
.Borders(xlInsideHorizontal).LineStyle = xlNone '水平線
.VerticalAlignment = xlBottom '垂直對齊方式是下對齊
.HorizontalAlignment = xlLeft '水平對齊方式是左對齊
.Range("a:a,c:c").ColumnWidth = 42 '把區域內的A列和C列的列寬設置為41.5約等於90毫米
.Range("b:b").ColumnWidth = 2 '把區域內的b列的列寬設置為10
.Font.Name = "楷體_GB2312" '設置整個區域的字體為楷體_GB2312
.Font.Bold = False
.Font.Size = 9 '設置字型大小為9號字
End With
'定義臨時變數
Dim i As Integer '定義變數I為整型
Dim y As Integer '定義變數Y為整型
Dim x As String '定義變數X為字元型
Dim picpath As String '定義照片路徑為字元型
Dim picrng As Range '定義照片的區域為區域
Dim printpath As String '定義印章路徑為字元型
Dim printrng As Range '定義印章區域為區域
Dim nopic As String '定義無照片人員名單為字元型
'置入公章
printpath = ThisWorkbook.Path & "" & "學校證件章.gif" '將當前工作簿的路徑和印章文件名賦值給printpath
With Worksheets("證件")
'定義循環
For i = 2 To Worksheets("數據").Range("a65536").End(xlUp).Row '
picpath = ThisWorkbook.Path & "" & Worksheets("數據").Cells(i, 4).Text & Worksheets("數據").Cells(i, 1).Text & ".jpg"
y = (Int(i / 2) - 1) * 8 + 1
Select Case i Mod 2
Case 0
x = "a"
Case 1
x = "c"
End Select
'置入文本數據
.Range("" & x & "" & y & "") = "國 家 保 安 員 資 格 培 訓"
.Range("" & x & "" & y & "").HorizontalAlignment = xlCenter
.Range("" & x & "" & y & "").RowHeight = 30
.Range("" & x & "" & y & "").Font.Name = "宋體"
.Range("" & x & "" & y & "").Font.Size = 11
.Range("" & x & "" & y & "").Font.Bold = True
.Range("" & x & "" & y + 1 & "") = " 合 格 證"
.Range("" & x & "" & y + 1 & "").RowHeight = 40
.Range("" & x & "" & y + 1 & "").Font.Name = "黑體"
.Range("" & x & "" & y + 1 & "").Font.Bold = True
.Range("" & x & "" & y + 1 & "").Font.Size = 22
.Range("" & x & "" & y + 2 & "") = " 姓名:" & Worksheets("數據").Range("a" & i & "")
.Range("" & x & "" & y + 2 & "").RowHeight = 31.1
.Range("" & x & "" & y + 2 & "").Font.Name = "方正行楷簡體"
.Range("" & x & "" & y + 2 & "").Font.Size = 20
.Range("" & x & "" & y + 3 & "") = " 編 號:" & Worksheets("數據").Range("d" & i & "")
.Range("" & x & "" & y + 3 & "").RowHeight = 19.8
.Range("" & x & "" & y + 4 & "") = " 身份證號:" & Worksheets("數據").Range("k" & i & "")
.Range("" & x & "" & y + 4 & "", "" & x & "" & y + 3 & "").Font.Size = 9
.Range("" & x & "" & y + 4 & "").RowHeight = 14
.Range("" & x & "" & y + 5 & "") = "制證日期:2011年11月27日" & Worksheets("數據").Range("ad" & i & "") & " " & "培訓機構:XXXXXXXXXXXXXXX"
.Range("" & x & "" & y + 5 & "").RowHeight = 14
.Range("" & x & "" & y + 5 & "").Font.Size = 7
.Range("" & x & "" & y + 5 & "").HorizontalAlignment = xlCenter
.Range("" & x & "" & y + 6 & "").RowHeight = 5
.Range("" & x & "" & y + 7 & "").RowHeight = 0
With Range("" & x & "" & y & "", "" & x & "" & y + 6 & "")
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).ColorIndex = 1
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).ColorIndex = 1
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).ColorIndex = 1
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).ColorIndex = 1
End With
'置入照片
If Dir(picpath) <> "" Then
Worksheets("證件").Pictures.Insert(picpath).Select
Set picrng = Worksheets("證件").Cells(y, x)
With Selection
.Top = picrng.Top + 32
.Left = picrng.Left + 16
.ShapeRange.ScaleWidth 0.85, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.85, msoFalse, msoScaleFromTopLeft
End With
Worksheets("證件").Pictures.Insert(printpath).Select
Set printrng = Worksheets("證件").Cells(y, x)
With Selection
.Top = printrng.Top + 93
.Left = printrng.Left + 52
.ShapeRange.ScaleWidth 0.35, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.35, msoFalse, msoScaleFromTopLeft
End With
Else
nopic = nopic & Chr(10) & Worksheets("數據").Cells(i, 1).Text
End If
Next i
'判斷照片是否存在,並累計錯誤到提示框
If nopic <> "" Then
MsgBox nopic & Chr(10) & "沒有照片!", vbOKOnly, "注意"
End If
End With
End Sub
9. 用word模板套打營業執照證書,怎麼建立模板,現有正本模板,做副本的,最外面是文本框嗎
找一張和榮譽證書一樣大小的紙張(列印試驗用),然後按照這樣的紙張在word裡面設置。由回於榮譽證書輸入的答東西,就三部分內容。榮譽證書同志:因。。。。。。獲得。。。。。表彰,特頒發獎勵。最後是落款日期。用虛框表格或文本框均可進行快速的設置。
10. 最近360瀏覽器,經常出現需要證書之類的框框~~~請問出現什麼問題了怎麼解決
金山毒霸可以無腦解決這個玩意,不過你。。裝了360 的話在上金山毒霸系統就可以立馬重裝了。
如果不想太麻煩就等兩天,這是微軟的一個安全補丁引起的,因為中國很大一部分網站沒有得到微軟的安全證書(也就是不是用的國際通用標准模板系統建立的)。所以微軟的這個補丁強制了屏蔽沒有安全證書的網站。
應該會修復。
如果不修復的話,你搞個非IE內核的游覽器就完了。比如火狐,迅雷,獵豹,雙重空間之類的。