整合營(yíng)銷(xiāo)服務(wù)商
電腦端+手機(jī)端+微信端=數(shù)據(jù)同步管理
免費(fèi)咨詢熱線：
電腦端+手機(jī)端+微信端=數(shù)據(jù)同步管理
免費(fèi)咨詢熱線：
如下文件夾：
要通過(guò)bat建立包含文件夾中全部圖片的網(wǎng)頁(yè)，如下：
上面的網(wǎng)頁(yè)以圖片的文件名作為圖片說(shuō)明，統(tǒng)一圖片尺寸插入到網(wǎng)頁(yè)中。
bat代碼如下：
echo ^<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^> >picList.html
echo ^<html xmlns="http://www.w3.org/1999/xhtml"^> >>picList.html
echo ^<head^> >>picList.html
echo ^<title^>picList^</title^> >>picList.html
echo ^<style type=text/css^> >>picList.html
echo div{width:74.125^%%;} >>picList.html
echo div{margin^:auto^;} >>picList.html
echo img{display^:block^;margin^:auto;} >>picList.html
echo img{padding^:2px 22px;} >>picList.html
echo img{border^:0 red solid;} >>picList.html
echo a:link{text-decoration: none; color:#fff;} >>picList.html
echo ^</style^>^</head^> >> picList.html
echo ^<body^>^<div^> >>picList.html
for /f "tokens=1,2 usebackq delims=." %%b in (`dir /o:n /b`) do (
if not "%%c" == "bat" (
if not "%%c" == "html" (
echo ^<p style="text-indent:-2em;"^>%%b ↓^</p^> >>picList.html
echo ^<a href="%%b.%%c" title="%%b.%%c"^>^<img src="%%b.%%c" /^>^</a^> >>picList.html
)
)
)
echo ^</div^> >>picList.html
echo ^</body^> >>picList.html
echo ^</html^> >>picList.html
代碼說(shuō)明：
首先寫(xiě)入picList.html的頭文件部分，包括css代碼；
然后通過(guò)一個(gè)循環(huán)獲取全部圖片文件的文件名和擴(kuò)展名，寫(xiě)入圖片文字說(shuō)明并插入圖片；
最后是寫(xiě)picList.html文件的尾文件部分。
delims=.后面如果有空格，則文件名中如果有空格時(shí)則會(huì)出錯(cuò)；
dir /o:d /b：顯示文件夾名或文件名（包括擴(kuò)展名）。
-End-
分享成果，隨喜正能量】我們畢生的任務(wù)就是做一個(gè)優(yōu)秀的普通人。這個(gè)優(yōu)秀的普通人，熱愛(ài)世界，熱愛(ài)萬(wàn)物，熱愛(ài)眾生，然后踏踏實(shí)實(shí)地去尋找到一個(gè)自己內(nèi)心喜歡又有時(shí)代價(jià)值的事情。一個(gè)人一輩子能夠做好一兩件事就很好了。。
我給VBA的定義：VBA是個(gè)人小型自動(dòng)化處理的有效工具。利用好了，可以大大提高自己的勞動(dòng)效率，而且可以提高數(shù)據(jù)的準(zhǔn)確度。我推出的VBA系列教程共十套(本文的最后附有VBA教程目錄和VBA工具目錄)，現(xiàn)在已經(jīng)全部完成。
如果您VBA是入門(mén)階段，可以打包選擇7.1.3.9教程，第7套教程是入門(mén)，第1套教程是入門(mén)后的提高，第3套教程字典是必備的VBA之精華，第9套教程是實(shí)用的典型案例講解。如果您有了一定的VBA基礎(chǔ)可以根據(jù)自己的需要，進(jìn)行教程的選擇。教程提供的程序源碼文件就如一座大型的代碼庫(kù)支持著大家的工作。同時(shí)還有實(shí)用的資料送給學(xué)員。
VBA是面向?qū)ο缶幊痰恼Z(yǔ)言，博大精深。很多朋友咨詢英語(yǔ)和VBA的關(guān)系，這套《VBA即用型代碼手冊(cè)（漢英）》集合了眾多的案例，案例我用漢語(yǔ)和英語(yǔ)同時(shí)發(fā)布，學(xué)員從中可以更好的領(lǐng)會(huì)和掌握VBA中用到的一些英語(yǔ)。今日的內(nèi)容：WORD_VBA文本框的添加、刪除、寫(xiě)入及保存為html文件
Word Objects and Macro Examples
Sub mynzAddTextBox()
ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=180, Width:=300, Height:=100
End Sub
Sub mynzDeleteTextBox()
'我們需要檢查 oShape 是否屬于 msoShapeRectangle 類(lèi)型，并且它的文本框是否包含書(shū)寫(xiě)位置
Dim oShape As Shape
If ActiveDocument.Shapes.Count > 0 Then
For Each oShape In ActiveDocument.Shapes
If oShape.AutoShapeType = msoShapeRectangle Then
If oShape.TextFrame.HasText = True Then
oShape.Delete
End If
End If
Next oShape
End If
End Sub
Sub mynzWriteInTextBox()
Dim oShape As Shape
If ActiveDocument.Shapes.Count > 0 Then
For Each oShape In ActiveDocument.Shapes
If oShape.AutoShapeType = msoShapeRectangle Then
If oShape.TextFrame.HasText = True Then
oShape.TextFrame.TextRange.InsertAfter "VBA Case"
Exit For
End If
End If
Next oShape
End If
End Sub
Sub mynzSaveMewithDateName()
'將當(dāng)前活動(dòng)文檔保存為過(guò)濾后的 html，并以當(dāng)前時(shí)間命名
Dim strTime As String
strTime = Format(Now, "hh-mm")
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML
End Sub
【分享成果，隨喜正能量】我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中：
【分享成果，隨喜正能量】總有一段時(shí)光，讓我們深感痛苦，但不是所有的時(shí)光都這樣，我們要學(xué)會(huì)在黑暗中，找到一絲光芒，這束光來(lái)自于內(nèi)心，它會(huì)讓我們重新找到好日子。。
Excel VBA中，HTMLText對(duì)象表示可以包含HTML標(biāo)記的文本。它通常用于向HTML文件或?yàn)g覽器窗口中添加格式化文本。當(dāng)您希望在Excel中顯示具有樣式和格式的文本時(shí)，您可以使用HTMLText對(duì)象來(lái)創(chuàng)建富文本。使用HTML標(biāo)簽和屬性，您可以調(diào)整字體、顏色、大小、對(duì)齊方式等文本的外觀和布局。HTMLText對(duì)象提供了使VBA能夠生成并處理HTML文本的功能。
以下是一些示例代碼，展示如何使用HTMLText對(duì)象的標(biāo)簽和屬性來(lái)調(diào)整字體、顏色、大小、對(duì)齊方式等文本的外觀和布局。
Dim htmlText As HTMLText
Set htmlText = New HTMLText
htmlText.Text = "<font face=""Arial"">This text has Arial font.</font>"Dim htmlText As HTMLText
Set htmlText = New HTMLText
htmlText.Text = "<span style=""color: red;"">This text is in red color.</span>"Dim htmlText As HTMLText
Set htmlText = New HTMLText
htmlText.Text = "<font size=""4"">This text has size 4 font.</font>"Dim htmlText As HTMLText
Set htmlText = New HTMLText
htmlText.Text = "<div align=""center"">This text is centered.</div>"以上代碼示例中，我們首先創(chuàng)建了一個(gè)HTMLText對(duì)象，然后使用對(duì)象的Text屬性來(lái)設(shè)置HTML文本。通過(guò)使用不同的HTML標(biāo)簽和屬性，可以實(shí)現(xiàn)所需的調(diào)整，如字體、顏色、大小和對(duì)齊方式等。在這些示例中，我們分別使用了<font>標(biāo)簽、<span>標(biāo)簽、<div>標(biāo)簽和相應(yīng)的屬性來(lái)實(shí)現(xiàn)相應(yīng)的調(diào)整。
請(qǐng)注意，為了在Excel中顯示HTML文本，您可能需要使用其他工具或方法來(lái)將HTML文本應(yīng)用于單元格或其他控件，例如使用Range對(duì)象的HTMLBody屬性或通過(guò)將HTML文本加載到WebBrowser控件中來(lái)實(shí)現(xiàn)。以上代碼僅提供了如何使用HTMLText對(duì)象來(lái)生成所需的HTML文本的示例。
在使用HTMLText對(duì)象編寫(xiě)VBA時(shí)，有幾點(diǎn)需要注意：
下面提供一個(gè)簡(jiǎn)單的代碼示例來(lái)演示如何使用HTMLText對(duì)象來(lái)創(chuàng)建和顯示富文本。
Sub Example()
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim htmlText As HTMLTextObject
' 創(chuàng)建新工作簿和工作表
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
' 在A1單元格中插入HTML格式的文本
Set rng = ws.Range("A1")
Set htmlText = rng.HTMLText
htmlText.Html = "<b><font color='red'>這是粗體紅色的文本。</font></b>"
' 設(shè)置字體大小和水平對(duì)齊方式
rng.Font.Size = 12
rng.HorizontalAlignment = xlCenter
' 將字體顏色設(shè)置為紅色
rng.Font.Color = RGB(255, 0, 0)
End Sub在這個(gè)示例中，我們創(chuàng)建了一個(gè)新的工作簿，然后在第一個(gè)工作表的A1單元格中插入了一個(gè)HTML格式的文本。通過(guò)使用HTML標(biāo)簽<b>和<font>，我們將文本設(shè)置為加粗且紅色。然后，我們?cè)O(shè)置了字體大小和水平對(duì)齊方式，并將字體顏色設(shè)置為紅色。運(yùn)行此代碼，您將看到在Excel中的A1單元格中顯示了粗體的紅色文本。
總之，在使用HTMLText對(duì)象編寫(xiě)VBA時(shí)，需要熟悉HTML代碼和相關(guān)的方法和屬性，并確保生成的HTML代碼有效且能夠與Excel適配。
*請(qǐng)認(rèn)真填寫(xiě)需求信息，我們會(huì)在24小時(shí)內(nèi)與您取得聯(lián)系。
