如何將WORD文檔(文檔中有文字、表格、圖片)保存在ACCESS數(shù)據(jù)庫中以及從數(shù)據(jù)庫中讀出來

首頁 > 身份戶籍2022-08-09 23:55:42

如何把一個word文檔中的內(nèi)容寫入到數(shù)據(jù)庫中？

文檔中的內(nèi)容都是一條一條的題目，例如：rn1 題目內(nèi)容選項1 選項2 選項3 選項4 答案rn一個一個寫入到一個表中

首先，建立一個Access2000數(shù)據(jù)庫data.mdb，在庫中建立一個表userdata，里面有“工號”、“姓名”、“性別”、“部門”四個字段，都是字符型的，再輸入一些數(shù)據(jù)，再建立一個窗體Form1，在Form1中，放置以下控件：
控件名稱屬性值說明
Tlabel1 Caption "請輸入文件名"
TEdit1 Name "" 用來輸入文件名，帶擴展名的
TButton1 Caption "保存"
TButton2 Caption "退出"
ADOTable1 Active

ConnectionString

TableName True
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False
userdata

下面是相關(guān)代碼:
file://---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant OLEObject;
AnsiString dataword;
if(Trim(Edit1->Text)=="")
{
ShowMessage("請輸入文件名");
return;
}
String currentPath=GetCurrentDir()+"//"+Trim(Edit1->Text);
OLEObject=CreateOleObject("Word.Basic");
OLEObject.Exec(Procedure("FileNew"));
OLEObject.Exec(Procedure("EndOfDocument"));
ADOTable1->First();
while(ADOTable1->Eof!=True)
{
dataword=ADOTable1->FieldValues["工號"]+ADOTable1->FieldValues["姓名"]+ADOTable1->FieldValues["性別"]+ADOTable1->FieldValues["部門"];
OLEObject.Exec(Procedure("Insert")<<dataword);
ADOTable1->Next();
}
OLEObject.Exec(Procedure("StartOfDocument"));
OLEObject.Exec(Procedure("FileSaveAs")<<currentPath);
OLEObject.Exec(Procedure("FileClose")<<1);
ShowMessage("文件已經(jīng)寫入！謝謝使用！");
}
---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
this->Close();
}
---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
Edit1->Text="";
}

首先你需要根據(jù)你的內(nèi)容來設(shè)計數(shù)據(jù)庫表的結(jié)構(gòu)
例如米的所有題目都是四個選項的選擇題那么可以如下設(shè)計
主鍵，題目內(nèi)容，選項1，選項2，選項3，選項4，答案，排序號
這樣錄入的時候每道題對應(yīng)一條數(shù)據(jù)即可

使用宏，自己寫個vb函數(shù)，執(zhí)行一下就行了。如果多了才有必要，少了就復(fù)制粘貼就行了

如何把word中的圖片導(dǎo)出并保存？

我知道，可以在word中，點保存到網(wǎng)頁，從而在桌面上出現(xiàn)一個快捷方式圖片，點開，是網(wǎng)頁狀態(tài)下的該圖片。然后怎么復(fù)制呢？點右鍵沒出現(xiàn)復(fù)制??？怎么保存該圖片？

在word中將文檔另存為網(wǎng)頁文件，那么word中的圖片就會出現(xiàn)在網(wǎng)頁附帶的文件夾中，具體操作請參照以下步驟。

1、在電腦上打開需要保存圖片的word文檔，點擊界面左上角的“Office按鈕”圖標(biāo)。

2、然后在其下拉框中，依次點擊“另存為/其他格式”選項。

3、在另存為頁面中，選擇文件保存位置，再在“保存類型”右邊的下拉框中選擇“網(wǎng)頁”，點擊“保存”進行確定。

4、找到word文檔保存的位置，可以發(fā)現(xiàn)多了一個文件夾。

5、打開文件夾，就能看到word文檔里面的圖片已經(jīng)成功保存。完成以上設(shè)置后，即可把word中的圖片導(dǎo)出并保存。

以WPS 2019版本為例：

打開文檔，找到任意一張圖片，單擊選中該圖片，鼠標(biāo)右鍵單擊【提取圖片】，

彈出此對話框，會告知您文檔中有多少張圖片及可設(shè)置輸出路徑，設(shè)置好后，單擊【開始提取】，提取成功文檔中的圖片會自動生成文件夾進行保存、

騰訊文檔有個功能可以將word文檔一鍵生成圖片，可以直接分享到微博或朋友圈，非常好用！下面是我健身的筆記，用騰訊文檔的生成圖片功能生成的

操作也很簡單，騰訊文檔有網(wǎng)頁版，無需下載：

電腦登錄騰訊文檔網(wǎng)頁版后，新建一篇文檔（新建在線文檔或?qū)氡镜匚臋n）

請點擊輸入圖片描述

點擊界面上方的「文檔操作」-「導(dǎo)出為」-「生成圖片」

請點擊輸入圖片描述

生成的圖片就可以保存使用啦~不想讓別人修改文檔內(nèi)容/分享筆記都可以生成長圖的功能

請點擊輸入圖片描述

首先，打開你要那個文檔，點擊文件-另存為-把保存類型選網(wǎng)頁（在文件名下面）-桌面（保存到桌面上） OK 這樣在桌面上就多了個文件夾，那個文檔里面的圖片都在文件夾里面。

祝你好運！