How to save figures to pdf or doc document?

I am trying to save some figures (subplot) in a single pdf or word document.

This is my code for the figures.

I need help to save them in a document automatically.

Fig3= figure('units', 'centimeters', 'Position', [0,0, 20/sqrt(2), 20]);

% plot(S2.time,S2.vel)

for i=1:numel(eqmotions);

data=load([eqmotions{i},'.txt']);

subplot(5,2,i)

plot(Vel{i}(:,1),Vel{i}(:,2),'r','LineWidth',1);

title(eqmotions{i},'FontName','Times New Roman')

ylabel('Vel (m/s)','FontName','Times New Roman')

xlabel('Tiempo (seg)','FontName','Times New Roman')

grid on

end

% baseline correction Acc

Fig4= figure('units', 'centimeters', 'Position', [0,0, 20/sqrt(2), 20]);

% plot(S2.time,S2.acc)

for i=1:numel(eqmotions)

data=load([eqmotions{i},'.txt']);

subplot(5,2,i)

plot(Acc{i}(:,1),Acc{i}(:,2),'r','LineWidth',1);

%plot(S2.time,S2.disp,'r','LineWidth',1);

set(gca,'FontName','Times New Roman')

title(eqmotions{i},'FontName','Times New Roman')

ylabel('Acc (m/s2)','FontName','Times New Roman')

xlabel('Tiempo (seg)','FontName','Times New Roman')

grid on

end

Answer 1

[David Hill]

https://www.mathworks.com/matlabcentral/fileexchange/71053-figure2pdf

Answer 2

[Iñigo Moreno]

exportgraphics(Fig3,'file.pdf')